New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10754 – NEMO

Changeset 10754


Ignore:
Timestamp:
2019-03-14T17:12:01+01:00 (6 years ago)
Author:
andmirek
Message:

GMED 450 replace nprint == 1 with nprint > 3

Location:
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90

    r6487 r10754  
    421421         gphi0 = zphi1 + zsin_alpha * ze1deg * FLOAT( jpjglo-2 ) 
    422422 
    423          IF( nprint==1 .AND. lwp )   THEN 
     423         IF( nprint > 3 .AND. lwp )   THEN 
    424424            WRITE(numout,*) '          ze1', ze1, 'cosalpha', zcos_alpha, 'sinalpha', zsin_alpha 
    425425            WRITE(numout,*) '          ze1deg', ze1deg, 'glam0', glam0, 'gphi0', gphi0 
    … …  
    507507 
    508508       
    509       IF( nprint == 1 .AND. lwp ) THEN 
     509      IF( nprint > 3 .AND. lwp ) THEN 
    510510         WRITE(numout,*) '          e1u e2u ' 
    511511         CALL prihre( e1u,jpi,jpj,jpi-5,jpi,1,jpj-5,jpj,1,0.,numout ) 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r9830 r10754  
    514514      ! CAUTION : The fmask may be further modified in dyn_vor_init ( dynvor.F90 ) 
    515515             
    516       IF( nprint == 1 .AND. lwp ) THEN      ! Control print 
     516      IF( nprint > 3 .AND. lwp ) THEN      ! Control print 
    517517         imsk(:,:) = INT( tmask_i(:,:) ) 
    518518         WRITE(numout,*) ' tmask_i : ' 
    … …  
    640640                  nicoa(inw,1,jk) = ji 
    641641                  njcoa(inw,1,jk) = jj 
    642                   IF( nprint == 1 ) WRITE(numout,*) ' west  : ', jk, inw, ji, jj 
     642                  IF( nprint > 3 ) WRITE(numout,*) ' west  : ', jk, inw, ji, jj 
    643643               ENDIF 
    644644               zaa = tmask(ji,jj,jk) + tmask(ji,jj+1,jk) 
    … …  
    647647                  nicoa(ine,2,jk) = ji 
    648648                  njcoa(ine,2,jk) = jj 
    649                   IF( nprint == 1 ) WRITE(numout,*) ' east  : ', jk, ine, ji, jj 
     649                  IF( nprint > 3 ) WRITE(numout,*) ' east  : ', jk, ine, ji, jj 
    650650               ENDIF 
    651651            END DO 
    … …  
    667667                  nicoa(ins,3,jk) = ji 
    668668                  njcoa(ins,3,jk) = jj 
    669                   IF( nprint == 1 ) WRITE(numout,*) ' south : ', jk, ins, ji, jj 
     669                  IF( nprint > 3 ) WRITE(numout,*) ' south : ', jk, ins, ji, jj 
    670670               ENDIF 
    671671               zaa = tmask(ji+1,jj,jk) + tmask(ji,jj,jk) 
    … …  
    674674                  nicoa(inn,4,jk) = ji 
    675675                  njcoa(inn,4,jk) = jj 
    676                   IF( nprint == 1 ) WRITE(numout,*) ' north : ', jk, inn, ji, jj 
     676                  IF( nprint > 3 ) WRITE(numout,*) ' north : ', jk, inn, ji, jj 
    677677               ENDIF 
    678678            END DO 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r6487 r10754  
    154154      END IF 
    155155      ! 
    156       IF( nprint == 1 .AND. lwp )   THEN 
     156      IF( nprint > 3 .AND. lwp )   THEN 
    157157         WRITE(numout,*) ' MIN val mbathy ', MINVAL( mbathy(:,:) ), ' MAX ', MAXVAL( mbathy(:,:) ) 
    158158         WRITE(numout,*) ' MIN val depth t ', MINVAL( gdept_0(:,:,:) ),   & 
    … …  
    779779      ENDIF 
    780780 
    781       IF( lwp .AND. nprint == 1 ) THEN      ! control print 
     781      IF( lwp .AND. nprint > 3 ) THEN      ! control print 
    782782         WRITE(numout,*) 
    783783         WRITE(numout,*) ' bathymetric field :   number of non-zero T-levels ' 
    … …  
    19841984         WRITE(numout,*) 
    19851985         CALL prihre( hbatt(1,1), jpi, jpj, 1, jpi, 1, 1, jpj, 1, 0._wp, numout ) 
    1986          IF( nprint == 1 )   THEN         
     1986         IF( nprint > 3 )   THEN         
    19871987            WRITE(numout,*) ' bathy  MAX ', MAXVAL( bathy(:,:) ), ' MIN ', MINVAL( bathy(:,:) ) 
    19881988            WRITE(numout,*) ' hbatt  MAX ', MAXVAL( hbatt(:,:) ), ' MIN ', MINVAL( hbatt(:,:) ) 
    … …  
    20452045      hiff(:,:) = MIN( hiff(:,:), hbatf(:,:) ) 
    20462046 
    2047       IF( nprint == 1 .AND. lwp )   THEN 
     2047      IF( nprint > 3 .AND. lwp )   THEN 
    20482048         WRITE(numout,*) ' MAX val hif   t ', MAXVAL( hift (:,:) ), ' f ', MAXVAL( hiff (:,:) ),  & 
    20492049            &                        ' u ',   MAXVAL( hifu (:,:) ), ' v ', MAXVAL( hifv (:,:) ) 
    … …  
    21392139         END DO 
    21402140      END DO 
    2141       IF( nprint == 1 .AND. lwp ) WRITE(numout,*) ' MIN val mbathy h90 ', MINVAL( mbathy(:,:) ),   & 
     2141      IF( nprint > 3 .AND. lwp ) WRITE(numout,*) ' MIN val mbathy h90 ', MINVAL( mbathy(:,:) ),   & 
    21422142         &                                                       ' MAX ', MAXVAL( mbathy(:,:) ) 
    21432143 
    2144       IF( nprint == 1  .AND. lwp )   THEN         ! min max values over the local domain 
     2144      IF( nprint > 3  .AND. lwp )   THEN         ! min max values over the local domain 
    21452145         WRITE(numout,*) ' MIN val mbathy  ', MINVAL( mbathy(:,:)    ), ' MAX ', MAXVAL( mbathy(:,:) ) 
    21462146         WRITE(numout,*) ' MIN val depth t ', MINVAL( gdept_0(:,:,:) ),   & 
    … …  
    25062506        z_gsigt(jk) = -fssig( REAL(jk,wp)        ) 
    25072507      END DO 
    2508       IF( nprint == 1 .AND. lwp )   WRITE(numout,*) 'z_gsigw 1 jpk    ', z_gsigw(1), z_gsigw(jpk) 
     2508      IF( nprint > 3 .AND. lwp )   WRITE(numout,*) 'z_gsigw 1 jpk    ', z_gsigw(1), z_gsigw(jpk) 
    25092509      ! 
    25102510      ! Coefficients for vertical scale factors at w-, t- levels 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcfwb.F90

    r6487 r10754  
    188188            erp(:,:) = erp(:,:) + zerp_cor(:,:) 
    189189            ! 
    190             IF( nprint == 1 .AND. lwp ) THEN                   ! control print 
     190            IF( nprint > 3 .AND. lwp ) THEN                   ! control print 
    191191               IF( z_fwf < 0._wp ) THEN 
    192192                  WRITE(numout,*)'   z_fwf < 0' 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

    r10149 r10754  
    446446!=========== 
    447447 
    448       IF( nprint == 1 .AND. lwp ) THEN 
     448      IF( nprint > 2 .AND. lwp ) THEN 
    449449         ! Control print 
    450450         ! Total power consumption due to vertical mixing 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90

    r10745 r10754  
    188188         zchl = zrgb(1,jc) 
    189189         irgb = NINT( 41 + 20.* LOG10( zchl ) + 1.e-15 ) 
    190          IF(lwp .AND. nprint >= 1 ) WRITE(numout,*) '    jc =', jc, '  Chl = ', zchl, '  irgb = ', irgb 
     190         IF(lwp .AND. nprint > 3 ) WRITE(numout,*) '    jc =', jc, '  Chl = ', zchl, '  irgb = ', irgb 
    191191         IF( irgb /= jc ) THEN 
    192192            IF(lwp) WRITE(numout,*) '    jc =', jc, '  Chl = ', zchl, '  Chl class = ', irgb 
Note: See TracChangeset for help on using the changeset viewer.