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 10759 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF – NEMO

Ignore:
Timestamp:
2019-03-15T12:06:27+01:00 (5 years ago)
Author:
andmirek
Message:

GMED 450 write output.namelist.dyn only for nprint > 2

Location:
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

    r6486 r10759  
    257257      READ  ( numnam_cfg, nambfr, IOSTAT = ios, ERR = 902 ) 
    258258902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwp ) 
    259       IF(lwm) WRITE ( numond, nambfr ) 
     259      IF(lwm .AND. nprint > 2) WRITE ( numond, nambfr ) 
    260260      IF(lwp) WRITE(numout,*) 
    261261      IF(lwp) WRITE(numout,*) 'zdf_bfr_init : momentum bottom friction' 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

    r6498 r10759  
    246246      READ  ( numnam_cfg, namzdf_ddm, IOSTAT = ios, ERR = 902 ) 
    247247902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in configuration namelist', lwp ) 
    248       IF(lwm) WRITE ( numond, namzdf_ddm ) 
     248      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_ddm ) 
    249249      ! 
    250250      IF(lwp) THEN                    ! Parameter print 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r9583 r10759  
    881881      READ  ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 
    882882902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist', lwp ) 
    883       IF(lwm) WRITE ( numond, namzdf_gls ) 
     883      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_gls ) 
    884884 
    885885      IF(lwp) THEN                     !* Control print 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

    r6486 r10759  
    6464      READ  ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 
    6565902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwp ) 
    66       IF(lwm) WRITE ( numond, namzdf ) 
     66      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf ) 
    6767 
    6868      IF(lwp) THEN               !* Parameter print 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r9583 r10759  
    13691369      READ  ( numnam_cfg, namzdf_kpp, IOSTAT = ios, ERR = 902 ) 
    13701370902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in configuration namelist', lwp ) 
    1371       IF(lwm) WRITE ( numond, namzdf_kpp ) 
     1371      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_kpp ) 
    13721372 
    13731373      IF(lwp) THEN                    ! Control print 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

    r7560 r10759  
    470470         READ  ( numnam_cfg, namzdf_mldzint, IOSTAT = ios, ERR = 902 ) 
    471471902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_mldzint in configuration namelist', lwp ) 
    472          IF(lwm) WRITE ( numond, namzdf_mldzint ) 
     472         IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_mldzint ) 
    473473 
    474474         IF( nn_mld_diag > 5 )   CALL ctl_stop( 'STOP', 'zdf_mxl_ini: Specify no more than 5 MLD definitions' ) 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r9583 r10759  
    260260      READ  ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 
    261261902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp ) 
    262       IF(lwm) WRITE ( numond, namzdf_ric ) 
     262      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_ric ) 
    263263      ! 
    264264      IF(lwp) THEN                   ! Control print 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r9321 r10759  
    786786      READ  ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 ) 
    787787902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist', lwp ) 
    788       IF(lwm) WRITE ( numond, namzdf_tke ) 
     788      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_tke ) 
    789789      ! 
    790790      ri_cri   = 2._wp    / ( 2._wp + rn_ediss / rn_ediff )   ! resulting critical Richardson number 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

    r10754 r10759  
    388388      READ  ( numnam_cfg, namzdf_tmx, IOSTAT = ios, ERR = 902 ) 
    389389902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwp ) 
    390       IF(lwm) WRITE ( numond, namzdf_tmx ) 
     390      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_tmx ) 
    391391 
    392392      IF(lwp) THEN                   ! Control print 
    … …  
    973973      READ  ( numnam_cfg, namzdf_tmx_new, IOSTAT = ios, ERR = 902 ) 
    974974902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwp ) 
    975       IF(lwm) WRITE ( numond, namzdf_tmx_new ) 
     975      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_tmx_new ) 
    976976      ! 
    977977      IF(lwp) THEN                  ! Control print 
Note: See TracChangeset for help on using the changeset viewer.