Changeset 10950


Ignore:
Timestamp:
2019-05-08T17:36:42+02:00 (18 months ago)
Author:
andmirek
Message:

GMED 462 replace nprint == 1 with nprint > 3

Location:
NEMO/branches/UKMO/NEMO_4.0_GO8_package_text_diagnostics/src/OCE
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_GO8_package_text_diagnostics/src/OCE/DOM/domzgr.F90

    r10888 r10950  
    147147!!gm end bug 
    148148      ! 
    149       IF( nprint == 1 .AND. lwp )   THEN 
     149      IF( nprint > 3 .AND. lwp )   THEN 
    150150         WRITE(numout,*) ' MIN val k_top   ', MINVAL(   k_top(:,:) ), ' MAX ', MAXVAL( k_top(:,:) ) 
    151151         WRITE(numout,*) ' MIN val k_bot   ', MINVAL(   k_bot(:,:) ), ' MAX ', MAXVAL( k_bot(:,:) ) 
  • NEMO/branches/UKMO/NEMO_4.0_GO8_package_text_diagnostics/src/OCE/SBC/sbcfwb.F90

    r10888 r10950  
    187187            erp(:,:) = erp(:,:) + zerp_cor(:,:) 
    188188            ! 
    189             IF( nprint == 1 .AND. lwp ) THEN                   ! control print 
     189            IF( nprint > 3 .AND. lwp ) THEN                   ! control print 
    190190               IF( z_fwf < 0._wp ) THEN 
    191191                  WRITE(numout,*)'   z_fwf < 0' 
  • NEMO/branches/UKMO/NEMO_4.0_GO8_package_text_diagnostics/src/OCE/USR/usrdef_hgr.F90

    r10888 r10950  
    107107         CALL ctl_warn( ' GYRE used as Benchmark: e1=e2=106km, no need to adjust rdt, ahm,aht ' ) 
    108108      ENDIF 
    109       IF( nprint==1 .AND. lwp )   THEN 
     109      IF( nprint > 1 .AND. lwp )   THEN 
    110110         WRITE(numout,*) 'ze1', ze1, 'cosalpha', zcos_alpha, 'sinalpha', zsin_alpha 
    111111         WRITE(numout,*) 'ze1deg', ze1deg, 'zlam0', zlam0, 'zphi0', zphi0 
Note: See TracChangeset for help on using the changeset viewer.