- Timestamp:
- 2020-03-13T17:33:02+01:00 (4 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/TRD
- Files:
-
- 7 edited
-
trdglo.F90 (modified) (9 diffs)
-
trdini.F90 (modified) (2 diffs)
-
trdken.F90 (modified) (1 diff)
-
trdmxl.F90 (modified) (6 diffs)
-
trdmxl_rst.F90 (modified) (3 diffs)
-
trdpen.F90 (modified) (1 diff)
-
trdvor.F90 (modified) (10 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/TRD/trdglo.F90
r6486 r12555 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 ! -
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/TRD/trdini.F90
r7061 r12555 54 54 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 55 55 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 56 IF(lwm ) WRITE( numond, namtrd )56 IF(lwm .AND. nprint > 2) WRITE( numond, namtrd ) 57 57 ! 58 58 IF(lwp) THEN ! control print … … 71 71 ! 72 72 WRITE(numout,*) ' frequency of trends diagnostics (glo) nn_trd = ', nn_trd 73 IF(lflush) CALL flush(numout) 73 74 ENDIF 74 75 ! -
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/TRD/trdken.F90
r7179 r12555 285 285 WRITE(numout,*) 'trd_ken_init : 3D Kinetic Energy trends' 286 286 WRITE(numout,*) '~~~~~~~~~~~~~' 287 IF(lflush) CALL flush(numout) 287 288 ENDIF 288 289 ! ! allocate box volume arrays -
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90
r6487 r12555 393 393 IF( ln_ctl ) THEN 394 394 WRITE(numout,*) ' we reach kt == nit000 + 1 = ', nit000+1 395 IF(lflush) CALL flush(numout) 395 396 CALL prt_ctl(tab2d_1=tmlbb , clinfo1=' tmlbb - : ', mask1=tmask, ovlap=1) 396 397 CALL prt_ctl(tab2d_1=tmlbn , clinfo1=' tmlbn - : ', mask1=tmask, ovlap=1) … … 403 404 IF( ln_trdmxl_instant ) THEN 404 405 WRITE(numout,*) ' restart from kt == nit000 = ', nit000 406 IF(lflush) CALL flush(numout) 405 407 CALL prt_ctl(tab2d_1=tmlbb , clinfo1=' tmlbb - : ', mask1=tmask, ovlap=1) 406 408 CALL prt_ctl(tab2d_1=tmlbn , clinfo1=' tmlbn - : ', mask1=tmask, ovlap=1) … … 408 410 ELSE 409 411 WRITE(numout,*) ' restart from kt == nit000 = ', nit000 412 IF(lflush) CALL flush(numout) 410 413 CALL prt_ctl(tab2d_1=tmlbn , clinfo1=' tmlbn - : ', mask1=tmask, ovlap=1) 411 414 CALL prt_ctl(tab2d_1=hmxlbn , clinfo1=' hmxlbn - : ', mask1=tmask, ovlap=1) … … 633 636 WRITE(numout,*) ' TRA zsmlres (jpi/2,jpj/2) : ', zsmlres (jpi/2,jpj/2) 634 637 WRITE(numout,*) ' TRA zsmlres2(jpi/2,jpj/2) : ', zsmlres2(jpi/2,jpj/2) 638 IF(lflush) CALL flush(numout) 635 639 ! 636 640 END IF … … 764 768 READ ( numnam_cfg, namtrd_mxl, IOSTAT = ios, ERR = 902 ) 765 769 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist', lwp ) 766 IF(lwm ) WRITE( numond, namtrd_mxl )770 IF(lwm .AND. nprint > 2) WRITE( numond, namtrd_mxl ) 767 771 ! 768 772 IF(lwp) THEN ! control print … … 778 782 WRITE(numout,*) ' unit conversion factor rn_ucf = ', rn_ucf 779 783 WRITE(numout,*) ' criteria to compute the MLD rn_rho_c = ', rn_rho_c 784 IF(lflush) CALL flush(numout) 780 785 ENDIF 781 786 -
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_rst.F90
r9321 r12555 69 69 ELSE ; WRITE(numout,*) ' kt = ' , kt,' date= ', ndastp 70 70 ENDIF 71 IF(lflush) CALL flush(numout) 71 72 ENDIF 72 73 … … 79 80 WRITE(numout,*) '~~~~~~~~~~' 80 81 WRITE(numout,*) 82 IF(lflush) CALL flush(numout) 81 83 ENDIF 82 84 IF(nn_timing == 2) CALL timing_start('iom_rstput') … … 145 147 WRITE(numout,*) ' trd_mxl_rst_read : read the NetCDF mixed layer trend restart file' 146 148 WRITE(numout,*) ' ~~~~~~~~~~~~~~~~' 149 IF(lflush) CALL flush(numout) 147 150 ENDIF 148 151 -
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90
r7179 r12555 144 144 WRITE(numout,*) 'trd_pen_init : 3D Potential ENergy trends' 145 145 WRITE(numout,*) '~~~~~~~~~~~~~' 146 IF(lflush) CALL flush(numout) 146 147 ENDIF 147 148 ! ! allocate box volume arrays -
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor.F90
r6486 r12555 209 209 IF( ndebug /= 0 ) THEN 210 210 IF(lwp) WRITE(numout,*) ' debuging trd_vor_zint: I done' 211 CALL FLUSH(numout)211 IF(lwp .AND. lflush) CALL flush(numout) 212 212 ENDIF 213 213 ! … … 305 305 IF( ndebug /= 0 ) THEN 306 306 IF(lwp) WRITE(numout,*) ' debuging trd_vor_zint: I done' 307 CALL FLUSH(numout)307 IF(lwp .AND. lflush) CALL flush(numout) 308 308 ENDIF 309 309 ! … … 434 434 WRITE(numout,*) 'trd_vor : write trends in the NetCDF file at kt = ', kt 435 435 WRITE(numout,*) '~~~~~~~ ' 436 IF(lflush) CALL flush(numout) 436 437 ENDIF 437 438 … … 452 453 IF( ndebug /= 0 ) THEN 453 454 WRITE(numout,*) ' debuging trd_vor: III.4 done' 454 CALL FLUSH(numout)455 IF(lwp .AND. lflush) CALL flush(numout) 455 456 ENDIF 456 457 ! … … 497 498 WRITE(numout,*) ' ##########################################################################' 498 499 WRITE(numout,*) ' ' 500 IF(lflush) CALL flush(numout) 499 501 ENDIF 500 502 … … 510 512 IF( ndebug /= 0 ) THEN 511 513 WRITE(numout,*) ' debuging trd_vor_init: I. done' 512 CALL FLUSH(numout)514 IF(lflush) CALL flush(numout) 513 515 ENDIF 514 516 … … 533 535 534 536 IF(lwp) WRITE(numout,*) ' netCDF initialization' 537 IF(lwp .AND. lflush) CALL flush(numout) 535 538 536 539 ! II.2 Compute julian date from starting date of the run … … 542 545 & ' YEAR ', nyear,' MONTH ' , nmonth, & 543 546 & ' DAY ' , nday, 'Julian day : ', zjulian 547 IF(lwp .AND. lflush) CALL flush(numout) 544 548 545 549 ! II.3 Define the T grid trend file (nidvor) … … 547 551 CALL dia_nam( clhstnam, nn_trd, 'vort' ) ! filename 548 552 IF(lwp) WRITE(numout,*) ' Name of NETCDF file ', clhstnam 553 IF(lwp .AND. lflush) CALL flush(numout) 549 554 CALL histbeg( clhstnam, jpi, glamf, jpj, gphif,1, jpi, & ! Horizontal grid : glamt and gphit 550 555 & 1, jpj, nit000-1, zjulian, rdt, nh_t, nidvor, domain_id=nidom, snc4chunks=snc4set ) … … 582 587 IF( ndebug /= 0 ) THEN 583 588 WRITE(numout,*) ' debuging trd_vor_init: II. done' 584 CALL FLUSH(numout)589 IF(lflush) CALL flush(numout) 585 590 ENDIF 586 591 !
Note: See TracChangeset
for help on using the changeset viewer.
