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/sshwzv.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/sshwzv.F90

    r10888 r10986  
    7777      IF( ln_timing )   CALL timing_start('ssh_nxt') 
    7878      ! 
    79       IF( kt == nit000 ) THEN 
    80          IF(lwp) WRITE(numout,*) 
    81          IF(lwp) WRITE(numout,*) 'ssh_nxt : after sea surface height' 
    82          IF(lwp) WRITE(numout,*) '~~~~~~~ ' 
     79      IF( kt == nit000 .AND. lwp) THEN 
     80         WRITE(numout,*) 
     81         WRITE(numout,*) 'ssh_nxt : after sea surface height' 
     82         WRITE(numout,*) '~~~~~~~ ' 
     83         IF(lflush) CALL FLUSH(numout) 
    8384      ENDIF 
    8485      ! 
    … …  
    152153      ! 
    153154      IF( kt == nit000 ) THEN 
    154          IF(lwp) WRITE(numout,*) 
    155          IF(lwp) WRITE(numout,*) 'wzv : now vertical velocity ' 
    156          IF(lwp) WRITE(numout,*) '~~~~~ ' 
     155         IF(lwp) THEN 
     156            WRITE(numout,*) 
     157            WRITE(numout,*) 'wzv : now vertical velocity ' 
     158            WRITE(numout,*) '~~~~~ ' 
     159            IF(lflush) CALL FLUSH(numout) 
     160         ENDIF 
    157161         ! 
    158162         wn(:,:,jpk) = 0._wp                  ! bottom boundary condition: w=0 (set once for all) 
    … …  
    240244      IF( ln_timing )   CALL timing_start('ssh_swp') 
    241245      ! 
    242       IF( kt == nit000 ) THEN 
    243          IF(lwp) WRITE(numout,*) 
    244          IF(lwp) WRITE(numout,*) 'ssh_swp : Asselin time filter and swap of sea surface height' 
    245          IF(lwp) WRITE(numout,*) '~~~~~~~ ' 
     246      IF( kt == nit000 .AND. lwp) THEN 
     247         WRITE(numout,*) 
     248         WRITE(numout,*) 'ssh_swp : Asselin time filter and swap of sea surface height' 
     249         WRITE(numout,*) '~~~~~~~ ' 
     250         IF(lflush) CALL FLUSH(numout) 
    246251      ENDIF 
    247252      !              !==  Euler time-stepping: no filter, just swap  ==! 
    … …  
    294299      ! 
    295300      IF( kt == nit000 ) THEN 
    296          IF(lwp) WRITE(numout,*) 
    297          IF(lwp) WRITE(numout,*) 'wAimp : Courant number-based partitioning of now vertical velocity ' 
    298          IF(lwp) WRITE(numout,*) '~~~~~ ' 
     301         IF(lwp) THEN 
     302            WRITE(numout,*) 
     303            WRITE(numout,*) 'wAimp : Courant number-based partitioning of now vertical velocity ' 
     304            WRITE(numout,*) '~~~~~ ' 
     305            IF(lflush) CALL FLUSH(numout) 
     306         ENDIF 
    299307         ! 
    300308         Cu_adv(:,:,jpk) = 0._wp              ! bottom value : Cu_adv=0 (set once for all) 
Note: See TracChangeset for help on using the changeset viewer.