- 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/zdfdrg.F90
r10968 r10986 254 254 WRITE(numout,*) ' logarithmic drag: Cd = vkarmn/log(z/z0) ln_loglayer = ', ln_loglayer 255 255 WRITE(numout,*) ' implicit friction ln_drgimp = ', ln_drgimp 256 IF(lflush) CALL FLUSH(numout) 256 257 ENDIF 257 258 ! … … 356 357 WRITE(numout,*) ' set a regional boost of Cd0 ln_boost = ', ln_boost 357 358 WRITE(numout,*) ' associated boost factor rn_boost = ', rn_boost 359 IF(lflush) CALL FLUSH(numout) 358 360 ENDIF 359 361 ! … … 367 369 ! 368 370 IF( ln_boost ) THEN !* regional boost: boost factor = 1 + regional boost 369 IF(lwp) WRITE(numout,*) 370 IF(lwp) WRITE(numout,*) ' ==>>> use a regional boost read in ', TRIM(cl_file), ' file' 371 IF(lwp) WRITE(numout,*) ' using enhancement factor of ', rn_boost 371 IF(lwp) THEN 372 WRITE(numout,*) 373 WRITE(numout,*) ' ==>>> use a regional boost read in ', TRIM(cl_file), ' file' 374 WRITE(numout,*) ' using enhancement factor of ', rn_boost 375 IF(lflush) CALL FLUSH(numout) 376 ENDIF 372 377 ! cl_varname is a coefficient in [0,1] giving where to apply the regional boost 373 378 CALL iom_open ( TRIM(cl_file), inum ) … … 451 456 CALL ctl_stop( 'drg_init: bad flag value for ndrg ' ) 452 457 END SELECT 458 IF(lwp .AND. lflush) CALL FLUSH(numout) 453 459 ! 454 460 END SUBROUTINE drg_init
Note: See TracChangeset
for help on using the changeset viewer.