Changeset 1234 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/plevel.F
- Timestamp:
- Aug 28, 2009, 11:26:56 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/phylmd/plevel.F
r866 r1234 7 7 c================================================================ 8 8 c================================================================ 9 USE netcdf 9 10 USE dimphy 10 11 IMPLICIT none … … 54 55 c$OMP THREADPRIVATE(first) 55 56 INTEGER i, k 57 c 58 REAL missing_val 59 c 60 missing_val=nf90_fill_real 56 61 c 57 62 if (first) then … … 119 124 do i = 1, klon 120 125 if (pgcm(i,1).LT.pres) THEN 121 c Qpres(i)=1e33 122 Qpres(i)=1e+20 126 Qpres(i)=missing_val 123 127 endif 124 128 enddo
Note: See TracChangeset
for help on using the changeset viewer.