Changeset 4163


Ignore:
Timestamp:
May 23, 2022, 7:17:52 PM (2 years ago)
Author:
asima
Message:

Fixing a bug introduced in r4071 : "spinsol" ("insol" for "insoluble") instead of "spsol" must be used for CODU and SCDU

Location:
LMDZ6/trunk/libf/phylmd/Dust
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/Dust/splaeropt_5wv_rrtm.F90

    r4071 r4163  
    120120      CASE('FINE'); soluble=.TRUE.;  spsol=1; aerindex=1   !--fine mode accumulation mode
    121121      CASE('COSS'); soluble=.TRUE.;  spsol=2; aerindex=2   !--coarse mode sea salt
    122       CASE('CODU'); soluble=.FALSE.; spsol=1; aerindex=3   !--coarse mode dust
    123       CASE('SCDU'); soluble=.FALSE.; spsol=2; aerindex=4   !--super coarse mode dust
     122      CASE('CODU'); soluble=.FALSE.; spinsol=1; aerindex=3   !--coarse mode dust
     123      CASE('SCDU'); soluble=.FALSE.; spinsol=2; aerindex=4   !--super coarse mode dust
    124124      CASE DEFAULT; CALL abort_physic(modname,'I cannot do aerosol optics for '//tracers(iq)%name,1)
    125125    END SELECT

  • LMDZ6/trunk/libf/phylmd/Dust/splaeropt_6bands_rrtm.F90

    r4071 r4163  
    173173      CASE('FINE'); soluble=.TRUE.;  spsol=1; aerindex=1   !--fine mode accumulation mode
    174174      CASE('COSS'); soluble=.TRUE.;  spsol=2; aerindex=2   !--coarse mode sea salt
    175       CASE('CODU'); soluble=.FALSE.; spsol=1; aerindex=3   !--coarse mode dust
    176       CASE('SCDU'); soluble=.FALSE.; spsol=2; aerindex=4   !--super coarse mode dust
     175      CASE('CODU'); soluble=.FALSE.; spinsol=1; aerindex=3   !--coarse mode dust
     176      CASE('SCDU'); soluble=.FALSE.; spinsol=2; aerindex=4   !--super coarse mode dust
    177177      CASE DEFAULT; CALL abort_physic(modname,'I cannot do aerosol optics for '//tracers(iq)%name,1)
    178178    END SELECT
Note: See TracChangeset for help on using the changeset viewer.