Changeset 10968
- Timestamp:
- 2019-05-13T11:43:03+02:00 (6 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src
- Files:
-
- 100 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icealb.F90
r10888 r10968 196 196 READ ( numnam_ice_cfg, namalb, IOSTAT = ios, ERR = 902 ) 197 197 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namalb in configuration namelist', lwp ) 198 IF(lwm ) WRITE( numoni, namalb )198 IF(lwm .AND. nprint > 2) WRITE( numoni, namalb ) 199 199 ! 200 200 IF(lwp) THEN ! Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icedia.F90
r10888 r10968 184 184 READ ( numnam_ice_cfg, namdia, IOSTAT = ios, ERR = 902 ) 185 185 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdia in configuration namelist', lwp ) 186 IF(lwm ) WRITE ( numoni, namdia )186 IF(lwm .AND. nprint > 2) WRITE ( numoni, namdia ) 187 187 ! 188 188 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icedyn.F90
r10888 r10968 330 330 READ ( numnam_ice_cfg, namdyn, IOSTAT = ios, ERR = 902 ) 331 331 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn in configuration namelist', lwp ) 332 IF(lwm ) WRITE( numoni, namdyn )332 IF(lwm .AND. nprint > 2) WRITE( numoni, namdyn ) 333 333 ! 334 334 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icedyn_adv.F90
r10888 r10968 162 162 READ ( numnam_ice_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 163 163 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwp ) 164 IF(lwm ) WRITE( numoni, namdyn_adv )164 IF(lwm .AND. nprint > 2) WRITE( numoni, namdyn_adv ) 165 165 ! 166 166 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icedyn_rdgrft.F90
r10888 r10968 915 915 READ ( numnam_ice_cfg, namdyn_rdgrft, IOSTAT = ios, ERR = 902 ) 916 916 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_rdgrft in configuration namelist', lwp ) 917 IF(lwm ) WRITE ( numoni, namdyn_rdgrft )917 IF(lwm .AND. nprint > 2) WRITE ( numoni, namdyn_rdgrft ) 918 918 ! 919 919 IF (lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icedyn_rhg.F90
r10888 r10968 115 115 READ ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 ) 116 116 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist', lwp ) 117 IF(lwm ) WRITE ( numoni, namdyn_rhg )117 IF(lwm .AND. nprint > 2) WRITE ( numoni, namdyn_rhg ) 118 118 ! 119 119 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icedyn_rhg_evp.F90
r10888 r10968 932 932 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 933 933 ! ! ------------------- 934 IF(lwp ) WRITE(numout,*) '---- rhg-rst ----'934 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- rhg-rst ----' 935 935 iter = kt + nn_fsbc - 1 ! ice restarts are written at kt == nitrst - nn_fsbc + 1 936 936 ! -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/iceistate.F90
r10888 r10968 524 524 READ ( numnam_ice_cfg, namini, IOSTAT = ios, ERR = 902 ) 525 525 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namini in configuration namelist', lwp ) 526 IF(lwm ) WRITE ( numoni, namini )526 IF(lwm .AND. nprint > 2) WRITE ( numoni, namini ) 527 527 ! 528 528 slf_i(jp_hti) = sn_hti ; slf_i(jp_hts) = sn_hts -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/iceitd.F90
r10888 r10968 659 659 READ ( numnam_ice_cfg, namitd, IOSTAT = ios, ERR = 902 ) 660 660 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namitd in configuration namelist', lwp ) 661 IF(lwm ) WRITE( numoni, namitd )661 IF(lwm .AND. nprint > 2) WRITE( numoni, namitd ) 662 662 ! 663 663 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icerst.F90
r10888 r10968 67 67 clpath = TRIM(cn_icerst_outdir) 68 68 IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath)//'/' 69 IF(lwp ) THEN69 IF(lwp .AND. nprint > 0) THEN 70 70 WRITE(numout,*) 71 71 WRITE(numout,*) ' open ice restart NetCDF file: ',TRIM(clpath)//clname … … 104 104 iter = kt + nn_fsbc - 1 ! ice restarts are written at kt == nitrst - nn_fsbc + 1 105 105 106 IF( iter == nitrst ) THEN106 IF( iter == nitrst .AND. nprint > 0 ) THEN 107 107 IF(lwp) WRITE(numout,*) 108 108 IF(lwp) WRITE(numout,*) 'ice_rst_write : write ice restart file kt =', kt … … 176 176 !!---------------------------------------------------------------------- 177 177 178 IF(lwp ) THEN178 IF(lwp .AND. nprint > 0) THEN 179 179 WRITE(numout,*) 180 180 WRITE(numout,*) 'ice_rst_read: read ice NetCDF restart file' … … 186 186 CALL iom_get( numrir, 'nn_fsbc', zfice ) 187 187 CALL iom_get( numrir, 'kt_ice' , ziter ) 188 IF(lwp ) WRITE(numout,*) ' read ice restart file at time step : ', ziter189 IF(lwp ) WRITE(numout,*) ' in any case we force it to nit000 - 1 : ', nit000 - 1188 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' read ice restart file at time step : ', ziter 189 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' in any case we force it to nit000 - 1 : ', nit000 - 1 190 190 191 191 ! Control of date -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icesbc.F90
r10888 r10968 276 276 READ ( numnam_ice_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 277 277 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 278 IF(lwm ) WRITE( numoni, namsbc )278 IF(lwm .AND. nprint > 2) WRITE( numoni, namsbc ) 279 279 ! 280 280 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icestp.F90
r10888 r10968 235 235 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 236 236 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 237 IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 237 IF(lwm .AND. nprint > 2) & 238 CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 238 239 ! 239 240 CALL par_init ! set some ice run parameters … … 307 308 READ ( numnam_ice_cfg, nampar, IOSTAT = ios, ERR = 902 ) 308 309 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampar in configuration namelist', lwp ) 309 IF(lwm ) WRITE( numoni, nampar )310 IF(lwm .AND. nprint > 2) WRITE( numoni, nampar ) 310 311 ! 311 312 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icethd.F90
r10888 r10968 549 549 READ ( numnam_ice_cfg, namthd, IOSTAT = ios, ERR = 902 ) 550 550 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd in configuration namelist', lwp ) 551 IF(lwm ) WRITE( numoni, namthd )551 IF(lwm .AND. nprint > 2) WRITE( numoni, namthd ) 552 552 ! 553 553 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icethd_da.F90
r10888 r10968 183 183 READ ( numnam_ice_cfg, namthd_da, IOSTAT = ios, ERR = 902 ) 184 184 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_da in configuration namelist', lwp ) 185 IF(lwm ) WRITE( numoni, namthd_da )185 IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_da ) 186 186 ! 187 187 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icethd_do.F90
r10888 r10968 446 446 READ ( numnam_ice_cfg, namthd_do, IOSTAT = ios, ERR = 902 ) 447 447 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_do in configuration namelist', lwp ) 448 IF(lwm ) WRITE( numoni, namthd_do )448 IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_do ) 449 449 ! 450 450 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icethd_pnd.F90
r10888 r10968 214 214 READ ( numnam_ice_cfg, namthd_pnd, IOSTAT = ios, ERR = 902 ) 215 215 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_pnd in configuration namelist', lwp ) 216 IF(lwm ) WRITE ( numoni, namthd_pnd )216 IF(lwm .AND. nprint > 2) WRITE ( numoni, namthd_pnd ) 217 217 ! 218 218 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icethd_sal.F90
r10888 r10968 138 138 READ ( numnam_ice_cfg, namthd_sal, IOSTAT = ios, ERR = 902 ) 139 139 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_sal in configuration namelist', lwp ) 140 IF(lwm ) WRITE ( numoni, namthd_sal )140 IF(lwm .AND. nprint > 2) WRITE ( numoni, namthd_sal ) 141 141 ! 142 142 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icethd_zdf.F90
r10888 r10968 94 94 READ ( numnam_ice_cfg, namthd_zdf, IOSTAT = ios, ERR = 902 ) 95 95 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_zdf in configuration namelist', lwp ) 96 IF(lwm ) WRITE( numoni, namthd_zdf )96 IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_zdf ) 97 97 ! 98 98 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/iceupdate.F90
r10888 r10968 442 442 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 443 443 ! ! ------------------- 444 IF(lwp ) WRITE(numout,*) '---- update-rst ----'444 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- update-rst ----' 445 445 iter = kt + nn_fsbc - 1 ! ice restarts are written at kt == nitrst - nn_fsbc + 1 446 446 ! -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ASM/asminc.F90
r10888 r10968 151 151 READ ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 ) 152 152 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwp ) 153 IF(lwm ) WRITE ( numond, nam_asminc )153 IF(lwm .AND. nprint > 2) WRITE ( numond, nam_asminc ) 154 154 155 155 ! Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/BDY/bdydta.F90
r10888 r10968 517 517 READ ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 518 518 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwp ) 519 IF(lwm ) WRITE( numond, nambdy_dta )519 IF(lwm .AND. nprint > 2) WRITE( numond, nambdy_dta ) 520 520 521 521 cn_dir_array(jbdy) = cn_dir -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/BDY/bdyini.F90
r10888 r10968 83 83 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 84 84 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 85 IF(lwm ) WRITE ( numond, nambdy )85 IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy ) 86 86 87 87 IF( .NOT. Agrif_Root() ) ln_bdy = .FALSE. ! forced for Agrif children … … 432 432 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 433 433 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 434 IF(lwm ) WRITE ( numond, nambdy_index )434 IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_index ) 435 435 436 436 SELECT CASE ( TRIM(ctypebdy) ) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/BDY/bdytides.F90
r10888 r10968 105 105 READ ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 106 106 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp ) 107 IF(lwm ) WRITE ( numond, nambdy_tide )107 IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_tide ) 108 108 ! ! Parameter control and print 109 109 IF(lwp) WRITE(numout,*) ' ' -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/C1D/c1d.F90
r10888 r10968 57 57 READ ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 ) 58 58 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc1d in configuration namelist', lwp ) 59 IF(lwm ) WRITE ( numond, namc1d )59 IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d ) 60 60 ! 61 61 IF(lwp) THEN ! Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/C1D/dtauvd.F90
r10888 r10968 67 67 READ ( numnam_cfg, namc1d_uvd, IOSTAT = ios, ERR = 902 ) 68 68 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc1d_uvd in configuration namelist', lwp ) 69 IF(lwm ) WRITE ( numond, namc1d_uvd )69 IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d_uvd ) 70 70 71 71 ! ! force the initialization when dyndmp is used -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/C1D/dyndmp.F90
r10888 r10968 85 85 READ ( numnam_cfg, namc1d_dyndmp, IOSTAT = ios, ERR = 902 ) 86 86 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc1d_dyndmp in configuration namelist', lwp ) 87 IF(lwm ) WRITE ( numond, namc1d_dyndmp )87 IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d_dyndmp ) 88 88 ! 89 89 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/CRS/crsini.F90
r10888 r10968 86 86 READ ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 87 87 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcrs in configuration namelist', lwp ) 88 IF(lwm ) WRITE ( numond, namcrs )88 IF(lwm .AND. nprint > 2) WRITE ( numond, namcrs ) 89 89 90 90 IF(lwp) THEN -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/dia25h.F90
r10888 r10968 59 59 READ ( numnam_cfg, nam_dia25h, IOSTAT = ios, ERR = 902 ) 60 60 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_dia25h in configuration namelist', lwp ) 61 IF(lwm ) WRITE ( numond, nam_dia25h )61 IF(lwm .AND. nprint > 2) WRITE ( numond, nam_dia25h ) 62 62 63 63 IF(lwp) THEN ! Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diadct.F90
r10888 r10968 140 140 READ ( numnam_cfg, namdct, IOSTAT = ios, ERR = 902 ) 141 141 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdct in configuration namelist', lwp ) 142 IF(lwm ) WRITE ( numond, namdct )142 IF(lwm .AND. nprint > 2) WRITE ( numond, namdct ) 143 143 144 144 IF( lwp ) THEN -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diaharm.F90
r10888 r10968 93 93 READ ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 94 94 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist', lwp ) 95 IF(lwm ) WRITE ( numond, nam_diaharm )95 IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diaharm ) 96 96 ! 97 97 IF(lwp) THEN -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diahsb.F90
r10888 r10968 211 211 CALL iom_put( 'bgvole3t' , zdiff_v2 * 1.e-9 ) ! volume e3t drift (km3) 212 212 ! 213 IF( kt == nitend .AND. lwp 213 IF( kt == nitend .AND. lwp) THEN 214 214 WRITE(numout,*) 215 215 WRITE(numout,*) 'dia_hsb : last time step hsb diagnostics: at it= ', kt,' date= ', ndastp … … 310 310 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 311 311 ! ! ------------------- 312 IF(lwp ) WRITE(numout,*)313 IF(lwp ) WRITE(numout,*) ' dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp314 IF(lwp ) WRITE(numout,*)312 IF(lwp .AND. nprint > 0) WRITE(numout,*) 313 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp 314 IF(lwp .AND. nprint > 0) WRITE(numout,*) 315 315 ! 316 316 IF( lwxios ) CALL iom_swap( cwxios_context ) … … 366 366 READ ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 367 367 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwp ) 368 IF(lwm ) WRITE( numond, namhsb )368 IF(lwm .AND. nprint > 2) WRITE( numond, namhsb ) 369 369 370 370 IF(lwp) THEN -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diaptr.F90
r10888 r10968 398 398 READ ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 399 399 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist', lwp ) 400 IF(lwm ) WRITE ( numond, namptr )400 IF(lwm.AND. nprint > 2) WRITE ( numond, namptr ) 401 401 402 402 IF(lwp) THEN ! Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diatmb.F90
r10888 r10968 48 48 READ ( numnam_cfg, nam_diatmb, IOSTAT = ios, ERR = 902 ) 49 49 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_diatmb in configuration namelist', lwp ) 50 IF(lwm ) WRITE ( numond, nam_diatmb )50 IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diatmb ) 51 51 52 52 IF(lwp) THEN ! Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/daymod.F90
r10888 r10968 269 269 CALL ymds2ju( nyear, 01, 01, 0.0, fjulstartyear ) 270 270 ! 271 IF(lwp ) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt, &271 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt, & 272 272 & ' New day, DATE Y/M/D = ', nyear, '/', nmonth, '/', nday, ' nday_year = ', nday_year 273 IF(lwp ) WRITE(numout,'(a,i8,a,i7,a,i5)') ' nsec_year = ', nsec_year, &273 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i7,a,i5)') ' nsec_year = ', nsec_year, & 274 274 & ' nsec_month = ', nsec_month, ' nsec_day = ', nsec_day, ' nsec_week = ', nsec_week 275 275 ENDIF … … 402 402 ! 403 403 IF( kt == nitrst ) THEN 404 IF(lwp) WRITE(numout,*) 405 IF(lwp) WRITE(numout,*) 'rst_write : write oce restart file kt =', kt 406 IF(lwp) WRITE(numout,*) '~~~~~~~' 404 IF(lwp .AND. nprint > 0) THEN 405 WRITE(numout,*) 406 WRITE(numout,*) 'rst_write : write oce restart file kt =', kt 407 WRITE(numout,*) '~~~~~~~' 408 ENDIF 407 409 ENDIF 408 410 ! calendar control -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/domain.F90
r10888 r10968 312 312 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 313 313 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 314 IF(lwm ) WRITE ( numond, namrun )314 IF(lwm .AND. nprint > 2) WRITE ( numond, namrun ) 315 315 ! 316 316 IF(lwp) THEN ! control print … … 405 405 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 406 406 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 407 IF(lwm ) WRITE( numond, namdom )407 IF(lwm .AND. nprint > 2) WRITE( numond, namdom ) 408 408 ! 409 409 IF(lwp) THEN … … 437 437 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 438 438 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 439 IF(lwm ) WRITE( numond, namnc4 )439 IF(lwm .AND. nprint > 2) WRITE( numond, namnc4 ) 440 440 441 441 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/dommsk.F90
r10888 r10968 110 110 READ ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 111 111 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwp ) 112 IF(lwm ) WRITE ( numond, namlbc )112 IF(lwm .AND. nprint > 2) WRITE ( numond, namlbc ) 113 113 114 114 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/domvvl.F90
r10888 r10968 952 952 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 953 953 ! ! =================== 954 IF(lwp ) WRITE(numout,*) '---- dom_vvl_rst ----'954 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- dom_vvl_rst ----' 955 955 IF( lwxios ) CALL iom_swap( cwxios_context ) 956 956 ! ! --------- ! … … 997 997 READ ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 998 998 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwp ) 999 IF(lwm ) WRITE ( numond, nam_vvl )999 IF(lwm .AND. nprint > 2) WRITE ( numond, nam_vvl ) 1000 1000 ! 1001 1001 IF(lwp) THEN ! Namelist print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/domzgr.F90
r10888 r10968 147 147 !!gm end bug 148 148 ! 149 IF( nprint == 1.AND. lwp ) THEN149 IF( nprint > 3 .AND. lwp ) THEN 150 150 WRITE(numout,*) ' MIN val k_top ', MINVAL( k_top(:,:) ), ' MAX ', MAXVAL( k_top(:,:) ) 151 151 WRITE(numout,*) ' MIN val k_bot ', MINVAL( k_bot(:,:) ), ' MAX ', MAXVAL( k_bot(:,:) ) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/dtatsd.F90
r10888 r10968 71 71 READ ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 72 72 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp ) 73 IF(lwm ) WRITE ( numond, namtsd )73 IF(lwm .AND. nprint > 2) WRITE ( numond, namtsd ) 74 74 75 75 IF( PRESENT( ld_tradmp ) ) ln_tsd_dmp = .TRUE. ! forces the initialization when tradmp is used … … 243 243 IF( .NOT.ln_tsd_dmp ) THEN !== deallocate T & S structure ==! 244 244 ! (data used only for initialisation) 245 IF(lwp ) WRITE(numout,*) 'dta_tsd: deallocte T & S arrays as they are only use to initialize the run'245 IF(lwp .AND. nprint > 1) WRITE(numout,*) 'dta_tsd: deallocte T & S arrays as they are only use to initialize the run' 246 246 DEALLOCATE( sf_tsd(jp_tem)%fnow ) ! T arrays in the structure 247 247 IF( sf_tsd(jp_tem)%ln_tint ) DEALLOCATE( sf_tsd(jp_tem)%fdta ) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/iscplini.F90
r10888 r10968 68 68 READ ( numnam_cfg, namsbc_iscpl, IOSTAT = ios, ERR = 902 ) 69 69 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_iscpl in configuration namelist', lwp ) 70 IF(lwm ) WRITE ( numond, namsbc_iscpl )70 IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_iscpl ) 71 71 ! 72 72 nstp_iscpl=MIN( nn_fiscpl, nitend-nit000+1 ) ! the coupling period have to be less or egal than the total number of time step -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynadv.F90
r10888 r10968 110 110 READ ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 111 111 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwp ) 112 IF(lwm ) WRITE ( numond, namdyn_adv )112 IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_adv ) 113 113 114 114 IF(lwp) THEN ! Namelist print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynhpg.F90
r10888 r10968 157 157 READ ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 ) 158 158 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist', lwp ) 159 IF(lwm ) WRITE ( numond, namdyn_hpg )159 IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_hpg ) 160 160 ! 161 161 IF(lwp) THEN ! Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynspg.F90
r10888 r10968 207 207 READ ( numnam_cfg, namdyn_spg, IOSTAT = ios, ERR = 902 ) 208 208 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_spg in configuration namelist', lwp ) 209 IF(lwm ) WRITE ( numond, namdyn_spg )209 IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_spg ) 210 210 ! 211 211 IF(lwp) THEN ! Namelist print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynspg_ts.F90
r10888 r10968 1436 1436 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 1437 1437 ! ! ------------------- 1438 IF(lwp ) WRITE(numout,*) '---- ts_rst ----'1438 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- ts_rst ----' 1439 1439 IF( lwxios ) CALL iom_swap( cwxios_context ) 1440 1440 CALL iom_rstput( kt, nitrst, numrow, 'ub2_b' , ub2_b (:,:), ldxios = lwxios ) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynvor.F90
r10888 r10968 855 855 READ ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 856 856 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwp ) 857 IF(lwm ) WRITE ( numond, namdyn_vor )857 IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_vor ) 858 858 ! 859 859 IF(lwp) THEN ! Namelist print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/wet_dry.F90
r10888 r10968 85 85 READ ( numnam_cfg, namwad, IOSTAT = ios, ERR = 906) 86 86 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namwad in configuration namelist', .TRUE. ) 87 IF(lwm ) WRITE ( numond, namwad )87 IF(lwm .AND. nprint > 2 ) WRITE ( numond, namwad ) 88 88 ! 89 89 IF( rn_wd_sbcfra>=1 ) CALL ctl_stop( 'STOP', 'rn_wd_sbcfra >=1 : must be < 1' ) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/FLO/floats.F90
r10888 r10968 95 95 READ ( numnam_cfg, namflo, IOSTAT = ios, ERR = 902 ) 96 96 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namflo in configuration namelist', lwp ) 97 IF(lwm ) WRITE ( numond, namflo )97 IF(lwm .AND. nprint > 2) WRITE ( numond, namflo ) 98 98 ! 99 99 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbclv.F90
r10888 r10968 179 179 CALL lbc_lnk( 'icbclv', berg_grid%stored_heat, 'T', 1._wp ) 180 180 ! 181 IF( nn_verbose_level > 0 .AND. icntmax > 1 ) WRITE(numicb,*) 'icb_clv: icnt=', icnt,' on', narea 181 IF( nn_verbose_level > 0 .AND. icntmax > 1 .AND. numicb /= -1) & 182 WRITE(numicb,*) 'icb_clv: icnt=', icnt,' on', narea 182 183 ! 183 184 END SUBROUTINE icb_clv -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbdia.F90
r10888 r10968 327 327 & 'returned',calving_ret_net) 328 328 ENDIF 329 IF (nn_verbose_level > 0 ) THEN329 IF (nn_verbose_level > 0 .AND. numicb.NE.-1) THEN 330 330 WRITE( numicb, '("calved by class = ",i6,20(",",i6))') (nbergs_calved_by_class(ik),ik=1,nclasses) 331 331 IF( nspeeding_tickets > 0 ) WRITE( numicb, '("speeding tickets issued = ",i6)') nspeeding_tickets … … 442 442 stored_heat_start = SUM( berg_grid%stored_heat(:,:) ) 443 443 CALL mpp_sum( 'icbdia', stored_heat_start ) 444 IF (nn_verbose_level > 0 ) THEN444 IF (nn_verbose_level > 0 .AND. numicb.NE.-1) THEN 445 445 WRITE(numicb,'(a,es13.6,a)') 'icb_dia_income: initial stored mass=',stored_start,' kg' 446 446 WRITE(numicb,'(a,es13.6,a)') 'icb_dia_income: initial stored heat=',stored_heat_start,' J' … … 521 521 IF (nn_verbose_level == 0) RETURN 522 522 IF( PRESENT(kbergs) ) THEN 523 WRITE(numicb,100) cd_budgetstr // ' state:', & 524 & cd_startstr // ' start', pstartval, cd_budgetunits, & 525 & cd_endstr // ' end', pendval, cd_budgetunits, & 526 & 'Delta ' // cd_delstr, pendval-pstartval, cd_budgetunits, & 527 & '# of bergs', kbergs 523 IF( numicb.NE.-1 ) & 524 WRITE(numicb,100) cd_budgetstr // ' state:', & 525 & cd_startstr // ' start', pstartval, cd_budgetunits, & 526 & cd_endstr // ' end', pendval, cd_budgetunits, & 527 & 'Delta ' // cd_delstr, pendval-pstartval, cd_budgetunits, & 528 & '# of bergs', kbergs 528 529 ELSE 529 WRITE(numicb,100) cd_budgetstr // ' state:', & 530 & cd_startstr // ' start', pstartval, cd_budgetunits, & 531 & cd_endstr // ' end', pendval, cd_budgetunits, & 532 & cd_delstr // 'Delta', pendval-pstartval, cd_budgetunits 530 IF( numicb.NE.-1 ) & 531 WRITE(numicb,100) cd_budgetstr // ' state:', & 532 & cd_startstr // ' start', pstartval, cd_budgetunits, & 533 & cd_endstr // ' end', pendval, cd_budgetunits, & 534 & cd_delstr // 'Delta', pendval-pstartval, cd_budgetunits 533 535 ENDIF 534 536 100 FORMAT(a19,3(a18,"=",es14.7,x,a2,:,","),a12,i8) … … 545 547 ! 546 548 IF (nn_verbose_level == 0) RETURN 547 WRITE(numicb,200) cd_budgetstr // ' check:', & 548 & cd_startstr, pstartval, cd_budgetunits, & 549 & cd_endstr, pendval, cd_budgetunits, & 550 & 'error', (pendval-pstartval)/((pendval+pstartval)+1e-30), 'nd' 549 IF(numicb.NE.-1) & 550 WRITE(numicb,200) cd_budgetstr // ' check:', & 551 & cd_startstr, pstartval, cd_budgetunits, & 552 & cd_endstr, pendval, cd_budgetunits, & 553 & 'error', (pendval-pstartval)/((pendval+pstartval)+1e-30), 'nd' 551 554 200 FORMAT(a19,10(a18,"=",es14.7,x,a2,:,",")) 552 555 ! … … 568 571 & MAX( 1.e-30, MAX( ABS( pendval - pstartval ) , ABS( pinval - poutval ) ) ) 569 572 ! 570 WRITE(numicb,200) cd_budgetstr // ' budget:', & 571 & cd_instr // ' in', pinval, cd_budgetunits, & 572 & cd_outstr // ' out', poutval, cd_budgetunits, & 573 & 'Delta ' // cd_delstr, pinval-poutval, cd_budgetunits, & 574 & 'error', zval, 'nd' 573 IF(numicb.NE.-1) & 574 WRITE(numicb,200) cd_budgetstr // ' budget:', & 575 & cd_instr // ' in', pinval, cd_budgetunits, & 576 & cd_outstr // ' out', poutval, cd_budgetunits, & 577 & 'Delta ' // cd_delstr, pinval-poutval, cd_budgetunits, & 578 & 'error', zval, 'nd' 575 579 200 FORMAT(a19,3(a18,"=",es14.7,x,a2,:,","),a8,"=",es10.3,x,a2) 576 580 ! … … 586 590 ! 587 591 IF (nn_verbose_level == 0) RETURN 588 WRITE(numicb,100) cd_budgetstr // ' state:', & 589 & cd_startstr // ' start', pstartval, & 590 & cd_endstr // ' end', pendval, & 591 & cd_delstr // 'Delta', pendval-pstartval 592 IF(numicb.NE.-1) & 593 WRITE(numicb,100) cd_budgetstr // ' state:', & 594 & cd_startstr // ' start', pstartval, & 595 & cd_endstr // ' end', pendval, & 596 & cd_delstr // 'Delta', pendval-pstartval 592 597 100 FORMAT(a19,3(a18,"=",i14,x,:,",")) 593 598 ! … … 604 609 ! 605 610 IF (nn_verbose_level == 0) RETURN 606 WRITE(numicb,200) cd_budgetstr // ' budget:', & 607 & cd_instr // ' in', pinval, & 608 & cd_outstr // ' out', poutval, & 609 & 'Delta ' // cd_delstr, pinval-poutval, & 610 & 'error', ( ( pendval - pstartval ) - ( pinval - poutval ) ) 611 IF(numicb.NE.-1) & 612 WRITE(numicb,200) cd_budgetstr // ' budget:', & 613 & cd_instr // ' in', pinval, & 614 & cd_outstr // ' out', poutval, & 615 & 'Delta ' // cd_delstr, pinval-poutval, & 616 & 'error', ( ( pendval - pstartval ) - ( pinval - poutval ) ) 611 617 200 FORMAT(a19,10(a18,"=",i14,x,:,",")) 612 618 ! -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbdyn.F90
r10888 r10968 372 372 ! ! check the speed and acceleration limits 373 373 IF (nn_verbose_level > 0) THEN 374 IF( ABS( zuveln ) > pp_vel_lim .OR. ABS( zvveln ) > pp_vel_lim ) & 375 WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity' 376 IF( ABS( pax ) > pp_accel_lim .OR. ABS( pay ) > pp_accel_lim ) & 377 WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration' 374 IF( ABS( zuveln ) > pp_vel_lim .OR. ABS( zvveln ) > pp_vel_lim ) THEN 375 IF(numicb.NE.-1) THEN 376 WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity' 377 ELSE 378 WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity' 379 ENDIF 380 ENDIF 381 IF( ABS( pax ) > pp_accel_lim .OR. ABS( pay ) > pp_accel_lim ) THEN 382 IF(numicb.NE.-1) THEN 383 WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration' 384 ELSE 385 WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration' 386 ENDIF 387 ENDIF 378 388 ENDIF 379 389 ! -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbini.F90
r10888 r10968 89 89 ! ! note that we choose to do this on all processors since we cannot 90 90 ! ! predict where icebergs will be ahead of time 91 IF( nn_verbose_level > 0) THEN 91 numicb=-1 92 IF( nn_verbose_level > 0 .AND. nprint>0) THEN 92 93 CALL ctl_opn( numicb, 'icebergs.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 94 ELSE 95 IF(lwp) CALL ctl_opn( numicb, 'icebergs.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 93 96 ENDIF 94 97 … … 200 203 ENDIF 201 204 ! 202 IF( nn_verbose_level > 0 ) THEN205 IF( nn_verbose_level > 0 .AND. numicb.NE.-1 ) THEN 203 206 WRITE(numicb,*) 'processor ', narea 204 207 WRITE(numicb,*) 'jpi, jpj ', jpi, jpj … … 262 265 CALL iom_close( inum ) ! close file 263 266 ! 264 IF( nn_verbose_level > 0 ) THEN267 IF( nn_verbose_level > 0 .AND. numicb.NE.-1 ) THEN 265 268 WRITE(numicb,*) 266 269 WRITE(numicb,*) ' calving read in a file' … … 359 362 ibergs = icb_utl_count() 360 363 CALL mpp_sum('icbini', ibergs) 361 IF( nn_verbose_level > 0 ) THEN364 IF( nn_verbose_level > 0 .AND. numicb.NE.-1 ) THEN 362 365 WRITE(numicb,'(a,i6,a)') 'diamonds, icb_ini_gen: ',ibergs,' were generated' 363 366 ENDIF … … 410 413 READ ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 ) 411 414 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwp ) 412 IF(lwm ) WRITE ( numond, namberg )415 IF(lwm .AND. nprint > 2) WRITE ( numond, namberg ) 413 416 ! 414 417 IF(lwp) WRITE(numout,*) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icblbc.F90
r10888 r10968 194 194 ENDIF 195 195 196 IF( nn_verbose_level >= 2 ) THEN196 IF( nn_verbose_level >= 2 .AND. numicb /= -1) THEN 197 197 WRITE(numicb,*) 'processor west : ', ipe_W 198 198 WRITE(numicb,*) 'processor east : ', ipe_E … … 237 237 this => this%next 238 238 ibergs_to_send_e = ibergs_to_send_e + 1 239 IF( nn_verbose_level >= 4 ) THEN239 IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 240 240 WRITE(numicb,*) 'bergstep ',nktberg,' packing berg ',tmpberg%number(:),' for transfer to east' 241 241 CALL flush( numicb ) … … 250 250 this => this%next 251 251 ibergs_to_send_w = ibergs_to_send_w + 1 252 IF( nn_verbose_level >= 4 ) THEN252 IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 253 253 WRITE(numicb,*) 'bergstep ',nktberg,' packing berg ',tmpberg%number(:),' for transfer to west' 254 254 CALL flush( numicb ) … … 264 264 END DO 265 265 ENDIF 266 IF( nn_verbose_level >= 3 ) THEN266 IF( nn_verbose_level >= 3 .AND. numicb /= -1) THEN 267 267 WRITE(numicb,*) 'bergstep ',nktberg,' send ew: ', ibergs_to_send_e, ibergs_to_send_w 268 268 CALL flush(numicb) … … 298 298 ibergs_rcvd_from_w = INT( zwebergs(2) ) 299 299 END SELECT 300 IF( nn_verbose_level >= 3 ) THEN300 IF( nn_verbose_level >= 3 .AND. numicb /= -1 ) THEN 301 301 WRITE(numicb,*) 'bergstep ',nktberg,' recv ew: ', ibergs_rcvd_from_w, ibergs_rcvd_from_e 302 302 CALL flush(numicb) … … 312 312 IF( ibergs_to_send_e > 0 .AND. l_isend ) CALL mpi_wait( iml_req1, iml_stat, iml_err ) 313 313 DO i = 1, ibergs_rcvd_from_e 314 IF( nn_verbose_level >= 4 ) THEN314 IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 315 315 WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_e%data(16,i)),' from east' 316 316 CALL flush( numicb ) … … 332 332 IF( ibergs_to_send_e > 0 .AND. l_isend ) CALL mpi_wait( iml_req3, iml_stat, iml_err ) 333 333 DO i = 1, ibergs_rcvd_from_e 334 IF( nn_verbose_level >= 4 ) THEN334 IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 335 335 WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_e%data(16,i)),' from east' 336 336 CALL flush( numicb ) … … 339 339 END DO 340 340 DO i = 1, ibergs_rcvd_from_w 341 IF( nn_verbose_level >= 4 ) THEN341 IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 342 342 WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_w%data(16,i)),' from west' 343 343 CALL flush( numicb ) … … 353 353 IF( ibergs_to_send_w > 0 .AND. l_isend ) CALL mpi_wait( iml_req4, iml_stat, iml_err ) 354 354 DO i = 1, ibergs_rcvd_from_w 355 IF( nn_verbose_level >= 4 ) THEN355 IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 356 356 WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_w%data(16,i)),' from west' 357 357 CALL flush( numicb ) … … 375 375 this => this%next 376 376 ibergs_to_send_n = ibergs_to_send_n + 1 377 IF( nn_verbose_level >= 4 ) THEN377 IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 378 378 WRITE(numicb,*) 'bergstep ',nktberg,' packing berg ',tmpberg%number(:),' for transfer to north' 379 379 CALL flush( numicb ) … … 385 385 this => this%next 386 386 ibergs_to_send_s = ibergs_to_send_s + 1 387 IF( nn_verbose_level >= 4 ) THEN387 IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 388 388 WRITE(numicb,*) 'bergstep ',nktberg,' packing berg ',tmpberg%number(:),' for transfer to south' 389 389 CALL flush( numicb ) … … 396 396 END DO 397 397 ENDIF 398 if( nn_verbose_level >= 3 ) then398 if( nn_verbose_level >= 3 .AND. numicb /= -1 ) then 399 399 write(numicb,*) 'bergstep ',nktberg,' send ns: ', ibergs_to_send_n, ibergs_to_send_s 400 400 call flush(numicb) … … 429 429 ibergs_rcvd_from_s = INT( zsnbergs(2) ) 430 430 END SELECT 431 if( nn_verbose_level >= 3 ) then431 if( nn_verbose_level >= 3 .AND. numicb /= -1) then 432 432 write(numicb,*) 'bergstep ',nktberg,' recv ns: ', ibergs_rcvd_from_s, ibergs_rcvd_from_n 433 433 call flush(numicb) … … 443 443 IF( ibergs_to_send_n > 0 .AND. l_isend ) CALL mpi_wait( iml_req1, iml_stat, iml_err ) 444 444 DO i = 1, ibergs_rcvd_from_n 445 IF( nn_verbose_level >= 4 ) THEN445 IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 446 446 WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_n%data(16,i)),' from north' 447 447 CALL flush( numicb ) … … 463 463 IF( ibergs_to_send_n > 0 .AND. l_isend ) CALL mpi_wait( iml_req3, iml_stat, iml_err ) 464 464 DO i = 1, ibergs_rcvd_from_n 465 IF( nn_verbose_level >= 4 ) THEN465 IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 466 466 WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_n%data(16,i)),' from north' 467 467 CALL flush( numicb ) … … 470 470 END DO 471 471 DO i = 1, ibergs_rcvd_from_s 472 IF( nn_verbose_level >= 4 ) THEN472 IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 473 473 WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_s%data(16,i)),' from south' 474 474 CALL flush( numicb ) … … 484 484 IF( ibergs_to_send_s > 0 .AND. l_isend ) CALL mpi_wait( iml_req4, iml_stat, iml_err ) 485 485 DO i = 1, ibergs_rcvd_from_s 486 IF( nn_verbose_level >= 4 ) THEN486 IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 487 487 WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_s%data(16,i)),' from south' 488 488 CALL flush( numicb ) … … 497 497 i = ( ibergs_rcvd_from_n + ibergs_rcvd_from_s + ibergs_rcvd_from_e + ibergs_rcvd_from_w ) - & 498 498 ( ibergs_to_send_n + ibergs_to_send_s + ibergs_to_send_e + ibergs_to_send_w ) 499 IF( ibergs_end-(ibergs_start+i) .NE. 0 ) THEN499 IF( ibergs_end-(ibergs_start+i) .NE. 0 .AND. numicb /= -1) THEN 500 500 WRITE( numicb,* ) 'send_bergs_to_other_pes: net change in number of icebergs' 501 501 WRITE( numicb,1000) 'send_bergs_to_other_pes: ibergs_end=', & … … 532 532 IF( npolj /= 0 .AND. jpni > 1 ) CALL icb_lbc_mpp_nfld( ) 533 533 534 IF( nn_verbose_level > 0 534 IF( nn_verbose_level > 0) THEN 535 535 i = 0 536 536 this => first_berg … … 544 544 ijne .GT. mjg(nicbej)) THEN 545 545 i = i + 1 546 WRITE(numicb,*) 'berg lost in halo: ', this%number(:),iine,ijne 547 WRITE(numicb,*) ' ', nimpp, njmpp 548 WRITE(numicb,*) ' ', nicbdi, nicbei, nicbdj, nicbej 549 CALL flush( numicb ) 546 IF(numicb /= -1) THEN 547 WRITE(numicb,*) 'berg lost in halo: ', this%number(:),iine,ijne 548 WRITE(numicb,*) ' ', nimpp, njmpp 549 WRITE(numicb,*) ' ', nicbdi, nicbei, nicbdj, nicbej 550 CALL flush( numicb ) 551 ENDIF 550 552 ENDIF 551 553 this => this%next … … 553 555 CALL mpp_sum('icblbc', i) 554 556 IF( i .GT. 0 ) THEN 555 WRITE( numicb,'(a,i4)') 'send_bergs_to_other_pes: # of bergs outside computational domain = ',i 557 IF(numicb /= -1) THEN 558 WRITE( numicb,'(a,i4)') 'send_bergs_to_other_pes: # of bergs outside computational domain = ',i 559 ELSE 560 WRITE( *,'(a,i4)') 'send_bergs_to_other_pes: # of bergs outside computational domain = ',i 561 ENDIF 556 562 CALL ctl_stop('send_bergs_to_other_pes: there are bergs still in halos!') 557 563 ENDIF ! root_pe … … 656 662 IF( nicbfldproc(jjn) .eq. INT(znbergs(1)) ) EXIT 657 663 END DO 658 IF( jjn .GT. jpni .AND. nn_verbose_level > 0 ) write(numicb,*) 'ICB ERROR'664 IF( jjn .GT. jpni .AND. nn_verbose_level > 0 .AND. numicb /= -1 ) write(numicb,*) 'ICB ERROR' 659 665 nicbfldexpect(jjn) = INT( znbergs(2) ) 660 666 !IF ( nicbfldexpect(jjn) .GT. 0 .AND. nn_verbose_level > 0 ) write(numicb,*) 'ICB expecting ',nicbfldexpect(jjn),' from ', nicbfldproc(jjn) … … 711 717 tmpberg => this 712 718 ibergs_to_send = ibergs_to_send + 1 713 IF( nn_verbose_level >= 4 ) THEN719 IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 714 720 WRITE(numicb,*) 'bergstep ',nktberg,' packing berg ',tmpberg%number(:),' for north fold' 715 721 CALL flush( numicb ) … … 724 730 END DO 725 731 ENDIF 726 if( nn_verbose_level >= 3 ) then732 if( nn_verbose_level >= 3 .AND. numicb /= -1) then 727 733 write(numicb,*) 'bergstep ',nktberg,' send nfld: ', ibergs_to_send 728 734 call flush(numicb) … … 755 761 ! 756 762 DO jk = 1, ibergs_to_rcv 757 IF( nn_verbose_level >= 4 ) THEN763 IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 758 764 WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_f%data(16,jk)),' from north fold' 759 765 CALL flush( numicb ) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbrst.F90
r10888 r10968 137 137 ! Sanity checks 138 138 jn = icb_utl_count() 139 IF ( lwp .AND. n n_verbose_level >=0 ) &139 IF ( lwp .AND. nprint > 0 ) & 140 140 WRITE(numout,'(2(a,i5))') 'icebergs, read_restart_bergs: # bergs =',jn,' on PE',narea-1 141 141 IF( lk_mpp ) THEN … … 144 144 CALL mpp_sum('icbrst', jn) 145 145 ENDIF 146 IF( lwp ) WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, icb_rst_read: there were',ibergs_in_file, &146 IF( lwp .AND. nprint > 0 ) WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, icb_rst_read: there were',ibergs_in_file, & 147 147 & ' bergs in the restart file and', jn,' bergs have been read' 148 148 ! … … 176 176 ENDIF 177 177 ! 178 IF( lwp .AND. n n_verbose_level >=0 ) WRITE(numout,'(a)') 'icebergs, icb_rst_read: completed'178 IF( lwp .AND. nprint > 0 ) WRITE(numout,'(a)') 'icebergs, icb_rst_read: completed' 179 179 ! 180 180 END SUBROUTINE icb_rst_read … … 211 211 WRITE(cl_filename,'(A,"_icebergs_",I8.8,"_restart.nc")') TRIM(cexper), kt 212 212 ENDIF 213 IF ( lwp .AND. n n_verbose_level >=0) WRITE(numout,'(2a)') 'icebergs, write_restart: creating ', &213 IF ( lwp .AND. nprint > 0) WRITE(numout,'(2a)') 'icebergs, write_restart: creating ', & 214 214 & TRIM(cl_path)//TRIM(cl_filename) 215 215 … … 346 346 ENDIF 347 347 ENDDO 348 IF( lwp ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: stored_ice written'348 IF( lwp .AND. nprint > 1) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: stored_ice written' 349 349 350 350 nret = NF90_PUT_VAR( ncid, nkountid, num_bergs(:) ) … … 353 353 nret = NF90_PUT_VAR( ncid, nsheatid, berg_grid%stored_heat(:,:) ) 354 354 IF (nret .ne. NF90_NOERR) CALL ctl_stop('icebergs, write_restart: nf_put_var stored_heat failed') 355 IF( lwp ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: stored_heat written'355 IF( lwp .AND. nprint > 1) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: stored_heat written' 356 356 357 357 nret = NF90_PUT_VAR( ncid, ncalvid , src_calving(:,:) ) … … 359 359 nret = NF90_PUT_VAR( ncid, ncalvhid, src_calving_hflx(:,:) ) 360 360 IF (nret .ne. NF90_NOERR) CALL ctl_stop('icebergs, write_restart: nf_put_var calving_hflx failed') 361 IF( lwp ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: calving written'361 IF( lwp .AND. nprint > 1) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: calving written' 362 362 363 363 IF ( ASSOCIATED(first_berg) ) THEN … … 401 401 ! Sanity check 402 402 jn = icb_utl_count() 403 IF ( lwp .AND. n n_verbose_level >=0) &403 IF ( lwp .AND. nprint > 0) & 404 404 WRITE(numout,'(2(a,i5))') 'icebergs, icb_rst_write: # bergs =',jn,' on PE',narea-1 405 405 IF( lk_mpp ) THEN 406 406 CALL mpp_sum('icbrst', jn) 407 407 ENDIF 408 IF(lwp ) WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, icb_rst_write: ', jn, &408 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, icb_rst_write: ', jn, & 409 409 & ' bergs in total have been written at timestep ', kt 410 410 ! -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbstp.F90
r10888 r10968 88 88 IF( nn_verbose_write > 0 .AND. MOD( kt-1 , nn_verbose_write ) == 0 ) ll_verbose = ( nn_verbose_level >= 0 ) 89 89 ! 90 IF( ll_verbose ) WRITE(numicb,9100) nktberg, ndastp, nsec_day90 IF( ll_verbose .AND. numicb /= -1) WRITE(numicb,9100) nktberg, ndastp, nsec_day 91 91 9100 FORMAT('kt= ',i8, ' day= ',i8,' secs=',i8) 92 92 ! … … 161 161 IF( nn_sample_rate > 0 ) CALL icb_trj_end() 162 162 163 IF(lwp ) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea163 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea 164 164 ! 165 IF( nn_verbose_level > 0 ) THEN165 IF( nn_verbose_level > 0 .AND. numicb /= -1) THEN 166 166 CALL flush( numicb ) 167 167 CLOSE( numicb ) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbtrj.F90
r10888 r10968 85 85 & TRIM(ADJUSTL(cldate_ini)), TRIM(ADJUSTL(cldate_end)) 86 86 ENDIF 87 IF( lwp .AND. n n_verbose_level >= 0) WRITE(numout,'(2a)') 'icebergs, icb_trj_init: creating ',TRIM(cl_filename)87 IF( lwp .AND. nprint > 2 ) WRITE(numout,'(2a)') 'icebergs, icb_trj_init: creating ',TRIM(cl_filename) 88 88 89 89 iret = NF90_CREATE( TRIM(cl_filename), NF90_CLOBBER, ntrajid ) … … 248 248 this => this%next 249 249 END DO 250 IF( lwp .AND. n n_verbose_level> 0 ) WRITE(numout,*) 'trajectory write to frame ', jn250 IF( lwp .AND. nprint > 0 ) WRITE(numout,*) 'trajectory write to frame ', jn 251 251 num_traj = jn 252 252 ! -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbutl.F90
r10888 r10968 647 647 ! 648 648 IF (nn_verbose_level == 0) RETURN 649 pt => berg%current_point 650 WRITE(numicb, 9200) kt, berg%number(1), & 649 IF(numicb /= -1) THEN 650 pt => berg%current_point 651 WRITE(numicb, 9200) kt, berg%number(1), & 651 652 pt%xi, pt%yj, pt%lon, pt%lat, pt%uvel, pt%vvel, & 652 653 pt%uo, pt%vo, pt%ua, pt%va, pt%ui, pt%vi 653 CALL flush( numicb ) 654 CALL flush( numicb ) 655 ENDIF 654 656 9200 FORMAT(5x,i5,2x,i10,6(2x,2f10.4)) 655 657 ! … … 673 675 IF (nn_verbose_level == 0) RETURN 674 676 this => first_berg 675 IF( ASSOCIATED(this) ) THEN 676 WRITE(numicb,'(a," pe=(",i3,")")' ) cd_label, narea 677 WRITE(numicb,'(a8,4x,a6,12x,a5,15x,a7,19x,a3,17x,a5,17x,a5,17x,a5)' ) & 678 & 'timestep', 'number', 'xi,yj','lon,lat','u,v','uo,vo','ua,va','ui,vi' 677 IF(numicb /= -1) THEN 678 IF( ASSOCIATED(this) ) THEN 679 WRITE(numicb,'(a," pe=(",i3,")")' ) cd_label, narea 680 WRITE(numicb,'(a8,4x,a6,12x,a5,15x,a7,19x,a3,17x,a5,17x,a5,17x,a5)' ) & 681 & 'timestep', 'number', 'xi,yj','lon,lat','u,v','uo,vo','ua,va','ui,vi' 682 ENDIF 679 683 ENDIF 680 684 DO WHILE( ASSOCIATED(this) ) … … 685 689 inbergs = ibergs 686 690 CALL mpp_sum('icbutl', inbergs) 687 IF( ibergs > 0 ) WRITE(numicb,'(a," there are",i5," bergs out of",i6," on PE ",i4)') &691 IF( ibergs > 0 .AND. numicb /= -1) WRITE(numicb,'(a," there are",i5," bergs out of",i6," on PE ",i4)') & 688 692 & cd_label, ibergs, inbergs, narea 689 693 ! -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/IOM/iom.F90
r10888 r10968 321 321 ENDIF 322 322 !set name of the restart file and enable available fields 323 if(lwp ) WRITE(numout,*) 'Setting restart filename (for XIOS) to: ',rst_file323 if(lwp .AND. nprint > 1) WRITE(numout,*) 'Setting restart filename (for XIOS) to: ',rst_file 324 324 CALL xios_get_handle("file_definition", filegroup_hdl ) 325 325 CALL xios_add_child(filegroup_hdl, file_hdl, 'rrestart') … … 346 346 scalar_ref = "grid_scalar", operation = "instant") 347 347 END SELECT 348 IF(lwp ) WRITE(numout,*) 'XIOS read: ', TRIM(rst_rfields(i)%vname), ' enabled in ', TRIM(rst_file)348 IF(lwp .AND. nprint > 1) WRITE(numout,*) 'XIOS read: ', TRIM(rst_rfields(i)%vname), ' enabled in ', TRIM(rst_file) 349 349 ENDIF 350 350 ENDIF … … 537 537 538 538 !set name of the restart file and enable available fields 539 IF(lwp ) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',cdrst_file539 IF(lwp .AND. nprint > 1) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',cdrst_file 540 540 CALL xios_get_handle("file_definition", filegroup_hdl ) 541 541 CALL xios_add_child(filegroup_hdl, file_hdl, 'wrestart') … … 543 543 CALL xios_set_file_attr( "wrestart", type="one_file", enabled=.TRUE.,& 544 544 mode="write", output_freq=xios_timestep) 545 if(lwp ) write(numout,*) 'OPEN ', trim(cdrst_file), ' in one_file mode'545 if(lwp .AND. nprint > 1) write(numout,*) 'OPEN ', trim(cdrst_file), ' in one_file mode' 546 546 ELSE 547 547 CALL xios_set_file_attr( "wrestart", type="multiple_file", enabled=.TRUE.,& 548 548 mode="write", output_freq=xios_timestep) 549 if(lwp ) write(numout,*) 'OPEN ', trim(cdrst_file), ' in multiple_file mode'549 if(lwp .AND. nprint > 1) write(numout,*) 'OPEN ', trim(cdrst_file), ' in multiple_file mode' 550 550 ENDIF 551 551 CALL xios_set_file_attr( "wrestart", name=trim(cdrst_file)) … … 824 824 iom_file(jf)%nfid = 0 ! free the id 825 825 IF( PRESENT(kiomid) ) kiomid = 0 ! return 0 as id to specify that the file was closed 826 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok' 826 IF(lwp .AND. nprint > 1) & 827 WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok' 827 828 ELSEIF( PRESENT(kiomid) ) THEN 828 829 WRITE(ctmp1,*) '--->', kiomid … … 941 942 ELSE 942 943 #if defined key_iomput 943 IF(lwp ) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar)944 IF(lwp .AND. nprint > 1) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 944 945 CALL iom_swap( TRIM(crxios_context) ) 945 946 CALL xios_recv_field( trim(cdvar), pvar) … … 1266 1267 1267 1268 IF( istop == nstop ) THEN ! no additional errors until this point... 1268 IF(lwp) WRITE(numout,"(10x,' read ',a,' (rec: ',i6,') in ',a,' ok')") TRIM(cdvar), itime, TRIM(iom_file(kiomid)%name) 1269 IF(lwp .AND. nprint > 1) & 1270 WRITE(numout,"(10x,' read ',a,' (rec: ',i6,') in ',a,' ok')") TRIM(cdvar), itime, TRIM(iom_file(kiomid)%name) 1269 1271 1270 1272 !--- overlap areas and extra hallows (mpp) … … 1296 1298 IF( PRESENT(pv_r3d) ) THEN 1297 1299 pv_r3d(:, :, :) = 0. 1298 if(lwp ) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar)1300 if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar) 1299 1301 CALL xios_recv_field( trim(cdvar), pv_r3d) 1300 1302 IF(idom /= jpdom_unknown ) then … … 1303 1305 ELSEIF( PRESENT(pv_r2d) ) THEN 1304 1306 pv_r2d(:, :) = 0. 1305 if(lwp ) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar)1307 if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar) 1306 1308 CALL xios_recv_field( trim(cdvar), pv_r2d) 1307 1309 IF(idom /= jpdom_unknown ) THEN … … 1310 1312 ELSEIF( PRESENT(pv_r1d) ) THEN 1311 1313 pv_r1d(:) = 0. 1312 if(lwp ) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar)1314 if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar) 1313 1315 CALL xios_recv_field( trim(cdvar), pv_r1d) 1314 1316 ENDIF … … 1512 1514 #ifdef key_iomput 1513 1515 IF( kt == kwrite ) THEN 1514 IF(lwp ) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar)1516 IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) 1515 1517 CALL xios_send_field(trim(cdvar), pvar) 1516 1518 ENDIF … … 1542 1544 #ifdef key_iomput 1543 1545 IF( kt == kwrite ) THEN 1544 IF(lwp ) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar)1546 IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) 1545 1547 CALL xios_send_field(trim(cdvar), pvar) 1546 1548 ENDIF … … 1572 1574 #ifdef key_iomput 1573 1575 IF( kt == kwrite ) THEN 1574 IF(lwp ) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar)1576 IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) 1575 1577 CALL xios_send_field(trim(cdvar), pvar) 1576 1578 ENDIF … … 1602 1604 #ifdef key_iomput 1603 1605 IF( kt == kwrite ) THEN 1604 IF(lwp ) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar)1606 IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) 1605 1607 CALL xios_send_field(trim(cdvar), pvar) 1606 1608 ENDIF -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/IOM/iom_nf90.F90
r10888 r10968 88 88 ! !=========================! 89 89 IF( ldwrt ) THEN ! ... in write mode 90 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in WRITE mode'90 IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in WRITE mode' 91 91 IF( snc4set%luse ) THEN 92 92 CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_WRITE , if90id ), clinfo) … … 96 96 CALL iom_nf90_check(NF90_SET_FILL( if90id, NF90_NOFILL, idmy ), clinfo) 97 97 ELSE ! ... in read mode 98 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in READ mode'98 IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in READ mode' 99 99 CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_NOWRITE, if90id, chunksize = ichunk ), clinfo) 100 100 ENDIF … … 107 107 cdname = TRIM(cltmp) 108 108 ENDIF 109 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' create new file: '//TRIM(cdname)//' in WRITE mode'109 IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' create new file: '//TRIM(cdname)//' in WRITE mode' 110 110 111 111 IF( llclobber ) THEN ; imode = IOR( NF90_64BIT_OFFSET, NF90_CLOBBER ) … … 113 113 ENDIF 114 114 IF( snc4set%luse ) THEN 115 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode'115 IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode' 116 116 CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5) 117 117 IF( llclobber ) THEN ; imode = IOR(ihdf5, NF90_CLOBBER) … … 165 165 & len = iom_file(kiomid)%lenuld ), clinfo ) 166 166 ENDIF 167 IF(lwp ) WRITE(numout,*) ' ---> '//TRIM(cdname)//' OK'167 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' ---> '//TRIM(cdname)//' OK' 168 168 ELSE 169 169 kiomid = 0 ! return error flag … … 562 562 ! trick: defined to 0 to say that dimension variables are defined but not yet written 563 563 iom_file(kiomid)%dimsz(1, 1) = 0 564 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' define dimension variables done'564 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' define dimension variables done' 565 565 ENDIF 566 566 ! define the data if it is not already done … … 637 637 CALL iom_nf90_check(SET_NF90_DEF_VAR_CHUNKING(if90id, idvar, ichunkalg, ichunksz), clinfo) 638 638 CALL iom_nf90_check(SET_NF90_DEF_VAR_DEFLATE(if90id, idvar, ishuffle, ideflate, ideflate_level), clinfo) 639 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz640 ENDIF 641 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' defined ok'639 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz 640 ENDIF 641 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' defined ok' 642 642 ELSE 643 643 idvar = kvid … … 685 685 CALL iom_nf90_check( NF90_INQUIRE_DIMENSION( if90id, 3, len = iom_file(kiomid)%dimsz(1,3) ), clinfo ) 686 686 iom_file(kiomid)%dimsz(1 , 4) = 1 ! unlimited dimension 687 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' write dimension variables done'687 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' write dimension variables done' 688 688 ENDIF 689 689 ENDIF … … 703 703 IF( iom_file(kiomid)%luld(idvar) ) iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar) & 704 704 & = iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar) + 1 705 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' written ok'705 IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' written ok' 706 706 ENDIF 707 707 ! -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/IOM/restart.F90
r10888 r10968 95 95 clpath = TRIM(cn_ocerst_outdir) 96 96 IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 97 IF(lwp ) THEN97 IF(lwp .AND. nprint > 1) THEN 98 98 WRITE(numout,*) 99 99 IF(.NOT.lwxios) THEN … … 223 223 crxios_context = 'nemo_rst' 224 224 IF( .NOT.lxios_set ) THEN 225 IF(lwp ) WRITE(numout,*) 'Enable restart reading by XIOS'225 IF(lwp .AND. nprint > 0) WRITE(numout,*) 'Enable restart reading by XIOS' 226 226 CALL iom_init( crxios_context, ld_tmppatch = .false. ) 227 227 lxios_set = .TRUE. … … 230 230 IF( TRIM(Agrif_CFixed()) /= '0' .AND. lrxios) THEN 231 231 CALL iom_init( crxios_context, ld_tmppatch = .false. ) 232 IF(lwp ) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF'232 IF(lwp .AND. nprint > 0) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF' 233 233 lxios_set = .TRUE. 234 234 ENDIF -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/LBC/lib_mpp.F90
r10888 r10968 322 322 mynode = mpprank 323 323 324 IF( mynode == 0 ) THEN324 IF( mynode == 0 .AND. nprint > 2) THEN 325 325 CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 326 326 WRITE(kumond, nammpp) … … 1517 1517 crname_dlg(n_sequence_dlg) = cdname ! keep the name of the calling routine 1518 1518 ENDIF 1519 ELSE IF ( ncom_stp == nit000+2*ncom_freq ) THEN1519 ELSE IF ( ncom_stp == nit000+2*ncom_freq .AND. nprint > 1 ) THEN 1520 1520 CALL ctl_opn( numcom, 'communication_report.txt', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea ) 1521 1521 WRITE(numcom,*) ' ' … … 1986 1986 & OPEN(UNIT=knum,FILE='NUL', FORM=cdform, ACCESS=cdacce, STATUS=cdstat , ERR=100, IOSTAT=iost ) 1987 1987 IF( iost == 0 ) THEN 1988 IF(ldwp ) THEN1988 IF(ldwp .AND. nprint > 2) THEN 1989 1989 WRITE(kout,*) ' file : ', TRIM(clfile),' open ok' 1990 1990 WRITE(kout,*) ' unit = ', knum -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/LBC/mppini.F90
r10888 r10968 168 168 !!---------------------------------------------------------------------- 169 169 170 llwrtlay = lwp.OR. ln_ctl .OR. sn_cfctl%l_layout170 llwrtlay = (lwp.AND.nprint>1).OR. ln_ctl .OR. sn_cfctl%l_layout 171 171 ! do we need to take into account bdy_msk? 172 172 REWIND( numnam_ref ) ! Namelist nambdy in reference namelist : BDY … … 490 490 ! 5. Subdomain print 491 491 ! ------------------ 492 IF(lwp ) THEN492 IF(lwp .AND. nprint > 1) THEN 493 493 ifreq = 4 494 494 il1 = 1 … … 629 629 ! 630 630 nproc = narea-1 631 IF(lwp ) THEN631 IF(lwp .AND. nprint > 0) THEN 632 632 WRITE(numout,*) 633 633 WRITE(numout,*) ' resulting internal parameters : ' … … 1165 1165 idid(2) = 2 1166 1166 1167 IF(lwp ) THEN1167 IF(lwp .AND. nprint > 0) THEN 1168 1168 WRITE(numout,*) 1169 1169 WRITE(numout,*) 'mpp_init_ioipsl : iloc = ', iloc (1), iloc (2) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/LDF/ldfdyn.F90
r10888 r10968 122 122 READ ( numnam_cfg, namdyn_ldf, IOSTAT = ios, ERR = 902 ) 123 123 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist', lwp ) 124 IF(lwm ) WRITE ( numond, namdyn_ldf )124 IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_ldf ) 125 125 126 126 IF(lwp) THEN ! Parameter print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/LDF/ldftra.F90
r10888 r10968 158 158 READ ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 ) 159 159 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist', lwp ) 160 IF(lwm ) WRITE( numond, namtra_ldf )160 IF(lwm .AND. nprint > 2) WRITE( numond, namtra_ldf ) 161 161 ! 162 162 IF(lwp) THEN ! control print … … 517 517 READ ( numnam_cfg, namtra_eiv, IOSTAT = ios, ERR = 902 ) 518 518 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_eiv in configuration namelist', lwp ) 519 IF(lwm ) WRITE ( numond, namtra_eiv )519 IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_eiv ) 520 520 521 521 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/OBS/diaobs.F90
r10888 r10968 207 207 READ ( numnam_cfg, namobs, IOSTAT = ios, ERR = 902 ) 208 208 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namobs in configuration namelist', lwp ) 209 IF(lwm ) WRITE ( numond, namobs )209 IF(lwm .AND. nprint > 2) WRITE ( numond, namobs ) 210 210 211 211 IF( .NOT.ln_diaobs ) THEN -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/fldread.F90
r10888 r10968 195 195 ENDIF 196 196 END DO 197 IF( lwp ) CALL wgt_print() ! control print197 IF( lwp .AND. nprint > 1) CALL wgt_print() ! control print 198 198 ENDIF 199 199 ! ! ====================================== ! … … 298 298 ! 299 299 IF( sd(jf)%ln_tint ) THEN ! temporal interpolation 300 IF(lwp .AND. kt - nit000 <= 100) THEN300 IF(lwp .AND. nprint > 1 ) THEN 301 301 clfmt = "(' fld_read: var ', a, ' kt = ', i8, ' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," // & 302 302 & "', records b/a: ', i6.4, '/', i6.4, ' (days ', f9.4,'/', f9.4, ')')" … … 310 310 sd(jf)%fnow(:,:,:) = ztintb * sd(jf)%fdta(:,:,:,1) + ztinta * sd(jf)%fdta(:,:,:,2) 311 311 ELSE ! nothing to do... 312 IF(lwp .AND. kt - nit000 <= 100) THEN312 IF(lwp .AND. nprint > 1 ) THEN 313 313 clfmt = "(' fld_read: var ', a, ' kt = ', i8,' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," // & 314 314 & "', record: ', i6.4, ' (days ', f9.4, ' <-> ', f9.4, ')')" … … 440 440 ! 441 441 clfmt = "(' fld_init : time-interpolation for ', a, ' read previous record = ', i6, ' at time = ', f7.2, ' days')" 442 IF(lwp ) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday442 IF(lwp .AND. nprint > 1) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday 443 443 ! 444 444 ENDIF … … 762 762 ENDIF 763 763 764 IF(lwp ) WRITE(numout,*) 'Dim size for ', TRIM(clvar),' is ', ilendta765 IF(lwp ) WRITE(numout,*) 'Number of levels for ',TRIM(clvar),' is ', ipk764 IF(lwp.AND. nprint > 1) WRITE(numout,*) 'Dim size for ', TRIM(clvar),' is ', ilendta 765 IF(lwp.AND. nprint > 1) WRITE(numout,*) 'Number of levels for ',TRIM(clvar),' is ', ipk 766 766 ! 767 767 SELECT CASE( ipk ) … … 908 908 WRITE(ibstr,"(I10.10)") map%ptr(ib) 909 909 CALL ctl_warn('fld_bdy_interp: U depths differ between grids at BDY point '//TRIM(ibstr)//' by more than 1%') 910 IF(lwp ) WRITE(*,*) 'DEPTHU', zh, sum(e3u_n(zij,zjj,:), mask=umask(zij,zjj,:)==1), sum(umask(zij,zjj,:)), &910 IF(lwp .AND. nprint > 1) WRITE(*,*) 'DEPTHU', zh, sum(e3u_n(zij,zjj,:), mask=umask(zij,zjj,:)==1), sum(umask(zij,zjj,:)), & 911 911 & hu_n(zij,zjj), map%ptr(ib), ib, zij, zjj, narea-1 , & 912 912 & dta_read(map%ptr(ib),1,:) … … 1174 1174 END DO 1175 1175 sd(ju)%rotn(jn) = .TRUE. ! vector was rotated 1176 IF( lwp .AND. kt == nit000 ) WRITE(numout,*) &1176 IF( lwp .AND. kt == nit000 .AND. nprint > 1) WRITE(numout,*) & 1177 1177 & 'fld_read: vector pair ('//TRIM(sd(ju)%clvar)//', '//TRIM(sd(iv)%clvar)//') rotated on to model grid' 1178 1178 ENDIF -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcapr.F90
r10888 r10968 76 76 READ ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 ) 77 77 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist', lwp ) 78 IF(lwm ) WRITE ( numond, namsbc_apr )78 IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_apr ) 79 79 ! 80 80 ALLOCATE( sf_apr(1), STAT=ierror ) !* allocate and fill sf_sst (forcing structure) with sn_sst -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcblk.F90
r10888 r10968 188 188 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_blk in configuration namelist', lwp ) 189 189 ! 190 IF(lwm ) WRITE( numond, namsbc_blk )190 IF(lwm .AND. nprint > 2) WRITE( numond, namsbc_blk ) 191 191 ! 192 192 ! !** initialization of the chosen bulk formulae (+ check) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbccpl.F90
r10888 r10968 271 271 READ ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 ) 272 272 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwp ) 273 IF(lwm ) WRITE ( numond, namsbc_cpl )273 IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_cpl ) 274 274 ! 275 275 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcflx.F90
r10888 r10968 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? -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcfwb.F90
r10888 r10968 187 187 erp(:,:) = erp(:,:) + zerp_cor(:,:) 188 188 ! 189 IF( nprint == 1.AND. lwp ) THEN ! control print189 IF( nprint > 3 .AND. lwp ) THEN ! control print 190 190 IF( z_fwf < 0._wp ) THEN 191 191 WRITE(numout,*)' z_fwf < 0' -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcice_cice.F90
r10888 r10968 769 769 READ ( numnam_cfg, namsbc_cice, IOSTAT = ios, ERR = 902 ) 770 770 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist', lwp ) 771 IF(lwm ) WRITE ( numond, namsbc_cice )771 IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_cice ) 772 772 773 773 ! store namelist information in an array -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcice_if.F90
r10888 r10968 81 81 READ ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 82 82 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp ) 83 IF(lwm ) WRITE ( numond, namsbc_iif )83 IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_iif ) 84 84 85 85 ALLOCATE( sf_ice(1), STAT=ierror ) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcisf.F90
r10888 r10968 206 206 IF( ln_rstart .AND. & ! Restart: read in restart file 207 207 & iom_varid( numror, 'fwf_isf_b', ldstop = .FALSE. ) > 0 ) THEN 208 IF(lwp ) WRITE(numout,*) ' nit000-1 isf tracer content forcing fields read in the restart file'208 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' nit000-1 isf tracer content forcing fields read in the restart file' 209 209 CALL iom_get( numror, jpdom_autoglo, 'fwf_isf_b', fwfisf_b(:,:) , ldxios = lrxios ) ! before salt content isf_tsc trend 210 210 CALL iom_get( numror, jpdom_autoglo, 'isf_sc_b' , risf_tsc_b(:,:,jp_sal), ldxios = lrxios ) ! before salt content isf_tsc trend … … 217 217 ! 218 218 IF( lrst_oce ) THEN 219 IF(lwp ) WRITE(numout,*)220 IF(lwp ) WRITE(numout,*) 'sbc : isf surface tracer content forcing fields written in ocean restart file ', &219 IF(lwp .AND. nprint > 0) WRITE(numout,*) 220 IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbc : isf surface tracer content forcing fields written in ocean restart file ', & 221 221 & 'at it= ', kt,' date= ', ndastp 222 IF(lwp ) WRITE(numout,*) '~~~~'222 IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~' 223 223 IF( lwxios ) CALL iom_swap( cwxios_context ) 224 224 CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:) , ldxios = lwxios ) … … 283 283 READ ( numnam_cfg, namsbc_isf, IOSTAT = ios, ERR = 902 ) 284 284 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_isf in configuration namelist', lwp ) 285 IF(lwm ) WRITE ( numond, namsbc_isf )285 IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_isf ) 286 286 287 287 IF(lwp) WRITE(numout,*) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcmod.F90
r10888 r10968 114 114 READ ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 115 115 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 116 IF(lwm ) WRITE( numond, namsbc )116 IF(lwm .AND. nprint > 2) WRITE( numond, namsbc ) 117 117 ! 118 118 #if defined key_mpp_mpi … … 495 495 IF( ln_rstart .AND. & !* Restart: read in restart file 496 496 & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 497 IF(lwp ) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file'497 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file' 498 498 CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b, ldxios = lrxios ) ! before i-stress (U-point) 499 499 CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b, ldxios = lrxios ) ! before j-stress (V-point) … … 520 520 IF( lrst_oce ) THEN ! Write in the ocean restart file ! 521 521 ! ! ---------------------------------------- ! 522 IF(lwp ) WRITE(numout,*)523 IF(lwp ) WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ', &522 IF(lwp .AND. nprint > 0) WRITE(numout,*) 523 IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ', & 524 524 & 'at it= ', kt,' date= ', ndastp 525 IF(lwp ) WRITE(numout,*) '~~~~'525 IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~' 526 526 IF( lwxios ) CALL iom_swap( cwxios_context ) 527 527 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau, ldxios = lwxios ) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcrnf.F90
r10888 r10968 146 146 IF( ln_rstart .AND. & !* Restart: read in restart file 147 147 & iom_varid( numror, 'rnf_b', ldstop = .FALSE. ) > 0 ) THEN 148 IF(lwp ) WRITE(numout,*) ' nit000-1 runoff forcing fields red in the restart file', lrxios148 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' nit000-1 runoff forcing fields red in the restart file', lrxios 149 149 CALL iom_get( numror, jpdom_autoglo, 'rnf_b', rnf_b, ldxios = lrxios ) ! before runoff 150 150 CALL iom_get( numror, jpdom_autoglo, 'rnf_hc_b', rnf_tsc_b(:,:,jp_tem), ldxios = lrxios ) ! before heat content of runoff 151 151 CALL iom_get( numror, jpdom_autoglo, 'rnf_sc_b', rnf_tsc_b(:,:,jp_sal), ldxios = lrxios ) ! before salinity content of runoff 152 152 ELSE !* no restart: set from nit000 values 153 IF(lwp ) WRITE(numout,*) ' nit000-1 runoff forcing fields set to nit000'153 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' nit000-1 runoff forcing fields set to nit000' 154 154 rnf_b (:,: ) = rnf (:,: ) 155 155 rnf_tsc_b(:,:,:) = rnf_tsc(:,:,:) … … 159 159 IF( lrst_oce ) THEN ! Write in the ocean restart file ! 160 160 ! ! ---------------------------------------- ! 161 IF(lwp ) WRITE(numout,*)162 IF(lwp ) WRITE(numout,*) 'sbcrnf : runoff forcing fields written in ocean restart file ', &161 IF(lwp .AND. nprint > 0) WRITE(numout,*) 162 IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbcrnf : runoff forcing fields written in ocean restart file ', & 163 163 & 'at it= ', kt,' date= ', ndastp 164 IF(lwp ) WRITE(numout,*) '~~~~'164 IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~' 165 165 IF( lwxios ) CALL iom_swap( cwxios_context ) 166 166 CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf, ldxios = lwxios ) … … 272 272 READ ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 ) 273 273 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist', lwp ) 274 IF(lwm ) WRITE ( numond, namsbc_rnf )274 IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_rnf ) 275 275 ! 276 276 ! ! Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcssr.F90
r10888 r10968 171 171 READ ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 ) 172 172 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist', lwp ) 173 IF(lwm ) WRITE ( numond, namsbc_ssr )173 IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_ssr ) 174 174 175 175 IF(lwp) THEN !* control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcwave.F90
r10888 r10968 402 402 READ ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 403 403 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist', lwp ) 404 IF(lwm ) WRITE ( numond, namsbc_wave )404 IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_wave ) 405 405 ! 406 406 IF( ln_cdgw ) THEN -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/tideini.F90
r10888 r10968 65 65 READ ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 66 66 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwp ) 67 IF(lwm ) WRITE ( numond, nam_tide )67 IF(lwm .AND. nprint > 2) WRITE ( numond, nam_tide ) 68 68 ! 69 69 IF( ln_tide ) THEN -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/STO/stopar.F90
r10888 r10968 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( .NOT.ln_rststo ) THEN ! no use of stochastic parameterization -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/eosbn2.F90
r10888 r10968 1240 1240 READ ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 1241 1241 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) 1242 IF(lwm ) WRITE( numond, nameos )1242 IF(lwm .AND. nprint > 2) WRITE( numond, nameos ) 1243 1243 ! 1244 1244 rau0 = 1026._wp !: volumic mass of reference [kg/m3] -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/traadv.F90
r10888 r10968 201 201 READ ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 202 202 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwp ) 203 IF(lwm ) WRITE( numond, namtra_adv )203 IF(lwm .AND. nprint > 2) WRITE( numond, namtra_adv ) 204 204 ! 205 205 IF(lwp) THEN ! Namelist print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/trabbc.F90
r10888 r10968 140 140 READ ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 141 141 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwp ) 142 IF(lwm ) WRITE ( numond, nambbc )142 IF(lwm .AND. nprint > 2) WRITE ( numond, nambbc ) 143 143 ! 144 144 IF(lwp) THEN ! Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/trabbl.F90
r10888 r10968 490 490 READ ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 491 491 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 492 IF(lwm ) WRITE ( numond, nambbl )492 IF(lwm .AND. nprint > 2) WRITE ( numond, nambbl ) 493 493 ! 494 494 l_bbl = .TRUE. !* flag to compute bbl coef and transport -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/tradmp.F90
r10888 r10968 184 184 READ ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 185 185 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 186 IF(lwm ) WRITE ( numond, namtra_dmp )186 IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_dmp ) 187 187 ! 188 188 IF(lwp) THEN ! Namelist print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/tramle.F90
r10888 r10968 273 273 READ ( numnam_cfg, namtra_mle, IOSTAT = ios, ERR = 902 ) 274 274 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_mle in configuration namelist', lwp ) 275 IF(lwm ) WRITE ( numond, namtra_mle )275 IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_mle ) 276 276 277 277 IF(lwp) THEN ! Namelist print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/traqsr.F90
r10888 r10968 135 135 !!gm case neuler not taken into account.... 136 136 IF( ln_rstart .AND. iom_varid( numror, 'qsr_hc_b', ldstop = .FALSE. ) > 0 ) THEN ! read in restart 137 IF(lwp ) WRITE(numout,*) ' nit000-1 qsr tracer content forcing field read in the restart file'137 IF(lwp .AND. nprint >0) WRITE(numout,*) ' nit000-1 qsr tracer content forcing field read in the restart file' 138 138 z1_2 = 0.5_wp 139 139 CALL iom_get( numror, jpdom_autoglo, 'qsr_hc_b', qsr_hc_b, ldxios = lrxios ) ! before heat content trend due to Qsr flux … … 343 343 READ ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 344 344 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp ) 345 IF(lwm ) WRITE ( numond, namtra_qsr )345 IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_qsr ) 346 346 ! 347 347 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/trasbc.F90
r10888 r10968 107 107 IF( ln_rstart .AND. & ! Restart: read in restart file 108 108 & iom_varid( numror, 'sbc_hc_b', ldstop = .FALSE. ) > 0 ) THEN 109 IF(lwp ) WRITE(numout,*) ' nit000-1 sbc tracer content field read in the restart file'109 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' nit000-1 sbc tracer content field read in the restart file' 110 110 zfact = 0.5_wp 111 111 sbc_tsc(:,:,:) = 0._wp -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRD/trdini.F90
r10888 r10968 53 53 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 54 54 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 55 IF(lwm ) WRITE( numond, namtrd )55 IF(lwm .AND. nprint > 2) WRITE( numond, namtrd ) 56 56 ! 57 57 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRD/trdmxl.F90
r10888 r10968 739 739 READ ( numnam_cfg, namtrd_mxl, IOSTAT = ios, ERR = 902 ) 740 740 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist', lwp ) 741 IF(lwm ) WRITE( numond, namtrd_mxl )741 IF(lwm .AND. nprint > 2) WRITE( numond, namtrd_mxl ) 742 742 ! 743 743 IF(lwp) THEN ! control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/USR/usrdef_hgr.F90
r10888 r10968 107 107 CALL ctl_warn( ' GYRE used as Benchmark: e1=e2=106km, no need to adjust rdt, ahm,aht ' ) 108 108 ENDIF 109 IF( nprint ==1.AND. lwp ) THEN109 IF( nprint > 3 .AND. lwp ) THEN 110 110 WRITE(numout,*) 'ze1', ze1, 'cosalpha', zcos_alpha, 'sinalpha', zsin_alpha 111 111 WRITE(numout,*) 'ze1deg', ze1deg, 'zlam0', zlam0, 'zphi0', zphi0 -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfdrg.F90
r10888 r10968 242 242 READ ( numnam_cfg, namdrg, IOSTAT = ios, ERR = 902 ) 243 243 902 IF( ios > 0 ) CALL ctl_nam( ios , 'namdrg in configuration namelist', lwp ) 244 IF(lwm ) WRITE ( numond, namdrg )244 IF(lwm .AND. nprint > 2) WRITE ( numond, namdrg ) 245 245 ! 246 246 IF(lwp) THEN … … 343 343 IF(ll_bot) READ ( numnam_cfg, namdrg_bot, IOSTAT = ios, ERR = 902 ) 344 344 902 IF( ios > 0 ) CALL ctl_nam( ios , TRIM(cl_namcfg), lwp ) 345 IF(lwm .AND. ll_top ) WRITE ( numond, namdrg_top )346 IF(lwm .AND. ll_bot ) WRITE ( numond, namdrg_bot )345 IF(lwm .AND. ll_top .AND. nprint > 2) WRITE ( numond, namdrg_top ) 346 IF(lwm .AND. ll_bot .AND. nprint > 2) WRITE ( numond, namdrg_bot ) 347 347 ! 348 348 IF(lwp) THEN -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfgls.F90
r10888 r10968 864 864 READ ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 865 865 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist', lwp ) 866 IF(lwm ) WRITE ( numond, namzdf_gls )866 IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_gls ) 867 867 868 868 IF(lwp) THEN !* Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfiwm.F90
r10888 r10968 429 429 READ ( numnam_cfg, namzdf_iwm, IOSTAT = ios, ERR = 902 ) 430 430 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in configuration namelist', lwp ) 431 IF(lwm ) WRITE ( numond, namzdf_iwm )431 IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_iwm ) 432 432 ! 433 433 IF(lwp) THEN ! Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfosm.F90
r10888 r10968 1391 1391 READ ( numnam_cfg, namzdf_osm, IOSTAT = ios, ERR = 902 ) 1392 1392 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_osm in configuration namelist', lwp ) 1393 IF(lwm ) WRITE ( numond, namzdf_osm )1393 IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_osm ) 1394 1394 1395 1395 IF(lwp) THEN ! Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfphy.F90
r10888 r10968 98 98 READ ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 99 99 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwp ) 100 IF(lwm ) WRITE ( numond, namzdf )100 IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf ) 101 101 ! 102 102 IF(lwp) THEN ! Parameter print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfric.F90
r10888 r10968 85 85 READ ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 86 86 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp ) 87 IF(lwm ) WRITE ( numond, namzdf_ric )87 IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_ric ) 88 88 ! 89 89 IF(lwp) THEN ! Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdftke.F90
r10888 r10968 663 663 READ ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 ) 664 664 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist', lwp ) 665 IF(lwm ) WRITE ( numond, namzdf_tke )665 IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_tke ) 666 666 ! 667 667 ri_cri = 2._wp / ( 2._wp + rn_ediss / rn_ediff ) ! resulting critical Richardson number … … 797 797 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 798 798 ! ! ------------------- 799 IF(lwp ) WRITE(numout,*) '---- tke_rst ----'799 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- tke_rst ----' 800 800 IF( lwxios ) CALL iom_swap( cwxios_context ) 801 801 CALL iom_rstput( kt, nitrst, numrow, 'en' , en , ldxios = lwxios ) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/nemogcm.F90
r10888 r10968 100 100 PUBLIC nemo_alloc ! needed by TAM 101 101 102 CHARACTER(lc) :: cform_start="( /, 'Start run', / ) " ! flag for output listing 103 CHARACTER(lc) :: cform_end="( /, 'End run', / ) " ! flag for output listing 102 104 CHARACTER(lc) :: cform_aaa="( /, 'AAAAAAAA', / ) " ! flag for output listing 103 105 … … 150 152 CALL mpp_max( 'nemogcm', nstop ) 151 153 152 IF(lwp) WRITE(numout, cform_aaa) ! Flag AAAAAAA154 IF(lwp) WRITE(numout, cform_start) ! Flag AAAAAAA 153 155 154 156 ! !-----------------------! … … 217 219 ! !== finalize the run ==! 218 220 ! !------------------------! 219 IF(lwp) WRITE(numout, cform_aaa) ! Flag AAAAAAA221 IF(lwp) WRITE(numout, cform_end) ! Flag AAAAAAA 220 222 ! 221 223 IF( nstop /= 0 .AND. lwp ) THEN ! error print … … 295 297 CALL usr_def_nam( cltxt2, clnam, cn_cfg, nn_cfg, jpiglo, jpjglo, jpkglo, jperio ) 296 298 ENDIF 299 nprint = nn_print ! convert DOCTOR namelist names into OLD names 297 300 ! 298 301 ! … … 343 346 lwp = (narea == 1) .OR. ln_ctl ! control of all listing output print 344 347 345 IF(lwm ) THEN ! write merged namelists from earlier to output namelist348 IF(lwm .AND. nprint > 2) THEN ! write merged namelists from earlier to output namelist 346 349 ! ! now that the file has been opened in call to mynode. 347 350 ! ! NB: nammpp has already been written in mynode (if lk_mpp_mpi) … … 389 392 END DO 390 393 ! 391 WRITE(numout,cform_aaa) ! Flag AAAAAAA394 IF(nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 392 395 ! 393 396 ENDIF … … 494 497 IF( lk_asminc ) CALL asm_inc_init ! Initialize assimilation increments 495 498 ! 496 IF(lwp ) WRITE(numout,cform_aaa) ! Flag AAAAAAA499 IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 497 500 ! 498 501 IF( ln_timing ) CALL timing_stop( 'nemo_init') … … 538 541 ENDIF 539 542 ! 540 nprint = nn_print ! convert DOCTOR namelist names into OLD names541 543 nictls = nn_ictls 542 544 nictle = nn_ictle -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/step.F90
r10888 r10968 307 307 IF( kstp == nit000 ) THEN ! 1st time step only 308 308 CALL iom_close( numror ) ! close input ocean restart file 309 IF(lwm )CALL FLUSH ( numond ) ! flush output namelist oce309 IF(lwm .AND. numond /= -1 ) CALL FLUSH ( numond ) ! flush output namelist oce 310 310 IF(lwm .AND. numoni /= -1 ) CALL FLUSH ( numoni ) ! flush output namelist ice (if exist) 311 311 ENDIF -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/timing.F90
r10888 r10968 373 373 CALL MPI_GATHER( (/compute_time, waiting_time(1), waiting_time(2), elapsed_time/), & 374 374 & 4, MPI_DOUBLE_PRECISION, timing_glob, 4, MPI_DOUBLE_PRECISION, 0, MPI_COMM_OCE, icode) 375 IF( narea == 1 ) THEN375 IF( narea == 1 .AND. nprint > 1) THEN 376 376 WRITE(numtime,*) ' ' 377 377 WRITE(numtime,*) ' Report on time spent on waiting MPI messages '
Note: See TracChangeset
for help on using the changeset viewer.