- 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/DOM/domwri.F90
r10888 r10986 63 63 !!---------------------------------------------------------------------- 64 64 ! 65 IF(lwp) WRITE(numout,*) 66 IF(lwp) WRITE(numout,*) 'dom_wri : create NetCDF mesh and mask information file(s)' 67 IF(lwp) WRITE(numout,*) '~~~~~~~' 65 IF(lwp) THEN 66 WRITE(numout,*) 67 WRITE(numout,*) 'dom_wri : create NetCDF mesh and mask information file(s)' 68 WRITE(numout,*) '~~~~~~~' 69 IF(lflush) CALL FLUSH(numout) 70 ENDIF 68 71 69 72 clnam = 'mesh_mask' ! filename (mesh and mask informations) … … 283 286 WRITE(numout,*) 'dom_stiff : maximum grid stiffness ratio: ', zrxmax 284 287 WRITE(numout,*) '~~~~~~~~~' 288 IF(lflush) CALL FLUSH(numout) 285 289 ENDIF 286 290 !
Note: See TracChangeset
for help on using the changeset viewer.