- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r9583 r11101 1214 1214 IF(lwp) WRITE(numout,*) 'tra_kpp : KPP non-local tracer fluxes' 1215 1215 IF(lwp) WRITE(numout,*) '~~~~~~~ ' 1216 IF(lflush) CALL flush(numout) 1216 1217 ENDIF 1217 1218 … … 1286 1287 IF(lwp) WRITE(numout,*) 'trc_kpp : KPP non-local tracer fluxes' 1287 1288 IF(lwp) WRITE(numout,*) '~~~~~~~ ' 1289 IF(lflush) CALL flush(numout) 1288 1290 ENDIF 1289 1291 … … 1369 1371 READ ( numnam_cfg, namzdf_kpp, IOSTAT = ios, ERR = 902 ) 1370 1372 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in configuration namelist', lwp ) 1371 IF(lwm ) WRITE ( numond, namzdf_kpp )1373 IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_kpp ) 1372 1374 1373 1375 IF(lwp) THEN ! Control print … … 1384 1386 WRITE(numout,*) ' max. mix. in interior convec. rn_difcon = ', rn_difcon 1385 1387 WRITE(numout,*) ' horizontal average flag nn_ave = ', nn_ave 1388 IF(lflush) CALL flush(numout) 1386 1389 ENDIF 1387 1390 … … 1410 1413 ENDIF 1411 1414 ENDIF 1415 1416 IF(lwp .AND. lflush) CALL flush(numout) 1412 1417 1413 1418 … … 1421 1426 WRITE(numout,*) ' Constant value for unreso. turbul. velocity shear Vtc = ', Vtc 1422 1427 WRITE(numout,*) ' Non-dimensional coef. for nonlocal transport rcg = ', rcg 1428 IF(lflush) CALL flush(numout) 1423 1429 ENDIF 1424 1430 … … 1438 1444 IF(lwp) WRITE(numout,*) ' no horizontal average on avt, avmu, avmv' 1439 1445 IF(lwp) WRITE(numout,*) ' only in very high horizontal resolution !' 1446 IF(lwp .AND. lflush) CALL flush(numout) 1440 1447 ! weighting mean arrays etmean, eumean and evmean 1441 1448 ! ( 1 1 ) ( 1 ) … … 1464 1471 CASE ( 1 ) ! horizontal average 1465 1472 IF(lwp) WRITE(numout,*) ' horizontal average on avt, avmu, avmv' 1473 IF(lwp .AND. lflush) CALL flush(numout) 1466 1474 ! weighting mean arrays etmean, eumean and evmean 1467 1475 ! ( 1/2 1 1/2 ) ( 1/2 1/2 ) ( 1/2 1 1/2 )
Note: See TracChangeset
for help on using the changeset viewer.