- Timestamp:
- 2019-03-15T17:03:41+01:00 (5 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 16 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90
r9321 r10770 253 253 CALL ymds2ju( nyear, 01, 01, 0.0, fjulstartyear ) 254 254 ! 255 IF(lwp ) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt, &255 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt, & 256 256 & ' New day, DATE Y/M/D = ', nyear, '/', nmonth, '/', nday, ' nday_year = ', nday_year 257 IF(lwp ) WRITE(numout,'(a,i8,a,i7,a,i5)') ' nsec_year = ', nsec_year, &257 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i7,a,i5)') ' nsec_year = ', nsec_year, & 258 258 & ' nsec_month = ', nsec_month, ' nsec_day = ', nsec_day, ' nsec_week = ', nsec_week 259 259 ENDIF … … 357 357 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN 358 358 ! 359 IF( kt == nitrst ) THEN360 IF(lwp)WRITE(numout,*)361 IF(lwp)WRITE(numout,*) 'rst_write : write oce restart file kt =', kt362 IF(lwp)WRITE(numout,*) '~~~~~~~'359 IF( kt == nitrst .AND. lwp .AND. nprint > 0) THEN 360 WRITE(numout,*) 361 WRITE(numout,*) 'rst_write : write oce restart file kt =', kt 362 WRITE(numout,*) '~~~~~~~' 363 363 ENDIF 364 364 ! calendar control -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90
r6486 r10770 105 105 mj1(jj) = MAX( 0, MIN( jj - jpjzoom + 1 - njmpp + 1, jpj ) ) 106 106 END DO 107 IF(lwp ) THEN ! control print107 IF(lwp .AND. nprint > 0) THEN ! control print 108 108 WRITE(numout,*) 109 109 WRITE(numout,*) 'dom_glo : domain: data / local ' -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r10759 r10770 483 483 IF( ln_vvl_dbg .AND. .NOT. ll_do_bclinic ) THEN ! - ML - test: control prints for debuging 484 484 ! 485 IF( lwp ) WRITE(numout, *) 'kt =', kt485 IF( lwp .AND. nprint > 2) WRITE(numout, *) 'kt =', kt 486 486 IF ( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN 487 487 z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( zht(:,:) ) ) … … 907 907 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 908 908 ! ! =================== 909 IF(lwp ) WRITE(numout,*) '---- dom_vvl_rst ----'909 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- dom_vvl_rst ----' 910 910 ! ! --------- ! 911 911 ! ! all cases ! -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
r10759 r10770 275 275 ENDIF 276 276 ! 277 IF( lwp .AND. kt == nit000 ) THEN277 IF( lwp .AND. kt == nit000 .AND. nprint > 1) THEN 278 278 WRITE(numout,*) ' temperature Levitus ' 279 279 WRITE(numout,*) -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r9830 r10770 484 484 iom_file(jf)%nfid = 0 ! free the id 485 485 IF( PRESENT(kiomid) ) kiomid = 0 ! return 0 as id to specify that the file was closed 486 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok'486 IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok' 487 487 ELSEIF( PRESENT(kiomid) ) THEN 488 488 WRITE(ctmp1,*) '--->', kiomid … … 924 924 925 925 IF( istop == nstop ) THEN ! no additional errors until this point... 926 IF(lwp) WRITE(numout,"(10x,' read ',a,' (rec: ',i6,') in ',a,' ok')") TRIM(cdvar), itime, TRIM(iom_file(kiomid)%name) 926 IF(lwp .AND. nprint > 1) & 927 WRITE(numout,"(10x,' read ',a,' (rec: ',i6,') in ',a,' ok')") TRIM(cdvar), itime, TRIM(iom_file(kiomid)%name) 927 928 928 929 !--- overlap areas and extra hallows (mpp) -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90
r6491 r10770 84 84 ! ! ============= 85 85 IF( ldwrt ) THEN ! ... in write mode 86 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in WRITE mode'86 IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in WRITE mode' 87 87 IF( snc4set%luse ) THEN 88 88 CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_WRITE , if90id ), clinfo) … … 92 92 CALL iom_nf90_check(NF90_SET_FILL( if90id, NF90_NOFILL, idmy ), clinfo) 93 93 ELSE ! ... in read mode 94 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in READ mode'94 IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in READ mode' 95 95 CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_NOWRITE, if90id, chunksize = ichunk ), clinfo) 96 96 ENDIF … … 103 103 cdname = TRIM(cltmp) 104 104 ENDIF 105 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' create new file: '//TRIM(cdname)//' in WRITE mode'105 IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' create new file: '//TRIM(cdname)//' in WRITE mode' 106 106 107 107 IF( llclobber ) THEN ; imode = IOR( NF90_64BIT_OFFSET, NF90_CLOBBER ) … … 109 109 ENDIF 110 110 IF( snc4set%luse ) THEN 111 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode'111 IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode' 112 112 CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5) 113 113 IF( llclobber ) THEN ; imode = IOR(ihdf5, NF90_CLOBBER) … … 158 158 & len = iom_file(kiomid)%lenuld ), clinfo ) 159 159 ENDIF 160 IF(lwp ) WRITE(numout,*) ' ---> '//TRIM(cdname)//' OK'160 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' ---> '//TRIM(cdname)//' OK' 161 161 ELSE 162 162 kiomid = 0 ! return error flag … … 431 431 ! trick: defined to 0 to say that dimension variables are defined but not yet written 432 432 iom_file(kiomid)%dimsz(1, 1) = 0 433 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' define dimension variables done'433 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' define dimension variables done' 434 434 ENDIF 435 435 ! define the data if it is not already done … … 498 498 CALL iom_nf90_check(SET_NF90_DEF_VAR_CHUNKING(if90id, idvar, ichunkalg, ichunksz), clinfo) 499 499 CALL iom_nf90_check(SET_NF90_DEF_VAR_DEFLATE(if90id, idvar, ishuffle, ideflate, ideflate_level), clinfo) 500 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz501 ENDIF 502 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' defined ok'500 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz 501 ENDIF 502 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' defined ok' 503 503 ELSE 504 504 idvar = kvid … … 543 543 CALL iom_nf90_check(NF90_INQUIRE_DIMENSION( if90id, 3, len = iom_file(kiomid)%dimsz(1,3) ), clinfo) 544 544 iom_file(kiomid)%dimsz(1 , 4) = 1 ! unlimited dimension 545 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' write dimension variables done'545 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' write dimension variables done' 546 546 ENDIF 547 547 ENDIF … … 561 561 IF( iom_file(kiomid)%luld(idvar) ) iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar) & 562 562 & = iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar) + 1 563 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' written ok'563 IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' written ok' 564 564 ENDIF 565 565 ! -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r9321 r10770 110 110 ' open ocean restart NetCDF file: ',TRIM(clpath)//clname 111 111 END SELECT 112 IF ( snc4set%luse ) WRITE(numout,*) ' opened for NetCDF4 chunking and compression' 113 IF( kt == nitrst - 1 ) THEN ; WRITE(numout,*) ' kt = nitrst - 1 = ', kt 114 ELSE ; WRITE(numout,*) ' kt = ' , kt 112 IF(nprint > 1) THEN 113 IF ( snc4set%luse ) WRITE(numout,*) ' opened for NetCDF4 chunking and compression' 114 IF( kt == nitrst - 1) THEN ; WRITE(numout,*) ' kt = nitrst - 1 = ', kt 115 ELSE ; WRITE(numout,*) ' kt = ' , kt 116 ENDIF 115 117 ENDIF 116 118 ENDIF -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r10759 r10770 3989 3989 IF( iost == 0 ) THEN 3990 3990 IF(ldwp) THEN 3991 WRITE(kout,*) ' file : ', clfile,' open ok' 3992 WRITE(kout,*) ' unit = ', knum 3993 WRITE(kout,*) ' status = ', cdstat 3994 WRITE(kout,*) ' form = ', cdform 3995 WRITE(kout,*) ' access = ', cdacce 3991 IF(nprint > 0) WRITE(kout,*) ' file : ', clfile,' open ok' 3992 IF(nprint > 2) THEN 3993 WRITE(kout,*) ' unit = ', knum 3994 WRITE(kout,*) ' status = ', cdstat 3995 WRITE(kout,*) ' form = ', cdform 3996 WRITE(kout,*) ' access = ', cdacce 3997 ENDIF 3996 3998 WRITE(kout,*) 3997 3999 ENDIF -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90
r10766 r10770 505 505 idid(2) = 2 506 506 507 IF(lwp . andnprint > 0) THEN507 IF(lwp .AND. nprint > 0) THEN 508 508 WRITE(numout,*) 509 509 WRITE(numout,*) 'mpp_init_ioipsl : iloc = ', iloc (1), iloc (2) -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90
r6487 r10770 275 275 ! 276 276 IF( sd(jf)%ln_tint ) THEN ! temporal interpolation 277 IF(lwp .AND. kt - nit000 <= 100) THEN277 IF(lwp .AND. nprint > 1 ) THEN 278 278 clfmt = "('fld_read: var ', a, ' kt = ', i8, ' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," // & 279 279 & "', records b/a: ', i6.4, '/', i6.4, ' (days ', f9.4,'/', f9.4, ')')" … … 288 288 sd(jf)%fnow(:,:,:) = ztintb * sd(jf)%fdta(:,:,:,1) + ztinta * sd(jf)%fdta(:,:,:,2) 289 289 ELSE ! nothing to do... 290 IF(lwp .AND. kt - nit000 <= 100) THEN290 IF(lwp .AND. nprint > 1 ) THEN 291 291 clfmt = "('fld_read: var ', a, ' kt = ', i8,' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," // & 292 292 & "', record: ', i6.4, ' (days ', f9.4, ' <-> ', f9.4, ')')" … … 414 414 415 415 clfmt = "('fld_init : time-interpolation for ', a, ' read previous record = ', i6, ' at time = ', f7.2, ' days')" 416 IF(lwp ) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday416 IF(lwp .AND. nprint > 0) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday 417 417 418 418 ENDIF … … 941 941 & ' data type: ' , sdf(jf)%cltype , & 942 942 & ' land/sea mask:' , TRIM( sdf(jf)%lsmname ) 943 call flush(numout)943 IF(nprint > 4) call flush(numout) 944 944 END DO 945 945 ENDIF … … 1000 1000 !!---------------------------------------------------------------------- 1001 1001 ! 1002 DO kw = 1, nxt_wgt-1 1003 WRITE(numout,*) 'weight file: ',TRIM(ref_wgts(kw)%wgtname) 1004 WRITE(numout,*) ' ddims: ',ref_wgts(kw)%ddims(1),ref_wgts(kw)%ddims(2) 1005 WRITE(numout,*) ' numwgt: ',ref_wgts(kw)%numwgt 1006 WRITE(numout,*) ' jpiwgt: ',ref_wgts(kw)%jpiwgt 1007 WRITE(numout,*) ' jpjwgt: ',ref_wgts(kw)%jpjwgt 1008 WRITE(numout,*) ' botleft: ',ref_wgts(kw)%botleft 1009 WRITE(numout,*) ' topright: ',ref_wgts(kw)%topright 1010 IF( ref_wgts(kw)%cyclic ) THEN 1011 WRITE(numout,*) ' cyclical' 1012 IF( ref_wgts(kw)%overlap > 0 ) WRITE(numout,*) ' with overlap of ', ref_wgts(kw)%overlap 1013 ELSE 1014 WRITE(numout,*) ' not cyclical' 1015 ENDIF 1016 IF( ASSOCIATED(ref_wgts(kw)%data_wgt) ) WRITE(numout,*) ' allocated' 1017 END DO 1002 IF(nprint > 0) THEN 1003 DO kw = 1, nxt_wgt-1 1004 WRITE(numout,*) 'weight file: ',TRIM(ref_wgts(kw)%wgtname) 1005 IF(nprint > 1) THEN 1006 WRITE(numout,*) ' ddims: ',ref_wgts(kw)%ddims(1),ref_wgts(kw)%ddims(2) 1007 WRITE(numout,*) ' numwgt: ',ref_wgts(kw)%numwgt 1008 WRITE(numout,*) ' jpiwgt: ',ref_wgts(kw)%jpiwgt 1009 WRITE(numout,*) ' jpjwgt: ',ref_wgts(kw)%jpjwgt 1010 WRITE(numout,*) ' botleft: ',ref_wgts(kw)%botleft 1011 WRITE(numout,*) ' topright: ',ref_wgts(kw)%topright 1012 IF( ref_wgts(kw)%cyclic ) THEN 1013 WRITE(numout,*) ' cyclical' 1014 IF( ref_wgts(kw)%overlap > 0 ) WRITE(numout,*) ' with overlap of ', ref_wgts(kw)%overlap 1015 ELSE 1016 WRITE(numout,*) ' not cyclical' 1017 ENDIF 1018 IF( ASSOCIATED(ref_wgts(kw)%data_wgt) ) WRITE(numout,*) ' allocated' 1019 ENDIF 1020 END DO 1021 ENDIF 1018 1022 ! 1019 1023 END SUBROUTINE wgt_print -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r10759 r10770 182 182 CALL wrk_alloc( jpi,jpj, ztmp1, ztmp2 ) 183 183 ! 184 IF(lwp ) WRITE(numout,*)'cice_sbc_init'184 IF(lwp .AND. nprint>1) WRITE(numout,*)'cice_sbc_init' 185 185 186 186 ji_off = INT ( (jpiglo - nx_global) / 2 ) … … 342 342 343 343 IF( kt == nit000 ) THEN 344 IF(lwp ) WRITE(numout,*)'cice_sbc_in'344 IF(lwp .AND. nprint>1) WRITE(numout,*)'cice_sbc_in' 345 345 ENDIF 346 346 … … 583 583 584 584 IF( kt == nit000 ) THEN 585 IF(lwp ) WRITE(numout,*)'cice_sbc_out'585 IF(lwp .AND. nprint>1) WRITE(numout,*)'cice_sbc_out' 586 586 ENDIF 587 587 … … 820 820 !!--------------------------------------------------------------------- 821 821 822 IF(lwp ) WRITE(numout,*)'cice_sbc_final'822 IF(lwp .AND. nprint > 1) WRITE(numout,*)'cice_sbc_final' 823 823 824 824 CALL CICE_Finalize -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r10759 r10770 421 421 IF( ln_rstart .AND. & !* Restart: read in restart file 422 422 & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 423 IF(lwp ) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file'423 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file' 424 424 IF(nn_timing == 2) CALL timing_start('iom_rstget') 425 425 CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b ) ! before i-stress (U-point) … … 448 448 IF( lrst_oce ) THEN ! Write in the ocean restart file ! 449 449 ! ! ---------------------------------------- ! 450 IF(lwp) WRITE(numout,*) 451 IF(lwp) WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ', & 450 IF(lwp .AND. nprint > 0) THEN 451 WRITE(numout,*) 452 WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ', & 452 453 & 'at it= ', kt,' date= ', ndastp 453 IF(lwp) WRITE(numout,*) '~~~~' 454 WRITE(numout,*) '~~~~' 455 ENDIF 454 456 IF(nn_timing == 2) CALL timing_start('iom_rstput') 455 457 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau ) -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r10759 r10770 148 148 IF( ln_rstart .AND. & !* Restart: read in restart file 149 149 & iom_varid( numror, 'rnf_b', ldstop = .FALSE. ) > 0 ) THEN 150 IF(lwp ) WRITE(numout,*) ' nit000-1 runoff forcing fields red in the restart file'150 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' nit000-1 runoff forcing fields red in the restart file' 151 151 IF(nn_timing == 2) CALL timing_start('iom_rstget') 152 152 CALL iom_get( numror, jpdom_autoglo, 'rnf_b', rnf_b ) ! before runoff … … 163 163 IF( lrst_oce ) THEN ! Write in the ocean restart file ! 164 164 ! ! ---------------------------------------- ! 165 IF(lwp) WRITE(numout,*) 166 IF(lwp) WRITE(numout,*) 'sbcrnf : runoff forcing fields written in ocean restart file ', & 165 IF(lwp .AND. nprint > 0) THEN 166 WRITE(numout,*) 167 WRITE(numout,*) 'sbcrnf : runoff forcing fields written in ocean restart file ', & 167 168 & 'at it= ', kt,' date= ', ndastp 168 IF(lwp) WRITE(numout,*) '~~~~' 169 WRITE(numout,*) '~~~~' 170 ENDIF 169 171 IF(nn_timing == 2) CALL timing_start('iom_rstput') 170 172 CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf ) -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r10759 r10770 135 135 IF( ln_rstart .AND. & ! Restart: read in restart file 136 136 & iom_varid( numror, 'qsr_hc_b', ldstop = .FALSE. ) > 0 ) THEN 137 IF(lwp ) WRITE(numout,*) ' nit000-1 qsr tracer content forcing field red in the restart file'137 IF(lwp .AND. nprint >0) WRITE(numout,*) ' nit000-1 qsr tracer content forcing field red in the restart file' 138 138 zfact = 0.5e0 139 139 CALL iom_get( numror, jpdom_autoglo, 'qsr_hc_b', qsr_hc_b ) ! before heat content trend due to Qsr flux … … 364 364 IF( lrst_oce ) THEN ! Write in the ocean restart file 365 365 ! ******************************* 366 IF(lwp) WRITE(numout,*) 367 IF(lwp) WRITE(numout,*) 'qsr tracer content forcing field written in ocean restart file ', & 366 IF(lwp .AND. nprint >0) THEN 367 WRITE(numout,*) 368 WRITE(numout,*) 'qsr tracer content forcing field written in ocean restart file ', & 368 369 & 'at it= ', kt,' date= ', ndastp 369 IF(lwp) WRITE(numout,*) '~~~~' 370 WRITE(numout,*) '~~~~' 371 ENDIF 370 372 IF(nn_timing == 2) CALL timing_start('iom_rstput') 371 373 CALL iom_rstput( kt, nitrst, numrow, 'qsr_hc_b' , qsr_hc ) -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90
r9321 r10770 209 209 ! ******************************* 210 210 IF( lrst_oce ) THEN 211 IF(lwp) WRITE(numout,*) 212 IF(lwp) WRITE(numout,*) 'sbc : ocean surface tracer content forcing fields written in ocean restart file ', & 211 IF(lwp .AND. nprint > 0) THEN 212 WRITE(numout,*) 213 WRITE(numout,*) 'sbc : ocean surface tracer content forcing fields written in ocean restart file ', & 213 214 & 'at it= ', kt,' date= ', ndastp 214 IF(lwp) WRITE(numout,*) '~~~~' 215 WRITE(numout,*) '~~~~' 216 ENDIF 215 217 IF(nn_timing == 2) CALL timing_start('iom_rstput') 216 218 CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_tsc(:,:,jp_tem) ) … … 255 257 END DO 256 258 IF( lrst_oce ) THEN 257 IF(lwp) WRITE(numout,*) 258 IF(lwp) WRITE(numout,*) 'sbc : isf surface tracer content forcing fields written in ocean restart file ', & 259 IF(lwp .AND. nprint > 0) THEN 260 WRITE(numout,*) 261 WRITE(numout,*) 'sbc : isf surface tracer content forcing fields written in ocean restart file ', & 259 262 & 'at it= ', kt,' date= ', ndastp 260 IF(lwp) WRITE(numout,*) '~~~~' 263 WRITE(numout,*) '~~~~' 264 ENDIF 261 265 IF(nn_timing == 2) CALL timing_start('iom_rstput') 262 266 CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:) ) -
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r10759 r10770 971 971 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 972 972 ! ! ------------------- 973 IF(lwp ) WRITE(numout,*) '---- tke-rst ----'973 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- tke-rst ----' 974 974 IF(nn_timing == 2) CALL timing_start('iom_rstput') 975 975 CALL iom_rstput( kt, nitrst, numrow, 'en' , en )
Note: See TracChangeset
for help on using the changeset viewer.