Changeset 1233 for LMDZ4/trunk/libf/phylmd/plevel_new.F
- Timestamp:
- Aug 28, 2009, 11:13:28 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/plevel_new.F
r1232 r1233 7 7 c================================================================ 8 8 c================================================================ 9 USE netcdf 9 10 USE dimphy 10 11 IMPLICIT none … … 55 56 c$OMP THREADPRIVATE(first) 56 57 INTEGER i, k 58 c 59 REAL missing_val 60 c 61 missing_val=nf90_fill_real 57 62 c 58 63 if (first) then … … 120 125 DO i=1,klon 121 126 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 124 128 ELSE 125 129 Qpres(i,nlev) =
Note: See TracChangeset
for help on using the changeset viewer.