Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
- Timestamp:
- 2019-03-19T12:32:19+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r10759 r10774 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 … … 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.