Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90
- Timestamp:
- 2020-03-13T17:33:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90
r6486 r12555 126 126 READ ( numnam_cfg, namdyn_nept, IOSTAT = ios, ERR = 902 ) 127 127 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in configuration namelist', lwp ) 128 IF(lwm ) WRITE ( numond, namdyn_nept )128 IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_nept ) 129 129 130 130 IF(lwp) THEN ! Control print … … 145 145 WRITE(numout,*) 146 146 ENDIF 147 IF(lflush) CALL flush(numout) 147 148 ENDIF 148 149 ! … … 304 305 CALL lbc_lnk( zunep, 'U', -1.0_wp ) 305 306 CALL lbc_lnk( zvnep, 'V', -1.0_wp ) 306 WRITE(numout,*) ' zunep: min, max = ', unemin,unemax 307 WRITE(numout,*) ' zvnep: min, max = ', vnemin,vnemax 308 WRITE(numout,*) 307 IF(lwp .AND. nprint > 0) THEN 308 WRITE(numout,*) ' zunep: min, max = ', unemin,unemax 309 WRITE(numout,*) ' zvnep: min, max = ', vnemin,vnemax 310 WRITE(numout,*) 311 ENDIF 309 312 310 313 !! Compute, once and for all, the horizontal divergence (zhdivnep) … … 328 331 END DO 329 332 END DO 330 WRITE(numout,*) ' zhdivnep: min, max = ', zhdivmin,zhdivmax 331 WRITE(numout,*) ' zmrotnep: min, max = ', zmrotmin,zmrotmax 332 WRITE(numout,*) 333 334 IF(lwp .AND. nprint > 0) THEN 335 WRITE(numout,*) ' zhdivnep: min, max = ', zhdivmin,zhdivmax 336 WRITE(numout,*) ' zmrotnep: min, max = ', zmrotmin,zmrotmax 337 WRITE(numout,*) 338 IF(lflush) CALL flush(numout) 339 ENDIF 333 340 334 341 !! Deallocate temporary workspace arrays, which are all local to … … 384 391 IF(lwp) WRITE(numout,*) 'horizontal velocity divergence and' 385 392 IF(lwp) WRITE(numout,*) 'relative vorticity of Neptune flow' 393 IF(lwp .AND. lflush) CALL flush(numout) 386 394 #if defined key_noslip_accurate 387 395 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.