Ignore:
Timestamp:
Mar 23, 2004, 5:53:12 PM (21 years ago)
Author:
lmdzadmin
Message:

IM: modification valeur manquante a 1.E+20 selon val. par defaut ferret

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/plevel.F

    r418 r502  
    106106      do i = 1, klon
    107107         if (pgcm(i,1).LT.pres) THEN
    108             Qpres(i)=1e33
     108c           Qpres(i)=1e33
     109            Qpres(i)=1e+20
    109110         endif
    110111      enddo
Note: See TracChangeset for help on using the changeset viewer.