Changeset 10770


Ignore:
Timestamp:
2019-03-15T17:03:41+01:00 (19 months ago)
Author:
andmirek
Message:

GMED 450 changes for writing to numout

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  
    253253         CALL ymds2ju( nyear, 01, 01, 0.0, fjulstartyear ) 
    254254         ! 
    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,   & 
    256256              &   '      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,   & 
    258258              &   '   nsec_month = ', nsec_month, '   nsec_day = ', nsec_day, '   nsec_week = ', nsec_week 
    259259      ENDIF 
     
    357357      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN 
    358358         ! 
    359          IF( kt == nitrst ) THEN 
    360             IF(lwp) WRITE(numout,*) 
    361             IF(lwp) WRITE(numout,*) 'rst_write : write oce restart file  kt =', kt 
    362             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,*) '~~~~~~~' 
    363363         ENDIF 
    364364         ! calendar control 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90

    r6486 r10770  
    105105        mj1(jj) = MAX( 0, MIN( jj - jpjzoom + 1 - njmpp + 1, jpj   ) ) 
    106106      END DO 
    107       IF(lwp) THEN                   ! control print 
     107      IF(lwp .AND. nprint > 0) THEN                   ! control print 
    108108         WRITE(numout,*) 
    109109         WRITE(numout,*) 'dom_glo : domain: data / local ' 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r10759 r10770  
    483483      IF( ln_vvl_dbg .AND. .NOT. ll_do_bclinic ) THEN   ! - ML - test: control prints for debuging 
    484484         ! 
    485          IF( lwp ) WRITE(numout, *) 'kt =', kt 
     485         IF( lwp .AND. nprint > 2) WRITE(numout, *) 'kt =', kt 
    486486         IF ( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN 
    487487            z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( zht(:,:) ) ) 
     
    907907      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    908908         !                                   ! =================== 
    909          IF(lwp) WRITE(numout,*) '---- dom_vvl_rst ----' 
     909         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- dom_vvl_rst ----' 
    910910         !                                           ! --------- ! 
    911911         !                                           ! all cases ! 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90

    r10759 r10770  
    275275      ENDIF 
    276276      ! 
    277       IF( lwp .AND. kt == nit000 ) THEN 
     277      IF( lwp .AND. kt == nit000 .AND. nprint > 1) THEN 
    278278         WRITE(numout,*) ' temperature Levitus ' 
    279279         WRITE(numout,*) 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r9830 r10770  
    484484               iom_file(jf)%nfid       = 0          ! free the id  
    485485               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' 
    487487            ELSEIF( PRESENT(kiomid) ) THEN 
    488488               WRITE(ctmp1,*) '--->',  kiomid 
     
    924924 
    925925         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) 
    927928           
    928929            !--- overlap areas and extra hallows (mpp) 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90

    r6491 r10770  
    8484         !                 ! ============= 
    8585         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' 
    8787            IF( snc4set%luse ) THEN 
    8888               CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_WRITE  , if90id ), clinfo) 
     
    9292            CALL iom_nf90_check(NF90_SET_FILL( if90id, NF90_NOFILL, idmy                          ), clinfo) 
    9393         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' 
    9595            CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_NOWRITE, if90id, chunksize = ichunk ), clinfo) 
    9696         ENDIF 
     
    103103               cdname = TRIM(cltmp) 
    104104            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' 
    106106 
    107107            IF( llclobber ) THEN   ;   imode = IOR( NF90_64BIT_OFFSET, NF90_CLOBBER   ) 
     
    109109            ENDIF 
    110110            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' 
    112112               CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5) 
    113113               IF( llclobber ) THEN   ;   imode = IOR(ihdf5, NF90_CLOBBER) 
     
    158158        &                                               len  = iom_file(kiomid)%lenuld ), clinfo ) 
    159159         ENDIF 
    160          IF(lwp) WRITE(numout,*) '                   ---> '//TRIM(cdname)//' OK' 
     160         IF(lwp .AND. nprint > 0) WRITE(numout,*) '                   ---> '//TRIM(cdname)//' OK' 
    161161      ELSE 
    162162         kiomid = 0               ! return error flag 
     
    431431         ! trick: defined to 0 to say that dimension variables are defined but not yet written 
    432432         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' 
    434434      ENDIF 
    435435      ! define the data if it is not already done 
     
    498498            CALL iom_nf90_check(SET_NF90_DEF_VAR_CHUNKING(if90id, idvar, ichunkalg, ichunksz), clinfo) 
    499499            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: ', ichunksz 
    501          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' 
    503503      ELSE 
    504504         idvar = kvid 
     
    543543               CALL iom_nf90_check(NF90_INQUIRE_DIMENSION( if90id, 3, len = iom_file(kiomid)%dimsz(1,3) ), clinfo) 
    544544               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' 
    546546            ENDIF 
    547547         ENDIF 
     
    561561         IF( iom_file(kiomid)%luld(idvar) )   iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar)    & 
    562562               &                            = 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' 
    564564      ENDIF 
    565565      !      
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r9321 r10770  
    110110                   '             open ocean restart NetCDF file: ',TRIM(clpath)//clname 
    111111               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 
    115117               ENDIF 
    116118            ENDIF 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r10759 r10770  
    39893989      IF( iost == 0 ) THEN 
    39903990         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 
    39963998            WRITE(kout,*) 
    39973999         ENDIF 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

    r10766 r10770  
    505505      idid(2) = 2 
    506506 
    507       IF(lwp .and nprint > 0) THEN 
     507      IF(lwp .AND. nprint > 0) THEN 
    508508          WRITE(numout,*) 
    509509          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  
    275275            ! 
    276276            IF( sd(jf)%ln_tint ) THEN              ! temporal interpolation 
    277                IF(lwp .AND. kt - nit000 <= 100 ) THEN  
     277               IF(lwp .AND. nprint > 1 ) THEN  
    278278                  clfmt = "('fld_read: var ', a, ' kt = ', i8, ' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," //   & 
    279279                     &    "', records b/a: ', i6.4, '/', i6.4, ' (days ', f9.4,'/', f9.4, ')')" 
     
    288288               sd(jf)%fnow(:,:,:) = ztintb * sd(jf)%fdta(:,:,:,1) + ztinta * sd(jf)%fdta(:,:,:,2) 
    289289            ELSE   ! nothing to do... 
    290                IF(lwp .AND. kt - nit000 <= 100 ) THEN 
     290               IF(lwp .AND. nprint > 1 ) THEN 
    291291                  clfmt = "('fld_read: var ', a, ' kt = ', i8,' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," //   & 
    292292                     &    "', record: ', i6.4, ' (days ', f9.4, ' <-> ', f9.4, ')')" 
     
    414414 
    415415         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)/rday 
     416         IF(lwp .AND. nprint > 0) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday 
    417417 
    418418      ENDIF 
     
    941941               &                          ' data type: '      ,       sdf(jf)%cltype      ,   & 
    942942               &                          ' land/sea mask:'   , TRIM( sdf(jf)%lsmname    ) 
    943             call flush(numout) 
     943            IF(nprint > 4) call flush(numout) 
    944944         END DO 
    945945      ENDIF 
     
    10001000      !!---------------------------------------------------------------------- 
    10011001      ! 
    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 
    10181022      ! 
    10191023   END SUBROUTINE wgt_print 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r10759 r10770  
    182182      CALL wrk_alloc( jpi,jpj, ztmp1, ztmp2 ) 
    183183      ! 
    184       IF(lwp) WRITE(numout,*)'cice_sbc_init' 
     184      IF(lwp .AND. nprint>1) WRITE(numout,*)'cice_sbc_init' 
    185185 
    186186      ji_off = INT ( (jpiglo - nx_global) / 2 ) 
     
    342342 
    343343      IF( kt == nit000 )  THEN 
    344          IF(lwp) WRITE(numout,*)'cice_sbc_in' 
     344         IF(lwp .AND. nprint>1) WRITE(numout,*)'cice_sbc_in' 
    345345      ENDIF 
    346346 
     
    583583       
    584584      IF( kt == nit000 )  THEN 
    585          IF(lwp) WRITE(numout,*)'cice_sbc_out' 
     585         IF(lwp .AND. nprint>1) WRITE(numout,*)'cice_sbc_out' 
    586586      ENDIF 
    587587       
     
    820820      !!--------------------------------------------------------------------- 
    821821 
    822       IF(lwp) WRITE(numout,*)'cice_sbc_final' 
     822      IF(lwp .AND. nprint > 1) WRITE(numout,*)'cice_sbc_final' 
    823823 
    824824      CALL CICE_Finalize 
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r10759 r10770  
    421421         IF( ln_rstart .AND.    &                               !* Restart: read in restart file 
    422422            & 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' 
    424424            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    425425            CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b )   ! before i-stress  (U-point) 
     
    448448      IF( lrst_oce ) THEN                              !      Write in the ocean restart file     ! 
    449449         !                                             ! ---------------------------------------- ! 
    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 ',   & 
    452453            &                    'at it= ', kt,' date= ', ndastp 
    453          IF(lwp) WRITE(numout,*) '~~~~' 
     454            WRITE(numout,*) '~~~~' 
     455         ENDIF 
    454456         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    455457         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  
    148148         IF( ln_rstart .AND.    &                               !* Restart: read in restart file 
    149149            & 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' 
    151151            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    152152            CALL iom_get( numror, jpdom_autoglo, 'rnf_b', rnf_b )     ! before runoff 
     
    163163      IF( lrst_oce ) THEN                              !      Write in the ocean restart file     ! 
    164164         !                                             ! ---------------------------------------- ! 
    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 ',   & 
    167168            &                    'at it= ', kt,' date= ', ndastp 
    168          IF(lwp) WRITE(numout,*) '~~~~' 
     169            WRITE(numout,*) '~~~~' 
     170         ENDIF 
    169171         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    170172         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  
    135135         IF( ln_rstart .AND.    &                    ! Restart: read in restart file 
    136136              & 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' 
    138138            zfact = 0.5e0 
    139139            CALL iom_get( numror, jpdom_autoglo, 'qsr_hc_b', qsr_hc_b )   ! before heat content trend due to Qsr flux 
     
    364364      IF( lrst_oce ) THEN   !                  Write in the ocean restart file 
    365365         !                                     ******************************* 
    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 ',   & 
    368369            &                    'at it= ', kt,' date= ', ndastp 
    369          IF(lwp) WRITE(numout,*) '~~~~' 
     370            WRITE(numout,*) '~~~~' 
     371         ENDIF 
    370372         IF(nn_timing == 2)  CALL timing_start('iom_rstput')  
    371373         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  
    209209      !                                          ******************************* 
    210210      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 ',   & 
    213214            &                    'at it= ', kt,' date= ', ndastp 
    214          IF(lwp) WRITE(numout,*) '~~~~' 
     215            WRITE(numout,*) '~~~~' 
     216         ENDIF 
    215217         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    216218         CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_tsc(:,:,jp_tem) ) 
     
    255257         END DO 
    256258         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 ',   & 
    259262               &                    'at it= ', kt,' date= ', ndastp 
    260             IF(lwp) WRITE(numout,*) '~~~~' 
     263                WRITE(numout,*) '~~~~' 
     264            ENDIF 
    261265            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    262266            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  
    971971     ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    972972        !                                   ! ------------------- 
    973         IF(lwp) WRITE(numout,*) '---- tke-rst ----' 
     973        IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- tke-rst ----' 
    974974        IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    975975        CALL iom_rstput( kt, nitrst, numrow, 'en'   , en     ) 
Note: See TracChangeset for help on using the changeset viewer.