Changeset 2969 for LMDZ5/trunk


Ignore:
Timestamp:
Jul 25, 2017, 7:22:52 PM (7 years ago)
Author:
fhourdin
Message:

Petit bug dans iflag_t_glace>=1 vu uniquement en debug en 1D quand
exposant < 1. C'est bien de l'avoir quand même dans les sources
au cas où.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/fisrtilp.F90

    r2962 r2969  
    909909                 endif
    910910                 
    911                  if (iflag_t_glace.ge.1) then
     911                 if (iflag_t_glace.ge.1.and.zfice(i)>0.) then
    912912                 dzfice(i)= exposant_glace * zfice(i)**(exposant_glace-1) &
    913913          &                    / (t_glace_min - t_glace_max)
Note: See TracChangeset for help on using the changeset viewer.