- 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/TRD/trdglo.F90
r6486 r11101 285 285 WRITE (numout,9513) umo(jpdyn_tau) / tvolu, vmo(jpdyn_tau) / tvolv 286 286 IF( ln_bfrimp ) WRITE (numout,9514) umo(jpdyn_bfri) / tvolu, vmo(jpdyn_bfri) / tvolv 287 IF(lflush) CALL flush(numout) 287 288 ENDIF 288 289 … … 324 325 WRITE (numout,9533) hke(jpdyn_tau) / tvolt 325 326 IF( ln_bfrimp ) WRITE (numout,9534) hke(jpdyn_bfri) / tvolt 327 IF(lflush) CALL flush(numout) 326 328 ENDIF 327 329 … … 356 358 WRITE (numout,*) 357 359 WRITE (numout,*) 360 IF(lflush) CALL flush(numout) 358 361 ENDIF 359 362 … … 424 427 & ( smo(jptra_xad) + smo(jptra_yad) + smo(jptra_zad) + smo(jptra_ldf) + smo(jptra_zdf) & 425 428 & + smo(jptra_npc) + smo(jptra_dmp) + smo(jptra_nsr) ) / tvolt 429 IF(lflush) CALL flush(numout) 426 430 ENDIF 427 431 … … 459 463 & ( s2(jptra_xad) + s2(jptra_yad) + s2(jptra_zad) + s2(jptra_ldf) + s2(jptra_zdf) & 460 464 & + s2(jptra_npc) + s2(jptra_dmp) + s2(jptra_nsr) ) / tvolt 465 IF(lflush) CALL flush(numout) 461 466 ENDIF 462 467 … … 491 496 WRITE (numout,9448) t2(jptra_zdf)/tvolt, s2(jptra_zdf)/tvolt 492 497 WRITE (numout,9449) t2(jptra_npc)/tvolt, s2(jptra_npc)/tvolt 498 IF(lflush) CALL flush(numout) 493 499 ENDIF 494 500 … … 524 530 WRITE(numout,*) 'trd_glo_init : integral constraints properties trends' 525 531 WRITE(numout,*) '~~~~~~~~~~~~~' 532 IF(lflush) CALL flush(numout) 526 533 ENDIF 527 534 … … 534 541 535 542 IF(lwp) WRITE(numout,*) ' total ocean volume at T-point tvolt = ',tvolt 543 IF(lwp .AND. lflush) CALL flush(numout) 536 544 537 545 ! Initialization of potential to kinetic energy conversion … … 557 565 WRITE(numout,*) ' total ocean volume at U-point tvolu = ',tvolu 558 566 WRITE(numout,*) ' total ocean volume at V-point tvolv = ',tvolv 567 IF(lflush) CALL flush(numout) 559 568 ENDIF 560 569 !
Note: See TracChangeset
for help on using the changeset viewer.