Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor.F90
- Timestamp:
- 2020-03-13T17:33:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.