- Timestamp:
- 2019-03-15T12:06:27+01:00 (5 years ago)
- 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 164 164 READ ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 ) 165 165 902 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 ) 167 167 168 168 ! Control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90
r8447 r10759 255 255 READ ( numnam_cfg, nambias, IOSTAT = ios, ERR = 902 ) 256 256 902 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 ) 258 258 259 259 -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90
r6487 r10759 532 532 READ ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 533 533 902 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 ) 535 535 536 536 cn_dir_array(ib_bdy) = cn_dir -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
r6487 r10759 131 131 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 132 132 902 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 ) 134 134 135 135 ! ----------------------------------------- … … 420 420 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 421 421 904 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 ) 423 423 424 424 SELECT CASE ( TRIM(ctypebdy) ) -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r9583 r10759 118 118 READ ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 119 119 902 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 ) 121 121 ! ! Parameter control and print 122 122 IF(lwp) WRITE(numout,*) ' ' -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90
r6486 r10759 56 56 READ ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 ) 57 57 902 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 ) 59 59 60 60 ! -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/C1D/dtauvd.F90
r6486 r10759 73 73 READ ( numnam_cfg, namc1d_uvd, IOSTAT = ios, ERR = 902 ) 74 74 902 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 ) 76 76 77 77 ! ! force the initialization when dyndmp is used -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/C1D/dyndmp.F90
r6486 r10759 87 87 READ ( numnam_cfg, namc1d_dyndmp, IOSTAT = ios, ERR = 902 ) 88 88 902 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 ) 90 90 91 91 IF(lwp) THEN ! control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90
r6486 r10759 93 93 READ ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 94 94 902 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 ) 96 96 97 97 IF(lwp) THEN -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90
r9583 r10759 151 151 READ ( numnam_cfg, namdct, IOSTAT = ios, ERR = 902 ) 152 152 902 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 ) 154 154 155 155 IF( lwp ) THEN -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90
r6487 r10759 95 95 READ ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 96 96 902 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 ) 98 98 ! 99 99 IF(lwp) THEN -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r9321 r10759 361 361 READ ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 362 362 902 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 ) 364 364 365 365 ! -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r9830 r10759 469 469 READ ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 470 470 902 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 ) 472 472 473 473 IF(lwp) THEN ! Control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r6491 r10759 160 160 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 161 161 902 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 ) 163 163 ! 164 164 IF(lwp) THEN ! control print … … 251 251 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 252 252 904 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 ) 254 254 255 255 IF(lwp) THEN … … 313 313 READ ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 ) 314 314 906 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 ) 316 316 317 317 IF(lwp) THEN … … 337 337 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 338 338 908 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 ) 340 340 341 341 IF(lwp) THEN ! control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r10754 r10759 157 157 READ ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 158 158 902 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 ) 160 160 161 161 IF(lwp) THEN ! control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r9321 r10759 955 955 READ ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 956 956 902 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 ) 958 958 959 959 IF(lwp) THEN ! Namelist print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r10754 r10759 114 114 READ ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 115 115 902 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 ) 117 117 118 118 IF(lwp) THEN ! Control print … … 1829 1829 READ ( numnam_cfg, namzgr_sco, IOSTAT = ios, ERR = 902 ) 1830 1830 902 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 ) 1832 1832 1833 1833 IF(lwp) THEN ! control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
r6486 r10759 77 77 READ ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 78 78 902 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 ) 80 80 81 81 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 108 108 READ ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 109 109 902 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 ) 111 111 112 112 IF(lwp) THEN ! Namelist print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
r8447 r10759 176 176 READ ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 ) 177 177 902 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 ) 179 179 ! 180 180 IF(lwp) THEN ! Control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90
r6486 r10759 126 126 READ ( numnam_cfg, namdyn_nept, IOSTAT = ios, ERR = 902 ) 127 127 902 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 ) 129 129 130 130 IF(lwp) THEN ! Control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r9321 r10759 1088 1088 READ ( numnam_cfg, namsplit, IOSTAT = ios, ERR = 902 ) 1089 1089 902 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 ) 1091 1091 ! 1092 1092 ! ! Max courant number for ext. grav. waves -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
r8280 r10759 731 731 READ ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 732 732 902 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 ) 734 734 735 735 IF(lwp) THEN ! Namelist print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90
r9583 r10759 96 96 READ ( numnam_cfg, namflo, IOSTAT = ios, ERR = 902 ) 97 97 902 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 ) 99 99 ! 100 100 IF(lwp) THEN ! control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90
r10753 r10759 375 375 READ ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 ) 376 376 902 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 ) 378 378 #else 379 379 IF(lwp) THEN -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r8356 r10759 319 319 mynode = mpprank 320 320 321 IF( mynode == 0 ) THEN321 IF( mynode == 0 .AND. nprint > 2) THEN 322 322 CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 323 323 WRITE(kumond, nammpp) -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90
r6498 r10759 87 87 READ ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 88 88 902 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 ) 90 90 91 91 IF(lwp)WRITE(numout,*) -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90
r6486 r10759 81 81 READ ( numnam_cfg, namdyn_ldf, IOSTAT = ios, ERR = 902 ) 82 82 902 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 ) 84 84 85 85 IF(lwp) THEN ! Parameter print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra.F90
r6486 r10759 85 85 READ ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 ) 86 86 902 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 ) 88 88 89 89 IF(lwp) THEN ! control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r6486 r10759 244 244 READ ( numnam_cfg, namobs, IOSTAT = ios, ERR = 902 ) 245 245 902 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 ) 247 247 248 248 ! Count number of files for each type -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90
r6498 r10759 260 260 READ ( numnam_cfg, namsbc_alb, IOSTAT = ios, ERR = 902 ) 261 261 902 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 ) 263 263 ! 264 264 IF(lwp) THEN ! Control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_rnf_1d.F90
r10269 r10759 78 78 READ ( numnam_cfg, nam_cpl_rnf_1d, IOSTAT = ios, ERR = 902 ) 79 79 902 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 ) 81 81 82 82 ! ! Parameter control and print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90
r6486 r10759 81 81 READ ( numnam_cfg, namsbc_ana, IOSTAT = ios, ERR = 902 ) 82 82 902 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 ) 84 84 ! 85 85 IF(lwp) WRITE(numout,*)' ' -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r9321 r10759 84 84 READ ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 ) 85 85 902 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 ) 87 87 ! 88 88 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 151 151 READ ( numnam_cfg, namsbc_clio, IOSTAT = ios, ERR = 902 ) 152 152 902 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 ) 154 154 155 155 ! store namelist information in an array -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r6823 r10759 166 166 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in configuration namelist', lwp ) 167 167 168 IF(lwm ) WRITE( numond, namsbc_core )168 IF(lwm .AND. nprint > 2) WRITE( numond, namsbc_core ) 169 169 ! ! check: do we plan to use ln_dm2dc with non-daily forcing? 170 170 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 141 141 READ ( numnam_cfg, namsbc_mfs, IOSTAT = ios, ERR = 902 ) 142 142 902 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 ) 144 144 ! 145 145 ! store namelist information in an array -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r10269 r10759 276 276 READ ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 ) 277 277 902 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 ) 279 279 280 280 IF(lwp) THEN ! control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90
r6486 r10759 98 98 READ ( numnam_cfg, namsbc_flx, IOSTAT = ios, ERR = 902 ) 99 99 902 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 ) 101 101 ! 102 102 ! ! 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 895 895 READ ( numnam_cfg, namsbc_cice, IOSTAT = ios, ERR = 902 ) 896 896 902 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 ) 898 898 899 899 ! store namelist information in an array -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90
r6498 r10759 82 82 READ ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 83 83 902 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 ) 85 85 86 86 ALLOCATE( sf_ice(1), STAT=ierror ) -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90
r8046 r10759 110 110 READ ( numnam_cfg, namsbc_isf, IOSTAT = ios, ERR = 902 ) 111 111 902 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 ) 113 113 114 114 -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r9321 r10759 108 108 READ ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 109 109 902 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 ) 111 111 112 112 ! ! overwrite namelist parameter using CPP key information -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r9321 r10759 282 282 READ ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 ) 283 283 902 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 ) 285 285 ! 286 286 ! ! Control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90
r6486 r10759 175 175 READ ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 ) 176 176 902 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 ) 178 178 179 179 IF(lwp) THEN !* control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90
r6486 r10759 90 90 READ ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 91 91 902 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 ) 93 93 ! 94 94 -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90
r6486 r10759 72 72 READ ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 73 73 902 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 ) 75 75 ! 76 76 nb_harmo=0 -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90
r10748 r10759 70 70 READ ( numnam_cfg, namsol, IOSTAT = ios, ERR = 902 ) 71 71 902 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 ) 73 73 74 74 IF(lwp) THEN !* Control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90
r9321 r10759 268 268 READ ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 ) 269 269 902 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 ) 271 271 272 272 !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 1241 1241 READ ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 1242 1242 902 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 ) 1244 1244 ! 1245 1245 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 208 208 READ ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 209 209 902 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 ) 211 211 212 212 IF(lwp) THEN ! Namelist print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90
r6486 r10759 290 290 READ ( numnam_cfg, namtra_adv_mle, IOSTAT = ios, ERR = 902 ) 291 291 902 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 ) 293 293 294 294 IF(lwp) THEN ! Namelist print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90
r6486 r10759 147 147 READ ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 148 148 902 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 ) 150 150 151 151 IF(lwp) THEN ! Control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90
r10681 r10759 517 517 READ ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 518 518 902 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 ) 520 520 ! 521 521 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 203 203 READ ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 204 204 902 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 ) 206 206 207 207 IF(lwp) THEN !Namelist print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r9321 r10759 438 438 READ ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 439 439 902 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 ) 441 441 ! 442 442 IF(lwp) THEN ! control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRD/trdini.F90
r7061 r10759 54 54 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 55 55 902 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 ) 57 57 ! 58 58 IF(lwp) THEN ! control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90
r6487 r10759 764 764 READ ( numnam_cfg, namtrd_mxl, IOSTAT = ios, ERR = 902 ) 765 765 902 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 ) 767 767 ! 768 768 IF(lwp) THEN ! control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90
r6486 r10759 257 257 READ ( numnam_cfg, nambfr, IOSTAT = ios, ERR = 902 ) 258 258 902 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 ) 260 260 IF(lwp) WRITE(numout,*) 261 261 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 246 246 READ ( numnam_cfg, namzdf_ddm, IOSTAT = ios, ERR = 902 ) 247 247 902 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 ) 249 249 ! 250 250 IF(lwp) THEN ! Parameter print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r9583 r10759 881 881 READ ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 882 882 902 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 ) 884 884 885 885 IF(lwp) THEN !* Control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90
r6486 r10759 64 64 READ ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 65 65 902 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 ) 67 67 68 68 IF(lwp) THEN !* Parameter print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r9583 r10759 1369 1369 READ ( numnam_cfg, namzdf_kpp, IOSTAT = ios, ERR = 902 ) 1370 1370 902 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 ) 1372 1372 1373 1373 IF(lwp) THEN ! Control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r7560 r10759 470 470 READ ( numnam_cfg, namzdf_mldzint, IOSTAT = ios, ERR = 902 ) 471 471 902 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 ) 473 473 474 474 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 260 260 READ ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 261 261 902 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 ) 263 263 ! 264 264 IF(lwp) THEN ! Control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r9321 r10759 786 786 READ ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 ) 787 787 902 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 ) 789 789 ! 790 790 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 388 388 READ ( numnam_cfg, namzdf_tmx, IOSTAT = ios, ERR = 902 ) 389 389 902 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 ) 391 391 392 392 IF(lwp) THEN ! Control print … … 973 973 READ ( numnam_cfg, namzdf_tmx_new, IOSTAT = ios, ERR = 902 ) 974 974 902 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 ) 976 976 ! 977 977 IF(lwp) THEN ! Control print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r10745 r10759 295 295 ENDIF 296 296 #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 297 299 ! 298 300 ! !--------------------------------------------! … … 342 344 lwp = (narea == 1) .OR. ln_ctl ! control of all listing output print 343 345 344 IF(lwm ) THEN346 IF(lwm .AND. nprint > 2) THEN 345 347 ! write merged namelists from earlier to output namelist now that the 346 348 ! file has been opened in call to mynode. nammpp has already been … … 554 556 ENDIF 555 557 ! 556 nprint = nn_print ! convert DOCTOR namelist names into OLD names557 558 nictls = nn_ictls 558 559 nictle = nn_ictle -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/step.F90
r10149 r10759 380 380 IF( kstp == nit000 ) THEN 381 381 CALL iom_close( numror ) ! close input ocean restart file 382 IF(lwm ) CALL FLUSH ( numond ) ! flush output namelist oce382 IF(lwm .AND. numond /= -1) CALL FLUSH ( numond ) ! flush output namelist oce 383 383 IF( lwm.AND.numoni /= -1 ) CALL FLUSH ( numoni ) ! flush output namelist ice 384 384 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.