Changeset 197 for palm/trunk/SOURCE/header.f90

Timestamp:

Sep 16, 2008 3:29:03 PM (16 years ago)

Author:

raasch

Message:

further adjustments for SGI and other small changes

File:

• palm/trunk/SOURCE/header.f90 (modified) (3 diffs)

palm/trunk/SOURCE/header.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! TEST: mg_switch_to_pe0_level = -1!!!!!!!!!
 ! allow 100 spectra levels instead of 10 for consistency with 
 ! define_netcdf_header
@@ -117 +118 @@
     ELSEIF ( INDEX( initializing_actions, 'set_constant_profiles' ) /= 0 )  THEN
        run_classification = '3D - run without 1D - prerun'
-    ELSEIF ( INDEX(initializing_actions, 'set_1d-model_profiles') /= 0 ) THEN
+    ELSEIF ( INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 )  THEN
        run_classification = '3D - run with 1D - prerun'
+    ELSEIF ( INDEX( initializing_actions, 'by_user' ) /=0 )  THEN
+       run_classification = '3D - run initialized by user'
     ELSE
        PRINT*,'+++ header:  unknown action(s): ',initializing_actions
@@ -184 +187 @@
           WRITE ( io, 136 )  nxr_mg(1)-nxl_mg(1)+1, nyn_mg(1)-nys_mg(1)+1, &
                              nzt_mg(1)
-       ELSE
+       ELSEIF (  mg_switch_to_pe0_level /= -1 )  THEN
           WRITE ( io, 137 )  mg_switch_to_pe0_level,            &
                              mg_loc_ind(2,0)-mg_loc_ind(1,0)+1, &