Changeset 2391 for trunk


Ignore:
Timestamp:
Jul 2, 2020, 3:42:36 PM (4 years ago)
Author:
cmathe
Message:

improvedco2clouds_mod: 4.2 => if zq(ccnco2_number) > threshold

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/improvedco2clouds_mod.F90

    r2390 r2391  
    491491!----------------------------------------------------------------------------------------------------------------------!
    492492      ! we trigger crystal growth
    493       write(*,*)'ice_growth', zq(ig, l, igcm_ccnco2_number), zq(ig, l, igcm_co2_ice), satu
    494       if (zq(ig,l,igcm_ccnco2_number) * tauscaling(ig) + threshold >= 1.) then
     493      if (zq(ig,l,igcm_ccnco2_number) * tauscaling(ig) >= threshold) then
    495494
    496495        call updaterice_microco2(zq(ig,l,igcm_co2_ice), zq(ig,l,igcm_ccnco2_mass), zq(ig,l,igcm_ccnco2_number), &
Note: See TracChangeset for help on using the changeset viewer.