Changeset 474 for trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90
- Timestamp:
- 2006-05-11T17:24:19+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r463 r474 1505 1505 1506 1506 CASE DEFAULT 1507 IF(lwp) WRITE(numout,cform_err) 1508 IF(lwp) WRITE(numout,*) ' bad flag value for nave = ', nave 1509 nstop = nstop + 1 1507 WRITE(ctmp1,*) ' bad flag value for nave = ', nave 1508 CALL ctl_opa( ctmp1 ) 1510 1509 1511 1510 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.