Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/startvar.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/startvar.F
r1293 r1299 352 352 phis = phis * 9.81 353 353 ! 354 ! masque(:,:) = FLOAT(tmp_int(:,:))354 ! masque(:,:) = REAL(tmp_int(:,:)) 355 355 ! 356 356 ! Compute surface roughness
Note: See TracChangeset
for help on using the changeset viewer.