Ignore:
Timestamp:
2016-06-13T16:55:42+02:00 (5 years ago)
Author:
clem
Message:

remove useless and annoying prints

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r6469 r6696  
    247247               ztest_1 = 1 
    248248            ELSE  
    249               ! this write is useful 
    250               IF(lwp)  WRITE(numout,*) ' * TEST1 AREA NOT CONSERVED *** zA_cons = ', zA_cons,' zat_i_ini = ',zat_i_ini(i_hemis)  
    251249               ztest_1 = 0 
    252250            ENDIF 
     
    259257               ztest_2 = 1 
    260258            ELSE 
    261               ! this write is useful 
    262               IF(lwp)  WRITE(numout,*) ' * TEST2 VOLUME NOT CONSERVED *** zV_cons = ', zV_cons, & 
    263                             ' zvt_i_ini = ', zvt_i_ini(i_hemis) 
    264259               ztest_2 = 0 
    265260            ENDIF 
     
    269264               ztest_3 = 1 
    270265            ELSE 
    271                ! this write is useful 
    272                IF(lwp) WRITE(numout,*) ' * TEST 3 THICKNESS OF THE LAST CATEGORY OUT OF BOUNDS *** zh_i_ini(i_fill,i_hemis) = ', & 
    273                zh_i_ini(i_fill,i_hemis), ' hi_max(jpl-1) = ', hi_max(i_fill-1) 
    274266               ztest_3 = 0 
    275267            ENDIF 
     
    279271            DO jl = 1, jpl 
    280272               IF ( za_i_ini(jl,i_hemis) .LT. 0._wp ) THEN  
    281                   ! this write is useful 
    282                   IF(lwp) WRITE(numout,*) ' * TEST 4 POSITIVITY NOT OK FOR CAT ', jl, ' WITH A = ', za_i_ini(jl,i_hemis) 
    283273                  ztest_4 = 0 
    284274               ENDIF 
Note: See TracChangeset for help on using the changeset viewer.