Ignore:
Timestamp:
Aug 28, 2009, 11:13:28 AM (15 years ago)
Author:
musat
Message:

Pour la coherence avec netcdf : on met les memes _Fillvalue pour les variables a un niveau de pression
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/plevel_new.F

    r1232 r1233  
    77c================================================================
    88c================================================================
     9      USE netcdf
    910      USE dimphy
    1011      IMPLICIT none
    … …  
    5556c$OMP THREADPRIVATE(first)
    5657      INTEGER i, k
     58c
     59      REAL missing_val
     60c
     61      missing_val=nf90_fill_real
    5762c
    5863      if (first) then
    … …  
    120125         DO i=1,klon
    121126            IF (pgcm(i,1).LT.pres(nlev)) THEN
    122 c     Qpres(i)=1e33
    123                Qpres(i,nlev) = 1e+20
     127               Qpres(i,nlev) = missing_val
    124128            ELSE
    125129               Qpres(i,nlev) =
Note: See TracChangeset for help on using the changeset viewer.