Changeset 5759 for LMDZ6/trunk/libf/phylmd

Timestamp:

Jul 4, 2025, 12:14:47 PM (7 days ago)

Author:

lguez

Message:

Move assignment to i_aerosol_type_map

Move assignment to i_aerosol_type_map to the beginning at the
procedure. First because we neeed this before the call to
setup_radiation. Less importantly, it seems better to set
i_aerosol_type_map as default value before the call to
rad_config%read, since i_aerosol_type_map is part of the namelist,
rather than reading it from the namelist and silently overwriting the
choice of the user in the namelist. Note that this new ordering of
statements is the same as in ecrad/ifs/radiation_setup.F90.

File:

• LMDZ6/trunk/libf/phylmd/ecrad/lmdz/radiation_setup.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/ecrad/lmdz/radiation_setup.f90

@@ -93 +93 @@
     print*,'********** Dans radiation_setup *****************'
 
+    rad_config%i_aerosol_type_map(1:13) = (/ &
+         &  -1, &
+         &  -2, &
+         &  -3, &
+         &  -4, &
+         &  -5, &
+         &  -6, &
+         &  -7, &
+         &   1, &
+         &   2, &
+         &   3, &
+         &  -8, &
+         &  -9, &
+         &   4 /)
+
     ! AI ATTENTION (parameters read in namelist file)
     !    file_name="namelist_ecrad"
@@ -128 +143 @@
          &  'photosynthetically active radiation, PAR')
 
-    rad_config%i_aerosol_type_map(1:13) = (/ &
-         &  -1, &
-         &  -2, &
-         &  -3, &
-         &  -4, &
-         &  -5, &
-         &  -6, &
-         &  -7, &
-         &   1, &
-         &   2, &
-         &   3, &
-         &  -8, &
-         &  -9, &
-         &   4 /)
-
-
     IF (LHOOK) CALL DR_HOOK('RADIATION_SETUP:SETUP_RADIATION_SCHEME',1,ZHOOK_HANDLE)