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/DYN/dynvor.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/DYN/dynvor.F90

    r10968 r10986  
    220220         IF(lwp) WRITE(numout,*) 'dyn:vor_enT : vorticity term: t-point energy conserving scheme' 
    221221         IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
     222         IF(lflush) CALL FLUSH(numout) 
    222223      ENDIF 
    223224      ! 
    … …  
    352353      !!---------------------------------------------------------------------- 
    353354      ! 
    354       IF( kt == nit000 ) THEN 
    355          IF(lwp) WRITE(numout,*) 
    356          IF(lwp) WRITE(numout,*) 'dyn:vor_ene : vorticity term: energy conserving scheme' 
    357          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
     355      IF( kt == nit000 .AND. lwp) THEN 
     356         WRITE(numout,*) 
     357         WRITE(numout,*) 'dyn:vor_ene : vorticity term: energy conserving scheme' 
     358         WRITE(numout,*) '~~~~~~~~~~~' 
     359         IF(lflush) CALL FLUSH(numout) 
    358360      ENDIF 
    359361      ! 
    … …  
    460462      !!---------------------------------------------------------------------- 
    461463      ! 
    462       IF( kt == nit000 ) THEN 
    463          IF(lwp) WRITE(numout,*) 
    464          IF(lwp) WRITE(numout,*) 'dyn:vor_ens : vorticity term: enstrophy conserving scheme' 
    465          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
     464      IF( kt == nit000 .AND. lwp) THEN 
     465         WRITE(numout,*) 
     466         WRITE(numout,*) 'dyn:vor_ens : vorticity term: enstrophy conserving scheme' 
     467         WRITE(numout,*) '~~~~~~~~~~~' 
     468         IF(lflush) CALL FLUSH(numout) 
    466469      ENDIF 
    467470      !                                                ! =============== 
    … …  
    568571      !!---------------------------------------------------------------------- 
    569572      ! 
    570       IF( kt == nit000 ) THEN 
    571          IF(lwp) WRITE(numout,*) 
    572          IF(lwp) WRITE(numout,*) 'dyn:vor_een : vorticity term: energy and enstrophy conserving scheme' 
    573          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
     573      IF( kt == nit000 .AND. lwp) THEN 
     574         WRITE(numout,*) 
     575         WRITE(numout,*) 'dyn:vor_een : vorticity term: energy and enstrophy conserving scheme' 
     576         WRITE(numout,*) '~~~~~~~~~~~' 
     577         IF(lflush) CALL FLUSH(numout) 
    574578      ENDIF 
    575579      ! 
    … …  
    725729      !!---------------------------------------------------------------------- 
    726730      ! 
    727       IF( kt == nit000 ) THEN 
    728          IF(lwp) WRITE(numout,*) 
    729          IF(lwp) WRITE(numout,*) 'dyn:vor_een : vorticity term: energy and enstrophy conserving scheme' 
    730          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
     731      IF( kt == nit000 .AND. lwp) THEN 
     732         WRITE(numout,*) 
     733         WRITE(numout,*) 'dyn:vor_een : vorticity term: energy and enstrophy conserving scheme' 
     734         WRITE(numout,*) '~~~~~~~~~~~' 
     735         IF(lflush) CALL FLUSH(numout) 
    731736      ENDIF 
    732737      ! 
    … …  
    847852         WRITE(numout,*) 'dyn_vor_init : vorticity term : read namelist and control the consistency' 
    848853         WRITE(numout,*) '~~~~~~~~~~~~' 
     854         IF(lflush) CALL FLUSH(numout) 
    849855      ENDIF 
    850856      ! 
    … …  
    867873         WRITE(numout,*) '      mixed enstrophy/energy conserving scheme       ln_dynvor_mix = ', ln_dynvor_mix 
    868874         WRITE(numout,*) '      masked (=T) or unmasked(=F) vorticity          ln_dynvor_msk = ', ln_dynvor_msk 
     875         IF(lflush) CALL FLUSH(numout) 
    869876      ENDIF 
    870877 
    … …  
    874881      ! If energy, enstrophy or mixed advection of momentum in vector form change the value for masks 
    875882      ! at angles with three ocean points and one land point 
    876       IF(lwp) WRITE(numout,*) 
    877       IF(lwp) WRITE(numout,*) '      change fmask value in the angles (T)           ln_vorlat = ', ln_vorlat 
     883      IF(lwp) THEN 
     884         WRITE(numout,*) 
     885         WRITE(numout,*) '      change fmask value in the angles (T)           ln_vorlat = ', ln_vorlat 
     886         IF(lflush) CALL FLUSH(numout) 
     887      ENDIF 
    878888      IF( ln_vorlat .AND. ( ln_dynvor_ene .OR. ln_dynvor_ens .OR. ln_dynvor_mix ) ) THEN 
    879889         DO jk = 1, jpk 
    … …  
    951961         CASE( np_MIX )   ;   WRITE(numout,*) '   ==>>>   mixed enstrophy/energy conserving scheme (MIX)' 
    952962         END SELECT          
     963         IF(lflush) CALL FLUSH(numout) 
    953964      ENDIF 
    954965      ! 
Note: See TracChangeset for help on using the changeset viewer.