Changeset 59
- Timestamp:
- 2004-04-22T13:41:32+02:00 (20 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 5 deleted
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DTA/dtasal.F90
r42 r59 132 132 WRITE(numout,*) ' itime ',itime,' jpmois ',jpmois 133 133 ENDIF 134 STOP 'dta sal_monthly.h90'134 STOP 'dta_sal' 135 135 ENDIF 136 136 IF( ipi /= jpidta .AND. ipj /= jpjdta .AND. ipk /= jpk ) THEN … … 142 142 WRITE(numout,*) ' ipk ',ipk,' jpk ',jpk 143 143 ENDIF 144 STOP 'dta sal_monthly.h90'144 STOP 'dta_sal' 145 145 ENDIF 146 146 IF(lwp)WRITE(numout,*) itime,istep,zdate0,rdt,numsdt
Note: See TracChangeset
for help on using the changeset viewer.