Changeset 6695


Ignore:
Timestamp:
2016-06-13T16:52:57+02:00 (4 years ago)
Author:
clem
Message:

remove useless and annoying prints

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r6470 r6695  
    278278                           ztest_1 = 1 
    279279                        ELSE  
    280                           !this write is useful 
    281                           IF(lwp)  WRITE(numout,*) ' * TEST1 AREA NOT CONSERVED *** zA_cons = ', zA_cons,' zat_i_ini = ',zat_i_ini(ji,jj)  
    282280                          ztest_1 = 0 
    283281                        ENDIF 
     
    290288                           ztest_2 = 1 
    291289                        ELSE 
    292                            !this write is useful 
    293                            IF(lwp)  WRITE(numout,*) ' * TEST2 VOLUME NOT CONSERVED *** zV_cons = ', zV_cons, & 
    294                                                     ' zvt_i_ini = ', zvt_i_ini(ji,jj) 
    295290                           ztest_2 = 0 
    296291                        ENDIF 
     
    300295                           ztest_3 = 1 
    301296                        ELSE 
    302                            ! this write is useful 
    303                            IF(lwp) WRITE(numout,*) ' * TEST 3 THICKNESS OF THE LAST CATEGORY OUT OF BOUNDS *** zh_i_ini(ji,jj,i_fill) = ', & 
    304                            zh_i_ini(ji,jj,i_fill), ' hi_max(jpl-1) = ', hi_max(i_fill-1) 
    305                            IF(lwp) WRITE(numout,*) ' ji,jj,i_fill ',ji,jj,i_fill 
    306                            IF(lwp) WRITE(numout,*) 'zht_i_ini ',zht_i_ini(ji,jj) 
    307297                           ztest_3 = 0 
    308298                        ENDIF 
     
    312302                        DO jl = 1, jpl 
    313303                           IF ( za_i_ini(ji,jj,jl) .LT. 0._wp ) THEN  
    314                               ! this write is useful 
    315                               IF(lwp) WRITE(numout,*) ' * TEST 4 POSITIVITY NOT OK FOR CAT ', jl, ' WITH A = ', za_i_ini(ji,jj,jl) 
    316304                              ztest_4 = 0 
    317305                           ENDIF 
Note: See TracChangeset for help on using the changeset viewer.