- Timestamp:
- 2019-05-16T15:23:56+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfric.F90
r10968 r10986 101 101 WRITE(numout,*) ' Vertical eddy Diff. in the ML rn_wtmix = ', rn_wtmix 102 102 WRITE(numout,*) ' Vertical eddy Visc. in the ML rn_wvmix = ', rn_wvmix 103 IF(lflush) CALL FLUSH(numout) 103 104 ENDIF 104 105 ! … … 234 235 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 235 236 ! ! ------------------- 236 IF(lwp) WRITE(numout,*) '---- ric-rst ----' 237 IF(lwp .AND. nprint > 0) THEN 238 WRITE(numout,*) '---- ric-rst ----' 239 IF(lflush) CALL FLUSH(numout) 240 ENDIF 237 241 IF( lwxios ) CALL iom_swap( cwxios_context ) 238 242 CALL iom_rstput( kt, nitrst, numrow, 'avt_k', avt_k, ldxios = lwxios )
Note: See TracChangeset
for help on using the changeset viewer.