Changeset 174 for trunk/NEMO/OPA_SRC/LDF/ldfdyn.F90
- Timestamp:
- 2004-11-05T14:59:50+01:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfdyn.F90
r71 r174 339 339 WRITE(numout,'(" jk ahm "," depth t-level " )') 340 340 DO jk = 1, jpk 341 WRITE(numout,'(i6,2f12.4,3x,2f12.4)') jk, pah( :,:,jk), pdep(jk)341 WRITE(numout,'(i6,2f12.4,3x,2f12.4)') jk, pah(1,1,jk), pdep(jk) 342 342 END DO 343 343 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.