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 11101 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90 – NEMO

Ignore:
Timestamp:
2019-06-11T16:10:28+02:00 (5 years ago)
Author:
frrh
Message:

Merge changes from Met Office GMED ticket 450 to reduce unnecessary
text output from NEMO.
This output, which is typically not switchable, is rarely of interest
in normal (non-debugging) runs and simply redunantley consumes extra
file space.
Further, the presence of this text output has been shown to
significantly degrade performance of models which are run during
Met Office HPC RAID (disk) checks.
The new code introduces switches which are configurable via the
changes made in the associated Met Office MOCI ticket 399.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90

    r10477 r11101  
    767767            &                    TRIM( c_asmbal ) // ' at timestep = ', kt 
    768768      ENDIF 
     769 
     770      IF(lwp .AND. lflush) CALL flush(numout) 
    769771                                  
    770772   END SUBROUTINE asm_bgc_bal_wri 
     
    11401142      ENDIF 
    11411143      ! 
     1144      IF(lwp .AND. lflush) CALL flush(numout) 
    11421145   END SUBROUTINE phyto2d_asm_inc 
    11431146 
     
    13271330      ENDIF 
    13281331      ! 
     1332      IF(lwp .AND. lflush) CALL flush(numout) 
    13291333   END SUBROUTINE phyto3d_asm_inc 
    13301334 
     
    15981602      ENDIF 
    15991603      ! 
     1604      IF(lwp .AND. lflush) CALL flush(numout) 
    16001605   END SUBROUTINE pco2_asm_inc 
    16011606 
     
    18211826#endif       
    18221827      ! 
     1828      IF(lwp .AND. lflush) CALL flush(numout) 
     1829 
    18231830   END SUBROUTINE ph_asm_inc 
    18241831 
     
    21862193      ENDIF 
    21872194      ! 
     2195      IF(lwp .AND. lflush) CALL flush(numout) 
    21882196   END SUBROUTINE bgc3d_asm_inc 
    21892197 
Note: See TracChangeset for help on using the changeset viewer.