Changeset 450 for trunk/NEMO/OPA_SRC/DOM/domzgr.F90
- Timestamp:
- 2006-04-28T14:24:20+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domzgr.F90
r411 r450 442 442 itime, 1, 1, 1, jpidta, 1, jpjdta, zdta(:,:) ) 443 443 CALL flinclo( inum ) 444 idta(:,:) = jpkm1 ! initialisation 444 445 ELSE 445 446 IF(lwp) WRITE(numout,cform_err)
Note: See TracChangeset
for help on using the changeset viewer.