Changeset 611 for trunk/NEMO/OPA_SRC/restart.F90
- Timestamp:
- 2007-02-21T10:24:26+01:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/restart.F90
r593 r611 82 82 ENDIF 83 83 ! create the file 84 IF(lwp) WRITE(numout,*)85 84 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart" 86 IF(lwp) WRITE(numout,*) ' open ocean restart.output NetCDF file: '//clname 85 IF(lwp) THEN 86 WRITE(numout,*) 87 WRITE(numout,*) ' open ocean restart.output NetCDF file: '//clname 88 IF( kt == nitrst-1 ) THEN 89 WRITE(numout,*) ' kt = nitrst - 1 = ', kt,' date= ', ndastp 90 ELSE 91 WRITE(numout,*) ' kt = ', kt,' date= ', ndastp 92 ENDIF 93 ENDIF 94 87 95 CALL iom_open( clname, numrow, ldwrt = .TRUE., kiolib = jprstlib ) 88 96 lrst_oce = .TRUE. … … 103 111 INTEGER, INTENT(in) :: kt ! ocean time-step 104 112 !!---------------------------------------------------------------------- 105 106 IF(lwp) THEN107 WRITE(numout,*)108 WRITE(numout,*) 'rst_write : write ocean NetCDF restart file kt =', kt,' date= ', ndastp109 WRITE(numout,*) '~~~~~~~~~'110 ENDIF111 113 112 114 ! calendar control
Note: See TracChangeset
for help on using the changeset viewer.