Changeset 24 for LMDZ.3.3/trunk/libf/dyn3d
- Timestamp:
- Jan 19, 2000, 9:56:51 AM (25 years ago)
- Location:
- LMDZ.3.3/trunk/libf/dyn3d
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/trunk/libf/dyn3d/etat0_netcdf.F
r11 r24 175 175 phis(:,:) = 0.0 176 176 CALL startget(varname, iip1, jjp1, rlonv, rlatu, phis, 0.0) 177 phis = phis * 9.81178 177 ! 179 178 varname = 'u' -
LMDZ.3.3/trunk/libf/dyn3d/startvar.F
r19 r24 316 316 . iml-1, jml, lon_in, lat_in, 317 317 . phis, relief, zstd, zsig, zgam, zthe, zpic, zval, tmp_int) 318 phis = phis * 9.81 318 319 ! 319 320 masque(:,:) = FLOAT(tmp_int(:,:))
Note: See TracChangeset
for help on using the changeset viewer.