Changeset 11782
- Timestamp:
- 2019-10-24T10:30:30+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11756_text_output/src
- Files:
-
- 101 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11756_text_output/src/ICE/icealb.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/ICE/icedia.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/ICE/icedyn.F90
r11536 r11782 230 230 READ ( numnam_ice_cfg, namdyn, IOSTAT = ios, ERR = 902 ) 231 231 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn in configuration namelist' ) 232 IF(lwm ) WRITE( numoni, namdyn )232 IF(lwm .AND. nprint > 2) WRITE( numoni, namdyn ) 233 233 ! 234 234 IF(lwp) THEN ! control print -
NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_adv.F90
r11536 r11782 137 137 READ ( numnam_ice_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 138 138 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist' ) 139 IF(lwm ) WRITE( numoni, namdyn_adv )139 IF(lwm .AND. nprint > 2) WRITE( numoni, namdyn_adv ) 140 140 ! 141 141 IF(lwp) THEN ! control print -
NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_adv_pra.F90
r11732 r11782 788 788 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN !== write in the ice restart file ==! 789 789 ! !=====================================! 790 IF(lwp ) WRITE(numout,*) '---- ice-adv-rst ----'790 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- ice-adv-rst ----' 791 791 iter = kt + nn_fsbc - 1 ! ice restarts are written at kt == nitrst - nn_fsbc + 1 792 792 ! -
NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rdgrft.F90
r11732 r11782 914 914 READ ( numnam_ice_cfg, namdyn_rdgrft, IOSTAT = ios, ERR = 902 ) 915 915 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_rdgrft in configuration namelist' ) 916 IF(lwm ) WRITE ( numoni, namdyn_rdgrft )916 IF(lwm .AND. nprint > 2) WRITE ( numoni, namdyn_rdgrft ) 917 917 ! 918 918 IF (lwp) THEN ! control print -
NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rhg.F90
r11536 r11782 119 119 READ ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 ) 120 120 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist' ) 121 IF(lwm ) WRITE ( numoni, namdyn_rhg )121 IF(lwm .AND. nprint > 2) WRITE ( numoni, namdyn_rhg ) 122 122 ! 123 123 IF(lwp) THEN ! control print -
NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rhg_evp.F90
r11536 r11782 899 899 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 900 900 ! ! ------------------- 901 IF(lwp ) WRITE(numout,*) '---- rhg-rst ----'901 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- rhg-rst ----' 902 902 iter = kt + nn_fsbc - 1 ! ice restarts are written at kt == nitrst - nn_fsbc + 1 903 903 ! -
NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceistate.F90
r11536 r11782 480 480 READ ( numnam_ice_cfg, namini, IOSTAT = ios, ERR = 902 ) 481 481 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namini in configuration namelist' ) 482 IF(lwm ) WRITE ( numoni, namini )482 IF(lwm .AND. nprint > 2) WRITE ( numoni, namini ) 483 483 ! 484 484 slf_i(jp_hti) = sn_hti ; slf_i(jp_hts) = sn_hts -
NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceitd.F90
r11732 r11782 692 692 READ ( numnam_ice_cfg, namitd, IOSTAT = ios, ERR = 902 ) 693 693 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namitd in configuration namelist' ) 694 IF(lwm ) WRITE( numoni, namitd )694 IF(lwm .AND. nprint > 2) WRITE( numoni, namitd ) 695 695 ! 696 696 IF(lwp) THEN ! control print -
NEMO/branches/2019/dev_r11756_text_output/src/ICE/icerst.F90
r11536 r11782 70 70 clpath = TRIM(cn_icerst_outdir) 71 71 IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath)//'/' 72 IF(lwp ) THEN72 IF(lwp .AND. nprint > 0) THEN 73 73 WRITE(numout,*) 74 74 WRITE(numout,*) ' open ice restart NetCDF file: ',TRIM(clpath)//clname … … 108 108 iter = kt + nn_fsbc - 1 ! ice restarts are written at kt == nitrst - nn_fsbc + 1 109 109 110 IF( iter == nitrst ) THEN110 IF( iter == nitrst .AND. nprint > 0 ) THEN 111 111 IF(lwp) WRITE(numout,*) 112 112 IF(lwp) WRITE(numout,*) 'ice_rst_write : write ice restart file kt =', kt … … 178 178 !!---------------------------------------------------------------------- 179 179 180 IF(lwp ) THEN180 IF(lwp .AND. nprint > 0) THEN 181 181 WRITE(numout,*) 182 182 WRITE(numout,*) 'ice_rst_read: read ice NetCDF restart file' … … 196 196 CALL iom_get( numrir, 'nn_fsbc', zfice ) 197 197 CALL iom_get( numrir, 'kt_ice' , ziter ) 198 IF(lwp ) WRITE(numout,*) ' read ice restart file at time step : ', ziter199 IF(lwp ) WRITE(numout,*) ' in any case we force it to nit000 - 1 : ', nit000 - 1198 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' read ice restart file at time step : ', ziter 199 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' in any case we force it to nit000 - 1 : ', nit000 - 1 200 200 201 201 ! Control of date -
NEMO/branches/2019/dev_r11756_text_output/src/ICE/icesbc.F90
r11575 r11782 290 290 READ ( numnam_ice_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 291 291 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist' ) 292 IF(lwm ) WRITE( numoni, namsbc )292 IF(lwm .AND. nprint > 2) WRITE( numoni, namsbc ) 293 293 ! 294 294 IF(lwp) THEN ! control print -
NEMO/branches/2019/dev_r11756_text_output/src/ICE/icestp.F90
r11536 r11782 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) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 238 238 ! 239 239 CALL par_init ! set some ice run parameters … … 307 307 READ ( numnam_ice_cfg, nampar, IOSTAT = ios, ERR = 902 ) 308 308 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampar in configuration namelist' ) 309 IF(lwm ) WRITE( numoni, nampar )309 IF(lwm .AND. nprint > 2) WRITE( numoni, nampar ) 310 310 ! 311 311 IF(lwp) THEN ! control print -
NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd.F90
r11536 r11782 545 545 READ ( numnam_ice_cfg, namthd, IOSTAT = ios, ERR = 902 ) 546 546 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd in configuration namelist' ) 547 IF(lwm ) WRITE( numoni, namthd )547 IF(lwm .AND. nprint > 2) WRITE( numoni, namthd ) 548 548 ! 549 549 IF(lwp) THEN ! control print -
NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_da.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/ICE/icethd_do.F90
r11536 r11782 449 449 READ ( numnam_ice_cfg, namthd_do, IOSTAT = ios, ERR = 902 ) 450 450 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_do in configuration namelist' ) 451 IF(lwm ) WRITE( numoni, namthd_do )451 IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_do ) 452 452 ! 453 453 IF(lwp) THEN ! control print -
NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_pnd.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/ICE/icethd_sal.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/ICE/icethd_zdf.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/ICE/iceupdate.F90
r11536 r11782 439 439 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 440 440 ! ! ------------------- 441 IF(lwp ) WRITE(numout,*) '---- update-rst ----'441 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- update-rst ----' 442 442 iter = kt + nn_fsbc - 1 ! ice restarts are written at kt == nitrst - nn_fsbc + 1 443 443 ! -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/ASM/asminc.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/BDY/bdydta.F90
r11536 r11782 434 434 READ ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 435 435 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist' ) 436 IF(lwm ) WRITE( numond, nambdy_dta )436 IF(lwm .AND. nprint > 2) WRITE( numond, nambdy_dta ) 437 437 ENDIF 438 438 -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdyini.F90
r11536 r11782 96 96 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 97 97 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist' ) 98 IF(lwm ) WRITE ( numond, nambdy )98 IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy ) 99 99 100 100 IF( .NOT. Agrif_Root() ) ln_bdy = .FALSE. ! forced for Agrif children … … 1088 1088 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 1089 1089 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist' ) 1090 IF(lwm ) WRITE ( numond, nambdy_index )1090 IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_index ) 1091 1091 1092 1092 SELECT CASE ( TRIM(ctypebdy) ) -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdytides.F90
r11536 r11782 100 100 READ ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 101 101 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist' ) 102 IF(lwm ) WRITE ( numond, nambdy_tide )102 IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_tide ) 103 103 ! ! Parameter control and print 104 104 IF(lwp) WRITE(numout,*) ' ' -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/C1D/c1d.F90
r11536 r11782 57 57 READ ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 ) 58 58 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc1d in configuration namelist' ) 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/2019/dev_r11756_text_output/src/OCE/C1D/dtauvd.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/C1D/dyndmp.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/CRS/crsini.F90
r11536 r11782 86 86 READ ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 87 87 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcrs in configuration namelist' ) 88 IF(lwm ) WRITE ( numond, namcrs )88 IF(lwm .AND. nprint > 2) WRITE ( numond, namcrs ) 89 89 90 90 IF(lwp) THEN -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/dia25h.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/DIA/diadct.F90
r11536 r11782 130 130 READ ( numnam_cfg, nam_diadct, IOSTAT = ios, ERR = 902 ) 131 131 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_diadct in configuration namelist' ) 132 IF(lwm ) WRITE ( numond, nam_diadct )132 IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diadct ) 133 133 134 134 IF( lwp ) THEN -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diaharm.F90
r11536 r11782 85 85 READ ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 86 86 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist' ) 87 IF(lwm ) WRITE ( numond, nam_diaharm )87 IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diaharm ) 88 88 ! 89 89 IF(lwp) THEN -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diahsb.F90
r11536 r11782 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= ', ndastp 314 IF(lwp) WRITE(numout,*) 312 IF(lwp .AND. nprint > 0) THEN 313 WRITE(numout,*) 314 WRITE(numout,*) ' dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp 315 WRITE(numout,*) 316 ENDIF 315 317 ! 316 318 IF( lwxios ) CALL iom_swap( cwxios_context ) … … 366 368 READ ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 367 369 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist' ) 368 IF(lwm ) WRITE( numond, namhsb )370 IF(lwm .AND. nprint > 2) WRITE( numond, namhsb ) 369 371 370 372 IF(lwp) THEN -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diaptr.F90
r11536 r11782 398 398 READ ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 399 399 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist' ) 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/2019/dev_r11756_text_output/src/OCE/DIA/diatmb.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/DOM/daymod.F90
r10068 r11782 134 134 135 135 ! control print 136 IF(lwp ) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)') &136 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)') & 137 137 & ' =======>> 1/2 time step before the start of the run DATE Y/M/D = ', & 138 138 & nyear, '/', nmonth, '/', nday, ' nsec_day:', nsec_day, ' nsec_week:', nsec_week, ' & … … 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/2019/dev_r11756_text_output/src/OCE/DOM/domain.F90
r11536 r11782 312 312 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 313 313 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist' ) 314 IF(lwm ) WRITE ( numond, namrun )314 IF(lwm .AND. nprint > 2) WRITE ( numond, namrun ) 315 315 ! 316 316 IF(lwp) THEN ! control print … … 410 410 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 411 411 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist' ) 412 IF(lwm ) WRITE( numond, namdom )412 IF(lwm .AND. nprint > 2) WRITE( numond, namdom ) 413 413 ! 414 414 IF(lwp) THEN … … 442 442 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 443 443 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist' ) 444 IF(lwm ) WRITE( numond, namnc4 )444 IF(lwm .AND. nprint > 2) WRITE( numond, namnc4 ) 445 445 446 446 IF(lwp) THEN ! control print -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/dommsk.F90
r11536 r11782 109 109 READ ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 110 110 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist' ) 111 IF(lwm ) WRITE ( numond, namlbc )111 IF(lwm .AND. nprint > 2) WRITE ( numond, namlbc ) 112 112 113 113 IF(lwp) THEN ! control print -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/domvvl.F90
r11536 r11782 820 820 CALL iom_get( numror, jpdom_autoglo, 'e3t_n', e3t_n(:,:,:), ldxios = lrxios ) 821 821 ! needed to restart if land processor not computed 822 IF(lwp ) write(numout,*) 'dom_vvl_rst : e3t_b and e3t_n found in restart files'822 IF(lwp .AND. nprint > 0) write(numout,*) 'dom_vvl_rst : e3t_b and e3t_n found in restart files' 823 823 WHERE ( tmask(:,:,:) == 0.0_wp ) 824 824 e3t_n(:,:,:) = e3t_0(:,:,:) … … 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' ) 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/2019/dev_r11756_text_output/src/OCE/DOM/domzgr.F90
r10425 r11782 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/2019/dev_r11756_text_output/src/OCE/DOM/dtatsd.F90
r11536 r11782 71 71 READ ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 72 72 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist' ) 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/2019/dev_r11756_text_output/src/OCE/DOM/iscplini.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/DYN/dynadv.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/DYN/dynhpg.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/DYN/dynspg.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/DYN/dynspg_ts.F90
r11536 r11782 969 969 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 970 970 ! ! ------------------- 971 IF(lwp ) WRITE(numout,*) '---- ts_rst ----'971 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- ts_rst ----' 972 972 IF( lwxios ) CALL iom_swap( cwxios_context ) 973 973 CALL iom_rstput( kt, nitrst, numrow, 'ub2_b' , ub2_b (:,:), ldxios = lwxios ) -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynvor.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/DYN/wet_dry.F90
r11536 r11782 85 85 READ ( numnam_cfg, namwad, IOSTAT = ios, ERR = 906) 86 86 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namwad in configuration namelist' ) 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/2019/dev_r11756_text_output/src/OCE/FLO/floats.F90
r11536 r11782 93 93 READ ( numnam_cfg, namflo, IOSTAT = ios, ERR = 902 ) 94 94 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namflo in configuration namelist' ) 95 IF(lwm ) WRITE ( numond, namflo )95 IF(lwm .AND. nprint > 2) WRITE ( numond, namflo ) 96 96 ! 97 97 IF(lwp) THEN ! control print -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbini.F90
r11536 r11782 410 410 READ ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 ) 411 411 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist' ) 412 IF(lwm ) WRITE ( numond, namberg )412 IF(lwm .AND. nprint > 2) WRITE ( numond, namberg ) 413 413 ! 414 414 IF(lwp) WRITE(numout,*) -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbrst.F90
r11536 r11782 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 > 0 ) 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 > 0 ) 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 > 0 ) 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/2019/dev_r11756_text_output/src/OCE/ICB/icbstp.F90
r11536 r11782 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 165 IF( nn_verbose_level > 0 ) THEN -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbtrj.F90
r10068 r11782 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 > 0 ) 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/2019/dev_r11756_text_output/src/OCE/IOM/iom.F90
r11554 r11782 318 318 ENDIF 319 319 !set name of the restart file and enable available fields 320 if(lwp ) WRITE(numout,*) 'Setting restart filename (for XIOS) to: ',rst_file320 if(lwp .AND. nprint > 1) WRITE(numout,*) 'Setting restart filename (for XIOS) to: ',rst_file 321 321 CALL xios_get_handle("file_definition", filegroup_hdl ) 322 322 CALL xios_add_child(filegroup_hdl, file_hdl, 'rrestart') … … 343 343 scalar_ref = "grid_scalar", operation = "instant") 344 344 END SELECT 345 IF(lwp ) WRITE(numout,*) 'XIOS read: ', TRIM(rst_rfields(i)%vname), ' enabled in ', TRIM(rst_file)345 IF(lwp .AND. nprint > 1) WRITE(numout,*) 'XIOS read: ', TRIM(rst_rfields(i)%vname), ' enabled in ', TRIM(rst_file) 346 346 ENDIF 347 347 ENDIF … … 534 534 535 535 !set name of the restart file and enable available fields 536 IF(lwp ) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',cdrst_file536 IF(lwp .AND. nprint > 1) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',cdrst_file 537 537 CALL xios_get_handle("file_definition", filegroup_hdl ) 538 538 CALL xios_add_child(filegroup_hdl, file_hdl, 'wrestart') … … 540 540 CALL xios_set_file_attr( "wrestart", type="one_file", enabled=.TRUE.,& 541 541 mode="write", output_freq=xios_timestep) 542 if(lwp ) write(numout,*) 'OPEN ', trim(cdrst_file), ' in one_file mode'542 if(lwp .AND. nprint > 1) write(numout,*) 'OPEN ', trim(cdrst_file), ' in one_file mode' 543 543 ELSE 544 544 CALL xios_set_file_attr( "wrestart", type="multiple_file", enabled=.TRUE.,& 545 545 mode="write", output_freq=xios_timestep) 546 if(lwp ) write(numout,*) 'OPEN ', trim(cdrst_file), ' in multiple_file mode'546 if(lwp .AND. nprint > 1) write(numout,*) 'OPEN ', trim(cdrst_file), ' in multiple_file mode' 547 547 ENDIF 548 548 CALL xios_set_file_attr( "wrestart", name=trim(cdrst_file)) … … 822 822 iom_file(jf)%nfid = 0 ! free the id 823 823 IF( PRESENT(kiomid) ) kiomid = 0 ! return 0 as id to specify that the file was closed 824 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok'824 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok' 825 825 ELSEIF( PRESENT(kiomid) ) THEN 826 826 WRITE(ctmp1,*) '--->', kiomid … … 941 941 ELSE 942 942 #if defined key_iomput 943 IF(lwp ) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar)943 IF(lwp .AND. nprint > 1) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 944 944 CALL iom_swap( TRIM(crxios_context) ) 945 945 CALL xios_recv_field( trim(cdvar), pvar) … … 1266 1266 1267 1267 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)1268 IF(lwp .AND. nprint > 1) WRITE(numout,"(10x,' read ',a,' (rec: ',i6,') in ',a,' ok')") TRIM(cdvar), itime, TRIM(iom_file(kiomid)%name) 1269 1269 1270 1270 !--- overlap areas and extra hallows (mpp) … … 1296 1296 IF( PRESENT(pv_r3d) ) THEN 1297 1297 pv_r3d(:, :, :) = 0. 1298 if(lwp ) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar)1298 if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar) 1299 1299 CALL xios_recv_field( trim(cdvar), pv_r3d) 1300 1300 IF(idom /= jpdom_unknown ) then … … 1303 1303 ELSEIF( PRESENT(pv_r2d) ) THEN 1304 1304 pv_r2d(:, :) = 0. 1305 if(lwp ) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar)1305 if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar) 1306 1306 CALL xios_recv_field( trim(cdvar), pv_r2d) 1307 1307 IF(idom /= jpdom_unknown ) THEN … … 1310 1310 ELSEIF( PRESENT(pv_r1d) ) THEN 1311 1311 pv_r1d(:) = 0. 1312 if(lwp ) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar)1312 if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar) 1313 1313 CALL xios_recv_field( trim(cdvar), pv_r1d) 1314 1314 ENDIF … … 1512 1512 #ifdef key_iomput 1513 1513 IF( kt == kwrite ) THEN 1514 IF(lwp ) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar)1514 IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) 1515 1515 CALL xios_send_field(trim(cdvar), pvar) 1516 1516 ENDIF … … 1542 1542 #ifdef key_iomput 1543 1543 IF( kt == kwrite ) THEN 1544 IF(lwp ) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar)1544 IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) 1545 1545 CALL xios_send_field(trim(cdvar), pvar) 1546 1546 ENDIF … … 1572 1572 #ifdef key_iomput 1573 1573 IF( kt == kwrite ) THEN 1574 IF(lwp ) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar)1574 IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) 1575 1575 CALL xios_send_field(trim(cdvar), pvar) 1576 1576 ENDIF … … 1602 1602 #ifdef key_iomput 1603 1603 IF( kt == kwrite ) THEN 1604 IF(lwp ) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar)1604 IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) 1605 1605 CALL xios_send_field(trim(cdvar), pvar) 1606 1606 ENDIF -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/iom_nf90.F90
r11536 r11782 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 … … 564 564 ! trick: defined to 0 to say that dimension variables are defined but not yet written 565 565 iom_file(kiomid)%dimsz(1, 1) = 0 566 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' define dimension variables done'566 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' define dimension variables done' 567 567 ENDIF 568 568 ! define the data if it is not already done … … 639 639 CALL iom_nf90_check(SET_NF90_DEF_VAR_CHUNKING(if90id, idvar, ichunkalg, ichunksz), clinfo) 640 640 CALL iom_nf90_check(SET_NF90_DEF_VAR_DEFLATE(if90id, idvar, ishuffle, ideflate, ideflate_level), clinfo) 641 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz642 ENDIF 643 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' defined ok'641 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz 642 ENDIF 643 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' defined ok' 644 644 ELSE 645 645 idvar = kvid … … 687 687 CALL iom_nf90_check( NF90_INQUIRE_DIMENSION( if90id, 3, len = iom_file(kiomid)%dimsz(1,3) ), clinfo ) 688 688 iom_file(kiomid)%dimsz(1 , 4) = 1 ! unlimited dimension 689 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' write dimension variables done'689 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' write dimension variables done' 690 690 ENDIF 691 691 ENDIF … … 705 705 IF( iom_file(kiomid)%luld(idvar) ) iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar) & 706 706 & = iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar) + 1 707 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' written ok'707 IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' written ok' 708 708 ENDIF 709 709 ! -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/restart.F90
r11536 r11782 97 97 clpath = TRIM(cn_ocerst_outdir) 98 98 IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 99 IF(lwp ) THEN99 IF(lwp .AND. nprint > 1) THEN 100 100 WRITE(numout,*) 101 101 IF(.NOT.lwxios) THEN … … 225 225 crxios_context = 'nemo_rst' 226 226 IF( .NOT.lxios_set ) THEN 227 IF(lwp ) WRITE(numout,*) 'Enable restart reading by XIOS'227 IF(lwp .AND. nprint > 1) WRITE(numout,*) 'Enable restart reading by XIOS' 228 228 CALL iom_init( crxios_context, ld_tmppatch = .false. ) 229 229 lxios_set = .TRUE. … … 232 232 IF( TRIM(Agrif_CFixed()) /= '0' .AND. lrxios) THEN 233 233 CALL iom_init( crxios_context, ld_tmppatch = .false. ) 234 IF(lwp ) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF'234 IF(lwp .AND. nprint > 1) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF' 235 235 lxios_set = .TRUE. 236 236 ENDIF -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC/lib_mpp.F90
r11536 r11782 946 946 crname_dlg(n_sequence_dlg) = cdname ! keep the name of the calling routine 947 947 ENDIF 948 ELSE IF ( ncom_stp == nit000+2*ncom_freq ) THEN948 ELSE IF ( ncom_stp == nit000+2*ncom_freq .AND. nprint > 1 ) THEN 949 949 CALL ctl_opn( numcom, 'communication_report.txt', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea ) 950 950 WRITE(numcom,*) ' ' … … 1204 1204 & OPEN(UNIT=knum,FILE='NUL', FORM=cdform, ACCESS=cdacce, STATUS=cdstat , ERR=100, IOSTAT=iost ) 1205 1205 IF( iost == 0 ) THEN 1206 IF(ldwp ) THEN1206 IF(ldwp .AND. nprint > 2) THEN 1207 1207 WRITE(kout,*) ' file : ', TRIM(clfile),' open ok' 1208 1208 WRITE(kout,*) ' unit = ', knum -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC/mppini.F90
r11640 r11782 171 171 !!---------------------------------------------------------------------- 172 172 ! 173 llwrtlay = lwp.OR. ln_ctl .OR. sn_cfctl%l_layout173 llwrtlay = (lwp.AND.nprint>1) .OR. ln_ctl .OR. sn_cfctl%l_layout 174 174 ! 175 175 ! 0. read namelists parameters … … 194 194 ENDIF 195 195 ! 196 IF(lwm ) WRITE( numond, nammpp )196 IF(lwm .AND. nprint > 2) WRITE( numond, nammpp ) 197 197 198 198 ! do we need to take into account bdy_msk? … … 517 517 ! 5. Subdomain print 518 518 ! ------------------ 519 IF(lwp ) THEN519 IF(lwp .AND. nprint > 1) THEN 520 520 ifreq = 4 521 521 il1 = 1 … … 656 656 ! 657 657 nproc = narea-1 658 IF(lwp ) THEN658 IF(lwp .AND. nprint > 0) THEN 659 659 WRITE(numout,*) 660 660 WRITE(numout,*) ' resulting internal parameters : ' … … 1204 1204 idid(2) = 2 1205 1205 1206 IF(lwp ) THEN1206 IF(lwp.AND. nprint > 0) THEN 1207 1207 WRITE(numout,*) 1208 1208 WRITE(numout,*) 'mpp_init_ioipsl : iloc = ', iloc (1), iloc (2) -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/LDF/ldfdyn.F90
r11653 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/LDF/ldftra.F90
r11536 r11782 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' ) 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' ) 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/2019/dev_r11756_text_output/src/OCE/OBS/diaobs.F90
r11536 r11782 207 207 READ ( numnam_cfg, namobs, IOSTAT = ios, ERR = 902 ) 208 208 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namobs in configuration namelist' ) 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/2019/dev_r11756_text_output/src/OCE/SBC/fldread.F90
r11536 r11782 185 185 CALL fld_init( kn_fsbc, sd(jf) ) ! read each before field (put them in after as they will be swapped) 186 186 END DO 187 IF( lwp ) CALL wgt_print() ! control print187 IF( lwp .AND. nprint > 1 ) CALL wgt_print() ! control print 188 188 ENDIF 189 189 ! ! ====================================== ! … … 287 287 ! 288 288 IF( sd(jf)%ln_tint ) THEN ! temporal interpolation 289 IF(lwp .AND. kt - nit000 <= 100 ) THEN289 IF(lwp .AND. kt - nit000 <= 100 .AND. nprint > 1) THEN 290 290 clfmt = "(' fld_read: var ', a, ' kt = ', i8, ' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," // & 291 291 & "', records b/a: ', i6.4, '/', i6.4, ' (days ', f9.4,'/', f9.4, ')')" … … 299 299 sd(jf)%fnow(:,:,:) = ztintb * sd(jf)%fdta(:,:,:,1) + ztinta * sd(jf)%fdta(:,:,:,2) 300 300 ELSE ! nothing to do... 301 IF(lwp .AND. kt - nit000 <= 100 ) THEN301 IF(lwp .AND. kt - nit000 <= 100 .AND. nprint > 1) THEN 302 302 clfmt = "(' fld_read: var ', a, ' kt = ', i8,' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," // & 303 303 & "', record: ', i6.4, ' (days ', f9.4, ' <-> ', f9.4, ')')" … … 423 423 ! 424 424 clfmt = "(' fld_init : time-interpolation for ', a, ' read previous record = ', i6, ' at time = ', f7.2, ' days')" 425 IF(lwp ) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday425 IF(lwp .AND. nprint > 1) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday 426 426 ! 427 427 ENDIF … … 1036 1036 END DO 1037 1037 sd(ju)%rotn(jn) = .TRUE. ! vector was rotated 1038 IF( lwp .AND. kt == nit000 ) WRITE(numout,*) &1038 IF( lwp .AND. kt == nit000 .AND. nprint > 1 ) WRITE(numout,*) & 1039 1039 & 'fld_read: vector pair ('//TRIM(sd(ju)%clvar)//', '//TRIM(sd(iv)%clvar)//') rotated on to model grid' 1040 1040 ENDIF -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcapr.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/SBC/sbcblk.F90
r11536 r11782 188 188 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_blk in configuration namelist' ) 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/2019/dev_r11756_text_output/src/OCE/SBC/sbccpl.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/SBC/sbcflx.F90
r11536 r11782 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' ) 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? … … 159 159 CALL lbc_lnk( 'sbcflx', taum(:,:), 'T', 1. ) ; CALL lbc_lnk( 'sbcflx', wndm(:,:), 'T', 1. ) 160 160 161 IF( nitend-nit000 <= 100 .AND. lwp ) THEN ! control print (if less than 100 time-step asked)161 IF( nitend-nit000 <= 100 .AND. lwp .AND. nprint > 0 ) THEN ! control print (if less than 100 time-step asked) 162 162 WRITE(numout,*) 163 163 WRITE(numout,*) ' read daily momentum, heat and freshwater fluxes OK' -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcfwb.F90
r10570 r11782 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/2019/dev_r11756_text_output/src/OCE/SBC/sbcice_cice.F90
r11536 r11782 159 159 !!--------------------------------------------------------------------- 160 160 ! 161 IF(lwp ) WRITE(numout,*)'cice_sbc_init'161 IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_init' 162 162 163 163 ji_off = INT ( (jpiglo - nx_global) / 2 ) … … 287 287 ! 288 288 IF( kt == nit000 ) THEN 289 IF(lwp ) WRITE(numout,*)'cice_sbc_in'289 IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_in' 290 290 ENDIF 291 291 … … 501 501 ! 502 502 IF( kt == nit000 ) THEN 503 IF(lwp ) WRITE(numout,*)'cice_sbc_out'503 IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_out' 504 504 ENDIF 505 505 … … 665 665 ! 666 666 IF( kt == nit000 ) THEN 667 IF(lwp ) WRITE(numout,*)'cice_sbc_hadgam'667 IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_hadgam' 668 668 IF( sbc_cpl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 669 669 ENDIF … … 696 696 !!--------------------------------------------------------------------- 697 697 ! 698 IF(lwp ) WRITE(numout,*)'cice_sbc_final'698 IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_final' 699 699 ! 700 700 CALL CICE_Finalize … … 814 814 815 815 ! control print (if less than 100 time-step asked) 816 IF( nitend-nit000 <= 100 .AND. lwp ) THEN816 IF( nitend-nit000 <= 100 .AND. lwp .AND. nprint > 0 ) THEN 817 817 WRITE(numout,*) 818 818 WRITE(numout,*) ' read forcing fluxes for CICE OK' -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcice_if.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/SBC/sbcisf.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/SBC/sbcmod.F90
r11536 r11782 114 114 READ ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 115 115 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist' ) 116 IF(lwm ) WRITE( numond, namsbc )116 IF(lwm .AND. nprint > 2) WRITE( numond, namsbc ) 117 117 ! 118 118 #if defined key_mpp_mpi … … 499 499 IF( ln_rstart .AND. & !* Restart: read in restart file 500 500 & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 501 IF(lwp ) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file'501 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file' 502 502 CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b, ldxios = lrxios ) ! before i-stress (U-point) 503 503 CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b, ldxios = lrxios ) ! before j-stress (V-point) … … 513 513 ENDIF 514 514 ELSE !* no restart: set from nit000 values 515 IF(lwp ) WRITE(numout,*) ' nit000-1 surface forcing fields set to nit000'515 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' nit000-1 surface forcing fields set to nit000' 516 516 utau_b(:,:) = utau(:,:) 517 517 vtau_b(:,:) = vtau(:,:) … … 524 524 IF( lrst_oce ) THEN ! Write in the ocean restart file ! 525 525 ! ! ---------------------------------------- ! 526 IF(lwp ) WRITE(numout,*)527 IF(lwp ) WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ', &526 IF(lwp .AND. nprint > 0) WRITE(numout,*) 527 IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ', & 528 528 & 'at it= ', kt,' date= ', ndastp 529 IF(lwp ) WRITE(numout,*) '~~~~'529 IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~' 530 530 IF( lwxios ) CALL iom_swap( cwxios_context ) 531 531 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau, ldxios = lwxios ) -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcrnf.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/SBC/sbcssm.F90
r10425 r11782 151 151 IF( lrst_oce ) THEN ! Write in the ocean restart file ! 152 152 ! ! ---------------------------------------- ! 153 IF(lwp ) WRITE(numout,*)154 IF(lwp ) WRITE(numout,*) 'sbc_ssm : sea surface mean fields written in ocean restart file ', &153 IF(lwp .AND. nprint > 0) WRITE(numout,*) 154 IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbc_ssm : sea surface mean fields written in ocean restart file ', & 155 155 & 'at it= ', kt,' date= ', ndastp 156 IF(lwp ) WRITE(numout,*) '~~~~~~~'156 IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~~~~' 157 157 zf_sbc = REAL( nn_fsbc, wp ) 158 158 IF( lwxios ) CALL iom_swap( cwxios_context ) -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcssr.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/SBC/sbcwave.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/SBC/tideini.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/STO/stopar.F90
r11536 r11782 268 268 READ ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 ) 269 269 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist' ) 270 IF(lwm ) WRITE ( numond, namsto )270 IF(lwm .AND. nprint > 2) WRITE ( numond, namsto ) 271 271 272 272 IF( .NOT.ln_sto_eos ) THEN ! no use of stochastic parameterization -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/eosbn2.F90
r11536 r11782 1242 1242 READ ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 1243 1243 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist' ) 1244 IF(lwm ) WRITE( numond, nameos )1244 IF(lwm .AND. nprint > 2) WRITE( numond, nameos ) 1245 1245 ! 1246 1246 rau0 = 1026._wp !: volumic mass of reference [kg/m3] -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/traadv.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/TRA/trabbc.F90
r11536 r11782 140 140 READ ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 141 141 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist' ) 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/2019/dev_r11756_text_output/src/OCE/TRA/trabbl.F90
r11536 r11782 490 490 READ ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 491 491 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist' ) 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/2019/dev_r11756_text_output/src/OCE/TRA/tradmp.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/TRA/tramle.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/TRA/traqsr.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/TRA/trasbc.F90
r10499 r11782 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/2019/dev_r11756_text_output/src/OCE/TRD/trdini.F90
r11536 r11782 53 53 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 54 54 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist' ) 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/2019/dev_r11756_text_output/src/OCE/TRD/trdmxl.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/USR/usrdef_hgr.F90
r10069 r11782 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/2019/dev_r11756_text_output/src/OCE/USR/usrdef_nam.F90
r11536 r11782 63 63 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) 64 64 ! 65 IF(lwm ) WRITE( numond, namusr_def )65 IF(lwm .AND. nprint > 2) WRITE( numond, namusr_def ) 66 66 ! 67 67 cd_cfg = 'GYRE' ! name & resolution (not used) -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfdrg.F90
r11536 r11782 242 242 READ ( numnam_cfg, namdrg, IOSTAT = ios, ERR = 902 ) 243 243 902 IF( ios > 0 ) CALL ctl_nam( ios , 'namdrg in configuration namelist' ) 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) ) 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/2019/dev_r11756_text_output/src/OCE/ZDF/zdfgls.F90
r11536 r11782 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' ) 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 … … 1193 1193 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 1194 1194 ! ! ------------------- 1195 IF(lwp ) WRITE(numout,*) '---- gls-rst ----'1195 IF(lwp .AND. nprint > 2) WRITE(numout,*) '---- gls-rst ----' 1196 1196 IF( lwxios ) CALL iom_swap( cwxios_context ) 1197 1197 CALL iom_rstput( kt, nitrst, numrow, 'en' , en , ldxios = lwxios ) -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfiwm.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/ZDF/zdfosm.F90
r11536 r11782 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' ) 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 … … 1567 1567 !!----------------------------------------------------------------------------- 1568 1568 IF( TRIM(cdrw) == 'WRITE') THEN !* Write hbli into the restart file, then return 1569 IF(lwp ) WRITE(numout,*) '---- osm-rst ----'1569 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- osm-rst ----' 1570 1570 CALL iom_rstput( kt, nitrst, numrow, 'wn' , wn , ldxios = lwxios ) 1571 1571 CALL iom_rstput( kt, nitrst, numrow, 'hbl' , hbl , ldxios = lwxios ) -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfphy.F90
r11536 r11782 98 98 READ ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 99 99 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist' ) 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/2019/dev_r11756_text_output/src/OCE/ZDF/zdfric.F90
r11536 r11782 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' ) 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 … … 234 234 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 235 235 ! ! ------------------- 236 IF(lwp ) WRITE(numout,*) '---- ric-rst ----'236 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- ric-rst ----' 237 237 IF( lwxios ) CALL iom_swap( cwxios_context ) 238 238 CALL iom_rstput( kt, nitrst, numrow, 'avt_k', avt_k, ldxios = lwxios ) -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdftke.F90
r11536 r11782 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' ) 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/2019/dev_r11756_text_output/src/OCE/nemogcm.F90
r11536 r11782 153 153 CALL mpp_max( 'nemogcm', nstop ) 154 154 155 IF(lwp ) WRITE(numout,cform_aaa) ! Flag AAAAAAA155 IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 156 156 157 157 ! !-----------------------! … … 226 226 ! !== finalize the run ==! 227 227 ! !------------------------! 228 IF(lwp ) WRITE(numout,cform_aaa) ! Flag AAAAAAA228 IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 229 229 ! 230 230 IF( nstop /= 0 .AND. lwp ) THEN ! error print … … 309 309 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 310 310 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 311 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )312 311 ! open /dev/null file to be able to supress output write easily 313 312 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) … … 325 324 ! 326 325 lwp = (narea == 1) .OR. ln_ctl ! control of all listing output print 326 ! 327 nprint = nn_print ! convert DOCTOR namelist names into OLD names 328 ! 329 IF( lwm .AND. nprint > 2 ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 327 330 ! 328 331 IF(lwp) THEN ! open listing units … … 352 355 WRITE(numout,*) 353 356 ! 354 WRITE(numout,cform_aaa) ! Flag AAAAAAA357 IF(nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 355 358 ! 356 359 ENDIF … … 369 372 ENDIF 370 373 ! 371 IF(lwm ) WRITE( numond, namctl )374 IF(lwm .AND. nprint > 2) WRITE( numond, namctl ) 372 375 ! 373 376 ! !------------------------------------! … … 388 391 ENDIF 389 392 ! 390 IF(lwm ) WRITE( numond, namcfg )393 IF(lwm .AND. nprint > 2) WRITE( numond, namcfg ) 391 394 ! 392 395 ! !-----------------------------------------! … … 492 495 IF( lk_asminc ) CALL asm_inc_init ! Initialize assimilation increments 493 496 ! 494 IF(lwp ) WRITE(numout,cform_aaa) ! Flag AAAAAAA497 IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 495 498 ! 496 499 IF( ln_timing ) CALL timing_stop( 'nemo_init') … … 536 539 ENDIF 537 540 ! 538 nprint = nn_print ! convert DOCTOR namelist names into OLD names539 541 nictls = nn_ictls 540 542 nictle = nn_ictle -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/step.F90
r11536 r11782 298 298 IF( kstp == nit000 ) THEN ! 1st time step only 299 299 CALL iom_close( numror ) ! close input ocean restart file 300 IF( lwm)CALL FLUSH ( numond ) ! flush output namelist oce301 IF( lwm .AND. numoni /= -1 ) CALL FLUSH ( numoni ) ! flush output namelist ice (if exist)300 IF( lwm .AND. numond /= -1 ) CALL FLUSH ( numond ) ! flush output namelist oce 301 IF( lwm .AND. numoni /= -1 ) CALL FLUSH ( numoni ) ! flush output namelist ice (if exist) 302 302 ENDIF 303 303 -
NEMO/branches/2019/dev_r11756_text_output/src/OCE/timing.F90
r11536 r11782 375 375 CALL MPI_GATHER( (/compute_time, waiting_time(1), waiting_time(2), elapsed_time/), & 376 376 & 4, MPI_DOUBLE_PRECISION, timing_glob, 4, MPI_DOUBLE_PRECISION, 0, MPI_COMM_OCE, icode) 377 IF( narea == 1 ) THEN377 IF( narea == 1 .AND. nprint > 1) THEN 378 378 WRITE(numtime,*) ' ' 379 379 WRITE(numtime,*) ' Report on time spent on waiting MPI messages ' -
NEMO/branches/2019/dev_r11756_text_output/src/SAS/daymod.F90
r10068 r11782 134 134 135 135 ! control print 136 IF(lwp ) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)') &136 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)') & 137 137 & ' =======>> 1/2 time step before the start of the run DATE Y/M/D = ', & 138 138 & nyear, '/', nmonth, '/', nday, ' nsec_day:', nsec_day, ' nsec_week:', nsec_week, ' & … … 267 267 CALL ymds2ju( nyear, 01, 01, 0.0, fjulstartyear ) 268 268 ! 269 IF(lwp ) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt, &269 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt, & 270 270 & ' New day, DATE Y/M/D = ', nyear, '/', nmonth, '/', nday, ' nday_year = ', nday_year 271 IF(lwp ) WRITE(numout,'(a,i8,a,i7,a,i5)') ' nsec_year = ', nsec_year, &271 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i7,a,i5)') ' nsec_year = ', nsec_year, & 272 272 & ' nsec_month = ', nsec_month, ' nsec_day = ', nsec_day, ' nsec_week = ', nsec_week 273 273 ENDIF -
NEMO/branches/2019/dev_r11756_text_output/src/SAS/nemogcm.F90
r11536 r11782 96 96 CALL mpp_max( 'nemogcm', nstop ) 97 97 98 IF(lwp ) WRITE(numout,cform_aaa) ! Flag AAAAAAA98 IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 99 99 100 100 ! !-----------------------! … … 148 148 ! !== finalize the run ==! 149 149 ! !------------------------! 150 IF(lwp ) WRITE(numout,cform_aaa) ! Flag AAAAAAA150 IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 151 151 ! 152 152 IF( nstop /= 0 .AND. lwp ) THEN ! error print … … 234 234 CALL ctl_opn( numnam_ref, 'namelist_sas_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 235 235 CALL ctl_opn( numnam_cfg, 'namelist_sas_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 236 IF( lwm ) CALL ctl_opn( numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )236 IF( lwm .AND. nprint > 2 ) CALL ctl_opn( numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 237 237 ELSE 238 238 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) … … 240 240 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 241 241 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 242 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )242 IF( lwm .AND. nprint > 2 ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 243 243 ENDIF 244 244 ! open /dev/null file to be able to supress output write easily … … 288 288 WRITE(numout,*) 289 289 ! 290 WRITE(numout,cform_aaa) ! Flag AAAAAAA290 IF(nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 291 291 ! 292 292 ENDIF … … 305 305 ENDIF 306 306 ! 307 IF(lwm ) WRITE( numond, namctl )307 IF(lwm .AND. nprint > 2) WRITE( numond, namctl ) 308 308 ! 309 309 ! !------------------------------------! … … 324 324 ENDIF 325 325 ! 326 IF(lwm) WRITE( numond, namcfg ) 326 nprint = nn_print ! convert DOCTOR namelist names into OLD names 327 ! 328 IF(lwm .AND. nprint > 2) WRITE( numond, namcfg ) 327 329 ! 328 330 ! !-----------------------------------------! … … 362 364 CALL icb_init( rdt, nit000) ! initialise icebergs instance 363 365 ! 364 IF(lwp ) WRITE(numout,cform_aaa) ! Flag AAAAAAA366 IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 365 367 ! 366 368 IF( ln_timing ) CALL timing_stop( 'nemo_init') … … 406 408 ENDIF 407 409 ! 408 nprint = nn_print ! convert DOCTOR namelist names into OLD names409 410 nictls = nn_ictls 410 411 nictle = nn_ictle -
NEMO/branches/2019/dev_r11756_text_output/src/SAS/sbcssm.F90
r11536 r11782 192 192 READ ( numnam_cfg, namsbc_sas, IOSTAT = ios, ERR = 902 ) 193 193 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_sas in configuration namelist' ) 194 IF(lwm ) WRITE ( numond, namsbc_sas )194 IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_sas ) 195 195 ! 196 196 IF(lwp) THEN ! Control print
Note: See TracChangeset
for help on using the changeset viewer.