Changeset 3238 for trunk/LMDZ.GENERIC


Ignore:
Timestamp:
Feb 27, 2024, 1:43:16 PM (10 months ago)
Author:
mturbet
Message:

minor change in mineral aerosol name format

Location:
trunk/LMDZ.GENERIC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.GENERIC/changelog.txt

    r3236 r3238  
    18691869Add virtual correction for convective adjustment and turbulent diffusion
    18701870(turbdiff and vdifc) + correction of allocated tables in physiq_mod for varspec.
     1871
     1872== 27/02/2024 == MT
     1873Change mineral aerosol names in suaer_corrk.F90 to make them consistent with our standard format
  • trunk/LMDZ.GENERIC/libf/phystd/suaer_corrk.F90

    r2972 r3238  
    318318            if (index(noms(i_rgcs_ice(ia)),'Fe') .ne. 0) then
    319319               print*,"Reading Fe file"
    320                file_id(iaer,1)='Fe.ocst.txt'
    321                file_id(iaer,2)='Fe.ocst.txt'
     320               file_id(iaer,1)='optprop_Fe_IR-VIS_n30.dat'
     321               file_id(iaer,2)='optprop_Fe_IR-VIS_n30.dat'
    322322               lamrefvis(iaer) = 1.0E-6 !random pick
    323323               lamrefir(iaer) = 1.0E-6 !dummy but random pick
    324324            else if (index(noms(i_rgcs_ice(ia)),'Mn') .ne. 0) then
    325325               print*,"Reading MnS file"
    326                file_id(iaer,1)='MnS.ocst.txt'
    327                file_id(iaer,2)='MnS.ocst.txt'
     326               file_id(iaer,1)='optprop_MnS_extended_IR-VIS_n35.dat'
     327               file_id(iaer,2)='optprop_MnS_extended_IR-VIS_n35.dat'
    328328               lamrefvis(iaer) = 1.0E-6 !random pick
    329329               lamrefir(iaer) = 1.0E-6 !dummy but random pick   
    330330            else if (index(noms(i_rgcs_ice(ia)),'Mg') .ne. 0) then 
    331331               print*,"Reading Mg2SiO4 file"
    332                file_id(iaer,1)='Mg2SiO4.ocst.txt'
    333                file_id(iaer,2)='Mg2SiO4.ocst.txt'
     332               file_id(iaer,1)='optprop_Mg2SiO4_amorph_extended_IR-VIS_n35.dat'
     333               file_id(iaer,2)='optprop_Mg2SiO4_amorph_extended_IR-VIS_n35.dat'
    334334               lamrefvis(iaer) = 1.0E-6 !random pick
    335335               lamrefir(iaer) = 1.0E-6 !dummy but random pick 
    336336            else if (index(noms(i_rgcs_ice(ia)),'Cr') .ne. 0) then
    337337               print*,"Reading Cr file"
    338                file_id(iaer,1)='Cr.ocst.txt'
    339                file_id(iaer,2)='Cr.ocst.txt'
     338               file_id(iaer,1)='optprop_Cr_IR-VIS_n30.dat'
     339               file_id(iaer,2)='optprop_Cr_IR-VIS_n30.dat'
    340340               lamrefvis(iaer) = 1.0E-6 !random pick
    341341               lamrefir(iaer) = 1.0E-6 !dummy but random pick
Note: See TracChangeset for help on using the changeset viewer.