Changeset 10759


Ignore:
Timestamp:
2019-03-15T12:06:27+01:00 (18 months 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
Files:
69 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r10149 r10759  
    164164      READ  ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 ) 
    165165902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwp ) 
    166       IF(lwm) WRITE ( numond, nam_asminc ) 
     166      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_asminc ) 
    167167 
    168168      ! Control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90

    r8447 r10759  
    255255      READ  ( numnam_cfg, nambias, IOSTAT = ios, ERR = 902 ) 
    256256902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambias in configuration namelist', lwp ) 
    257       IF(lwm) WRITE ( numond, nambias ) 
     257      IF(lwm .AND. nprint > 2) WRITE ( numond, nambias ) 
    258258 
    259259 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r6487 r10759  
    532532            READ  ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 
    533533902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwp ) 
    534             IF(lwm) WRITE ( numond, nambdy_dta ) 
     534            IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_dta ) 
    535535 
    536536            cn_dir_array(ib_bdy) = cn_dir 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r6487 r10759  
    131131      READ  ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 
    132132902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 
    133       IF(lwm) WRITE ( numond, nambdy ) 
     133      IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy ) 
    134134 
    135135      ! ----------------------------------------- 
     
    420420            READ  ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 
    421421904         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 
    422             IF(lwm) WRITE ( numond, nambdy_index ) 
     422            IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_index ) 
    423423 
    424424            SELECT CASE ( TRIM(ctypebdy) ) 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

    r9583 r10759  
    118118            READ  ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 
    119119902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp ) 
    120             IF(lwm) WRITE ( numond, nambdy_tide ) 
     120            IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_tide ) 
    121121            !                                               ! Parameter control and print 
    122122            IF(lwp) WRITE(numout,*) '  ' 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90

    r6486 r10759  
    5656      READ  ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 ) 
    5757902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in configuration namelist', lwp ) 
    58       IF(lwm) WRITE ( numond, namc1d ) 
     58      IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d ) 
    5959 
    6060      ! 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/C1D/dtauvd.F90

    r6486 r10759  
    7373      READ  ( numnam_cfg, namc1d_uvd, IOSTAT = ios, ERR = 902 ) 
    7474902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d_uvd in configuration namelist', lwp ) 
    75       IF(lwm) WRITE ( numond, namc1d_uvd ) 
     75      IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d_uvd ) 
    7676 
    7777      !                             ! force the initialization when dyndmp is used 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/C1D/dyndmp.F90

    r6486 r10759  
    8787      READ  ( numnam_cfg, namc1d_dyndmp, IOSTAT = ios, ERR = 902 ) 
    8888902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d_dyndmp in configuration namelist', lwp ) 
    89       IF(lwm) WRITE ( numond, namc1d_dyndmp ) 
     89      IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d_dyndmp ) 
    9090 
    9191      IF(lwp) THEN                           ! control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90

    r6486 r10759  
    9393      READ  ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 
    9494902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in configuration namelist', lwp ) 
    95       IF(lwm) WRITE ( numond, namcrs ) 
     95      IF(lwm .AND. nprint > 2) WRITE ( numond, namcrs ) 
    9696 
    9797     IF(lwp) THEN 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

    r9583 r10759  
    151151     READ  ( numnam_cfg, namdct, IOSTAT = ios, ERR = 902 ) 
    152152902  IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in configuration namelist', lwp ) 
    153      IF(lwm) WRITE ( numond, namdct ) 
     153     IF(lwm .AND. nprint >2) WRITE ( numond, namdct ) 
    154154 
    155155     IF( lwp ) THEN 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90

    r6487 r10759  
    9595      READ  ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 
    9696902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist', lwp ) 
    97       IF(lwm) WRITE ( numond, nam_diaharm ) 
     97      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diaharm ) 
    9898      ! 
    9999      IF(lwp) THEN 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

    r9321 r10759  
    361361      READ  ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 
    362362902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwp ) 
    363       IF(lwm) WRITE ( numond, namhsb ) 
     363      IF(lwm .AND. nprint > 2) WRITE ( numond, namhsb ) 
    364364 
    365365      ! 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

    r9830 r10759  
    469469      READ  ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 
    470470902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist', lwp ) 
    471       IF(lwm) WRITE ( numond, namptr ) 
     471      IF(lwm .AND. nprint > 2) WRITE ( numond, namptr ) 
    472472 
    473473      IF(lwp) THEN                     ! Control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r6491 r10759  
    160160      READ  ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 
    161161902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 
    162       IF(lwm) WRITE ( numond, namrun ) 
     162      IF(lwm .AND. nprint > 2) WRITE ( numond, namrun ) 
    163163      ! 
    164164      IF(lwp) THEN                  ! control print 
     
    251251      READ  ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 
    252252904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 
    253       IF(lwm) WRITE ( numond, namdom ) 
     253      IF(lwm .AND. nprint > 2) WRITE ( numond, namdom ) 
    254254 
    255255      IF(lwp) THEN 
     
    313313      READ  ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 ) 
    314314906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 
    315       IF(lwm) WRITE( numond, namcla ) 
     315      IF(lwm .AND. nprint > 2) WRITE( numond, namcla ) 
    316316 
    317317      IF(lwp) THEN 
     
    337337      READ  ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 
    338338908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 
    339       IF(lwm) WRITE( numond, namnc4 ) 
     339      IF(lwm .AND. nprint > 2) WRITE( numond, namnc4 ) 
    340340 
    341341      IF(lwp) THEN                        ! control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r10754 r10759  
    157157      READ  ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 
    158158902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwp ) 
    159       IF(lwm) WRITE ( numond, namlbc ) 
     159      IF(lwm .AND. nprint > 2) WRITE ( numond, namlbc ) 
    160160       
    161161      IF(lwp) THEN                  ! control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r9321 r10759  
    955955      READ  ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 
    956956902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwp ) 
    957       IF(lwm) WRITE ( numond, nam_vvl ) 
     957      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_vvl ) 
    958958 
    959959      IF(lwp) THEN                    ! Namelist print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r10754 r10759  
    114114      READ  ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 
    115115902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 
    116       IF(lwm) WRITE ( numond, namzgr ) 
     116      IF(lwm .AND. nprint > 2) WRITE ( numond, namzgr ) 
    117117 
    118118      IF(lwp) THEN                     ! Control print 
     
    18291829      READ  ( numnam_cfg, namzgr_sco, IOSTAT = ios, ERR = 902 ) 
    18301830902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in configuration namelist', lwp ) 
    1831       IF(lwm) WRITE ( numond, namzgr_sco ) 
     1831      IF(lwm .AND. nprint > 2) WRITE ( numond, namzgr_sco ) 
    18321832 
    18331833      IF(lwp) THEN                           ! control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90

    r6486 r10759  
    7777      READ  ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 
    7878902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp ) 
    79       IF(lwm) WRITE ( numond, namtsd ) 
     79      IF(lwm .AND. nprint > 2) WRITE ( numond, namtsd ) 
    8080 
    8181      IF( PRESENT( ld_tradmp ) )   ln_tsd_tradmp = .TRUE.     ! forces the initialization when tradmp is used 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90

    r6486 r10759  
    108108      READ  ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 
    109109902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwp ) 
    110       IF(lwm) WRITE ( numond, namdyn_adv ) 
     110      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_adv ) 
    111111 
    112112      IF(lwp) THEN                    ! Namelist print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r8447 r10759  
    176176      READ  ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 ) 
    177177902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist', lwp ) 
    178       IF(lwm) WRITE ( numond, namdyn_hpg ) 
     178      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_hpg ) 
    179179      ! 
    180180      IF(lwp) THEN                   ! Control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90

    r6486 r10759  
    126126      READ  ( numnam_cfg, namdyn_nept, IOSTAT = ios, ERR = 902 ) 
    127127902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in configuration namelist', lwp ) 
    128       IF(lwm) WRITE ( numond, namdyn_nept ) 
     128      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_nept ) 
    129129 
    130130      IF(lwp) THEN                      ! Control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r9321 r10759  
    10881088      READ  ( numnam_cfg, namsplit, IOSTAT = ios, ERR = 902 ) 
    10891089902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in configuration namelist', lwp ) 
    1090       IF(lwm) WRITE ( numond, namsplit ) 
     1090      IF(lwm .AND. nprint > 2) WRITE ( numond, namsplit ) 
    10911091      ! 
    10921092      !         ! Max courant number for ext. grav. waves 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

    r8280 r10759  
    731731      READ  ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 
    732732902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwp ) 
    733       IF(lwm) WRITE ( numond, namdyn_vor ) 
     733      IF(lwm .AND. nprint >2) WRITE ( numond, namdyn_vor ) 
    734734 
    735735      IF(lwp) THEN                    ! Namelist print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90

    r9583 r10759  
    9696      READ  ( numnam_cfg, namflo, IOSTAT = ios, ERR = 902 ) 
    9797902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namflo in configuration namelist', lwp ) 
    98       IF(lwm) WRITE ( numond, namflo ) 
     98      IF(lwm .AND. nprint > 2) WRITE ( numond, namflo ) 
    9999      ! 
    100100      IF(lwp) THEN                  ! control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90

    r10753 r10759  
    375375      READ  ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 ) 
    376376902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwp ) 
    377       IF(lwm .AND. nprint>3) WRITE ( numond, namberg ) 
     377      IF(lwm .AND. nprint > 2) WRITE ( numond, namberg ) 
    378378#else 
    379379      IF(lwp) THEN 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r8356 r10759  
    319319      mynode = mpprank 
    320320 
    321       IF( mynode == 0 ) THEN 
     321      IF( mynode == 0 .AND. nprint > 2) THEN 
    322322         CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 
    323323         WRITE(kumond, nammpp)       
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

    r6498 r10759  
    8787      READ  ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 
    8888902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 
    89       IF(lwm) WRITE ( numond, namzgr ) 
     89      IF(lwm .AND. nprint > 2) WRITE ( numond, namzgr ) 
    9090 
    9191      IF(lwp)WRITE(numout,*) 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90

    r6486 r10759  
    8181      READ  ( numnam_cfg, namdyn_ldf, IOSTAT = ios, ERR = 902 ) 
    8282902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist', lwp ) 
    83       IF(lwm) WRITE ( numond, namdyn_ldf ) 
     83      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_ldf ) 
    8484 
    8585      IF(lwp) THEN                      ! Parameter print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra.F90

    r6486 r10759  
    8585      READ  ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 ) 
    8686902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist', lwp ) 
    87       IF(lwm) WRITE ( numond, namtra_ldf ) 
     87      IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_ldf ) 
    8888 
    8989      IF(lwp) THEN                      ! control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r6486 r10759  
    244244      READ  ( numnam_cfg, namobs, IOSTAT = ios, ERR = 902 ) 
    245245902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namobs in configuration namelist', lwp ) 
    246       IF(lwm) WRITE ( numond, namobs ) 
     246      IF(lwm .AND. nprint > 2) WRITE ( numond, namobs ) 
    247247 
    248248      ! Count number of files for each type 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

    r6498 r10759  
    260260      READ  ( numnam_cfg, namsbc_alb, IOSTAT = ios, ERR = 902 ) 
    261261902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in configuration namelist', lwp ) 
    262       IF(lwm) WRITE ( numond, namsbc_alb ) 
     262      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_alb ) 
    263263      ! 
    264264      IF(lwp) THEN                      ! Control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_rnf_1d.F90

    r10269 r10759  
    7878      READ  ( numnam_cfg, nam_cpl_rnf_1d, IOSTAT = ios, ERR = 902 ) 
    7979902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_cpl_rnf_1d in configuration namelist', lwp ) 
    80       IF(lwm) WRITE ( numond, nam_cpl_rnf_1d ) 
     80      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_cpl_rnf_1d ) 
    8181 
    8282      !                                               ! Parameter control and print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90

    r6486 r10759  
    8181         READ  ( numnam_cfg, namsbc_ana, IOSTAT = ios, ERR = 902 ) 
    8282902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in configuration namelist', lwp ) 
    83          IF(lwm) WRITE ( numond, namsbc_ana ) 
     83         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_ana ) 
    8484         ! 
    8585         IF(lwp) WRITE(numout,*)' ' 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

    r9321 r10759  
    8484         READ  ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 ) 
    8585902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist', lwp ) 
    86          IF(lwm) WRITE ( numond, namsbc_apr ) 
     86         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_apr ) 
    8787         ! 
    8888         ALLOCATE( sf_apr(1), STAT=ierror )           !* allocate and fill sf_sst (forcing structure) with sn_sst 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r6498 r10759  
    151151         READ  ( numnam_cfg, namsbc_clio, IOSTAT = ios, ERR = 902 ) 
    152152902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in configuration namelist', lwp ) 
    153          IF(lwm) WRITE ( numond, namsbc_clio ) 
     153         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_clio ) 
    154154 
    155155         ! store namelist information in an array 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r6823 r10759  
    166166902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in configuration namelist', lwp ) 
    167167 
    168          IF(lwm) WRITE( numond, namsbc_core ) 
     168         IF(lwm .AND. nprint > 2) WRITE( numond, namsbc_core ) 
    169169         !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing? 
    170170         IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 )   & 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

    r6486 r10759  
    141141         READ  ( numnam_cfg, namsbc_mfs, IOSTAT = ios, ERR = 902 ) 
    142142902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in configuration namelist', lwp ) 
    143          IF(lwm) WRITE ( numond, namsbc_mfs ) 
     143         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_mfs ) 
    144144         ! 
    145145         ! store namelist information in an array 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r10269 r10759  
    276276      READ  ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 ) 
    277277902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwp ) 
    278       IF(lwm) WRITE ( numond, namsbc_cpl ) 
     278      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_cpl ) 
    279279 
    280280      IF(lwp) THEN                        ! control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90

    r6486 r10759  
    9898         READ  ( numnam_cfg, namsbc_flx, IOSTAT = ios, ERR = 902 ) 
    9999902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist', lwp ) 
    100          IF(lwm) WRITE ( numond, namsbc_flx )  
     100         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_flx )  
    101101         ! 
    102102         !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing? 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r9975 r10759  
    895895         READ  ( numnam_cfg, namsbc_cice, IOSTAT = ios, ERR = 902 ) 
    896896902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist', lwp ) 
    897          IF(lwm) WRITE ( numond, namsbc_cice ) 
     897         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_cice ) 
    898898 
    899899         ! store namelist information in an array 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90

    r6498 r10759  
    8282         READ  ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 
    8383902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp ) 
    84          IF(lwm) WRITE ( numond, namsbc_iif ) 
     84         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_iif ) 
    8585 
    8686         ALLOCATE( sf_ice(1), STAT=ierror ) 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

    r8046 r10759  
    110110         READ  ( numnam_cfg, namsbc_isf, IOSTAT = ios, ERR = 902 ) 
    111111902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in configuration namelist', lwp ) 
    112          IF(lwm) WRITE ( numond, namsbc_isf ) 
     112         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_isf ) 
    113113 
    114114 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r9321 r10759  
    108108      READ  ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 
    109109902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 
    110       IF(lwm) WRITE ( numond, namsbc ) 
     110      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc ) 
    111111 
    112112      !                          ! overwrite namelist parameter using CPP key information 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r9321 r10759  
    282282      READ  ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 ) 
    283283902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist', lwp ) 
    284       IF(lwm) WRITE ( numond, namsbc_rnf ) 
     284      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_rnf ) 
    285285      ! 
    286286      !                                         ! Control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90

    r6486 r10759  
    175175      READ  ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 ) 
    176176902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist', lwp ) 
    177       IF(lwm) WRITE ( numond, namsbc_ssr ) 
     177      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_ssr ) 
    178178 
    179179      IF(lwp) THEN                 !* control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

    r6486 r10759  
    9090         READ  ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 
    9191902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist', lwp ) 
    92          IF(lwm) WRITE ( numond, namsbc_wave ) 
     92         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_wave ) 
    9393         ! 
    9494 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90

    r6486 r10759  
    7272       READ  ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 
    7373902    IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwp ) 
    74        IF(lwm) WRITE ( numond, nam_tide ) 
     74       IF(lwm .AND. nprint > 2) WRITE ( numond, nam_tide ) 
    7575       ! 
    7676       nb_harmo=0 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90

    r10748 r10759  
    7070      READ  ( numnam_cfg, namsol, IOSTAT = ios, ERR = 902 ) 
    7171902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in configuration namelist', lwp ) 
    72       IF(lwm) WRITE ( numond, namsol ) 
     72      IF(lwm .AND. nprint > 2) WRITE ( numond, namsol ) 
    7373 
    7474      IF(lwp) THEN                  !* Control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90

    r9321 r10759  
    268268      READ  ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 ) 
    269269902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist', lwp ) 
    270       IF(lwm) WRITE ( numond, namsto ) 
     270      IF(lwm .AND. nprint > 2) WRITE ( numond, namsto ) 
    271271 
    272272      !IF(ln_ens_rst_in) cn_storst_in = cn_mem//cn_storst_in 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

    r8447 r10759  
    12411241      READ  ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 
    12421242902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) 
    1243       IF(lwm) WRITE( numond, nameos ) 
     1243      IF(lwm .AND. nprint > 2) WRITE( numond, nameos ) 
    12441244      ! 
    12451245      rau0        = 1026._wp                 !: volumic mass of reference     [kg/m3] 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

    r7771 r10759  
    208208      READ  ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 
    209209902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwp ) 
    210       IF(lwm) WRITE ( numond, namtra_adv ) 
     210      IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_adv ) 
    211211 
    212212      IF(lwp) THEN                    ! Namelist print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90

    r6486 r10759  
    290290      READ  ( numnam_cfg, namtra_adv_mle, IOSTAT = ios, ERR = 902 ) 
    291291902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv_mle in configuration namelist', lwp ) 
    292       IF(lwm) WRITE ( numond, namtra_adv_mle ) 
     292      IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_adv_mle ) 
    293293 
    294294      IF(lwp) THEN                     ! Namelist print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90

    r6486 r10759  
    147147      READ  ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 
    148148902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwp ) 
    149       IF(lwm) WRITE ( numond, nambbc ) 
     149      IF(lwm .AND. nprint > 2) WRITE ( numond, nambbc ) 
    150150 
    151151      IF(lwp) THEN                     ! Control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r10681 r10759  
    517517      READ  ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 
    518518902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 
    519       IF(lwm) WRITE ( numond, nambbl ) 
     519      IF(lwm .AND. nprint > 2) WRITE ( numond, nambbl ) 
    520520      ! 
    521521      l_bbl = .TRUE.                 !* flag to compute bbl coef and transport 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

    r6486 r10759  
    203203      READ  ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 
    204204902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 
    205       IF(lwm) WRITE ( numond, namtra_dmp ) 
     205      IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_dmp ) 
    206206 
    207207      IF(lwp) THEN                 !Namelist print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r9321 r10759  
    438438      READ  ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 
    439439902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp ) 
    440       IF(lwm) WRITE ( numond, namtra_qsr ) 
     440      IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_qsr ) 
    441441      ! 
    442442      IF(lwp) THEN                ! control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRD/trdini.F90

    r7061 r10759  
    5454      READ  ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 
    5555902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 
    56       IF(lwm) WRITE( numond, namtrd ) 
     56      IF(lwm .AND. nprint > 2) WRITE( numond, namtrd ) 
    5757      ! 
    5858      IF(lwp) THEN                  ! control print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90

    r6487 r10759  
    764764      READ  ( numnam_cfg, namtrd_mxl, IOSTAT = ios, ERR = 902 ) 
    765765902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist', lwp ) 
    766       IF(lwm) WRITE( numond, namtrd_mxl ) 
     766      IF(lwm .AND. nprint > 2) WRITE( numond, namtrd_mxl ) 
    767767      ! 
    768768      IF(lwp) THEN                      ! control print 
  • 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 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r10745 r10759  
    295295   ENDIF 
    296296#endif 
     297      nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
     298      !do it here because output.namelist.dyn is opened before nprint was set earlier 
    297299      ! 
    298300      !                             !--------------------------------------------! 
     
    342344      lwp = (narea == 1) .OR. ln_ctl                        ! control of all listing output print 
    343345 
    344       IF(lwm) THEN 
     346      IF(lwm .AND. nprint > 2) THEN 
    345347         ! write merged namelists from earlier to output namelist now that the 
    346348         ! file has been opened in call to mynode. nammpp has already been 
     
    554556      ENDIF 
    555557      ! 
    556       nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
    557558      nictls    = nn_ictls 
    558559      nictle    = nn_ictle 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/step.F90

    r10149 r10759  
    380380      IF( kstp == nit000   )   THEN 
    381381                 CALL iom_close( numror )     ! close input  ocean restart file 
    382          IF(lwm) CALL FLUSH    ( numond )     ! flush output namelist oce 
     382         IF(lwm .AND. numond /= -1) CALL FLUSH    ( numond )     ! flush output namelist oce 
    383383         IF( lwm.AND.numoni /= -1 ) CALL FLUSH    ( numoni )     ! flush output namelist ice 
    384384      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.