Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/extrapol.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/extrapol.F
r774 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 C … … 158 158 jlat = jy(k) 159 159 pwork(i,j) = pwork(i,j) 160 $ + pfild(ilon,jlat) * zmask(k)/ FLOAT(inbor)160 $ + pfild(ilon,jlat) * zmask(k)/ REAL(inbor) 161 161 ENDDO 162 162 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.