Changeset 3238 for trunk/LMDZ.GENERIC/libf

Timestamp:

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

Author:

mturbet

Message:

minor change in mineral aerosol name format

File:

• trunk/LMDZ.GENERIC/libf/phystd/suaer_corrk.F90 (modified) (1 diff)

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