Changeset 3238 for trunk

Timestamp:

Feb 27, 2024, 1:43:16 PM (9 months ago)

Author:

mturbet

Message:

minor change in mineral aerosol name format

Location:

trunk/LMDZ.GENERIC

Files:

• changelog.txt (modified) (1 diff)
• libf/phystd/suaer_corrk.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/changelog.txt

@@ -1869 +1869 @@
 Add virtual correction for convective adjustment and turbulent diffusion 
 (turbdiff and vdifc) + correction of allocated tables in physiq_mod for varspec.
+
+== 27/02/2024 == MT
+Change mineral aerosol names in suaer_corrk.F90 to make them consistent with our standard format

trunk/LMDZ.GENERIC/libf/phystd/suaer_corrk.F90

@@ -318 +318 @@
             if (index(noms(i_rgcs_ice(ia)),'Fe') .ne. 0) then 
                print*,"Reading Fe file"
-               file_id(iaer,1)='Fe.ocst.txt'
-               file_id(iaer,2)='Fe.ocst.txt'
+               file_id(iaer,1)='optprop_Fe_IR-VIS_n30.dat'
+               file_id(iaer,2)='optprop_Fe_IR-VIS_n30.dat'
                lamrefvis(iaer) = 1.0E-6 !random pick
                lamrefir(iaer) = 1.0E-6 !dummy but random pick
             else if (index(noms(i_rgcs_ice(ia)),'Mn') .ne. 0) then 
                print*,"Reading MnS file"
-               file_id(iaer,1)='MnS.ocst.txt'
-               file_id(iaer,2)='MnS.ocst.txt'
+               file_id(iaer,1)='optprop_MnS_extended_IR-VIS_n35.dat'
+               file_id(iaer,2)='optprop_MnS_extended_IR-VIS_n35.dat'
                lamrefvis(iaer) = 1.0E-6 !random pick
                lamrefir(iaer) = 1.0E-6 !dummy but random pick   
             else if (index(noms(i_rgcs_ice(ia)),'Mg') .ne. 0) then  
                print*,"Reading Mg2SiO4 file" 
-               file_id(iaer,1)='Mg2SiO4.ocst.txt'
-               file_id(iaer,2)='Mg2SiO4.ocst.txt'
+               file_id(iaer,1)='optprop_Mg2SiO4_amorph_extended_IR-VIS_n35.dat'
+               file_id(iaer,2)='optprop_Mg2SiO4_amorph_extended_IR-VIS_n35.dat'
                lamrefvis(iaer) = 1.0E-6 !random pick
                lamrefir(iaer) = 1.0E-6 !dummy but random pick  
             else if (index(noms(i_rgcs_ice(ia)),'Cr') .ne. 0) then
                print*,"Reading Cr file"
-               file_id(iaer,1)='Cr.ocst.txt'
-               file_id(iaer,2)='Cr.ocst.txt'
+               file_id(iaer,1)='optprop_Cr_IR-VIS_n30.dat'
+               file_id(iaer,2)='optprop_Cr_IR-VIS_n30.dat'
                lamrefvis(iaer) = 1.0E-6 !random pick
                lamrefir(iaer) = 1.0E-6 !dummy but random pick