New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10986 for NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/tranxt.F90 – NEMO

Ignore:
Timestamp:
2019-05-16T15:23:56+02:00 (5 years ago)
Author:
andmirek
Message:

GMED 462 add flush

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/tranxt.F90

    r10888 r10986  
    9595      IF( ln_timing )   CALL timing_start( 'tra_nxt') 
    9696      ! 
    97       IF( kt == nit000 ) THEN 
    98          IF(lwp) WRITE(numout,*) 
    99          IF(lwp) WRITE(numout,*) 'tra_nxt : achieve the time stepping by Asselin filter and array swap' 
    100          IF(lwp) WRITE(numout,*) '~~~~~~~' 
     97      IF( kt == nit000 .AND. lwp) THEN 
     98         WRITE(numout,*) 
     99         WRITE(numout,*) 'tra_nxt : achieve the time stepping by Asselin filter and array swap' 
     100         WRITE(numout,*) '~~~~~~~' 
     101         IF(lflush) CALL FLUSH(numout) 
    101102      ENDIF 
    102103 
    … …  
    213214      !!---------------------------------------------------------------------- 
    214215      ! 
    215       IF( kt == kit000 )  THEN 
    216          IF(lwp) WRITE(numout,*) 
    217          IF(lwp) WRITE(numout,*) 'tra_nxt_fix : time stepping', cdtype 
    218          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
     216      IF( kt == kit000 .AND. lwp)  THEN 
     217         WRITE(numout,*) 
     218         WRITE(numout,*) 'tra_nxt_fix : time stepping', cdtype 
     219         WRITE(numout,*) '~~~~~~~~~~~' 
     220         IF(lflush) CALL FLUSH(numout) 
    219221      ENDIF 
    220222      ! 
    … …  
    271273      !!---------------------------------------------------------------------- 
    272274      ! 
    273       IF( kt == kit000 )  THEN 
    274          IF(lwp) WRITE(numout,*) 
    275          IF(lwp) WRITE(numout,*) 'tra_nxt_vvl : time stepping', cdtype 
    276          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
     275      IF( kt == kit000 .AND. lwp)  THEN 
     276         WRITE(numout,*) 
     277         WRITE(numout,*) 'tra_nxt_vvl : time stepping', cdtype 
     278         WRITE(numout,*) '~~~~~~~~~~~' 
     279         IF(lflush) CALL FLUSH(numout) 
    277280      ENDIF 
    278281      ! 
Note: See TracChangeset for help on using the changeset viewer.