Changeset 6693


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

remove useless and annoying prints

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r6515 r6693  
    261261                           ztest_1 = 1 
    262262                        ELSE  
    263                           !this write is useful 
    264                           IF(lwp)  WRITE(numout,*) ' * TEST1 AREA NOT CONSERVED *** zA_cons = ', zA_cons,' zat_i_ini = ',zat_i_ini(ji,jj)  
    265263                          ztest_1 = 0 
    266264                        ENDIF 
     
    273271                           ztest_2 = 1 
    274272                        ELSE 
    275                            !this write is useful 
    276                            IF(lwp)  WRITE(numout,*) ' * TEST2 VOLUME NOT CONSERVED *** zV_cons = ', zV_cons, & 
    277                                                     ' zvt_i_ini = ', zvt_i_ini(ji,jj) 
    278273                           ztest_2 = 0 
    279274                        ENDIF 
     
    283278                           ztest_3 = 1 
    284279                        ELSE 
    285                            ! this write is useful 
    286                            IF(lwp) WRITE(numout,*) ' * TEST 3 THICKNESS OF THE LAST CATEGORY OUT OF BOUNDS *** zh_i_ini(ji,jj,i_fill) = ', & 
    287                            zh_i_ini(ji,jj,i_fill), ' hi_max(jpl-1) = ', hi_max(i_fill-1) 
    288                            IF(lwp) WRITE(numout,*) ' ji,jj,i_fill ',ji,jj,i_fill 
    289                            IF(lwp) WRITE(numout,*) 'zht_i_ini ',zht_i_ini(ji,jj) 
    290280                           ztest_3 = 0 
    291281                        ENDIF 
     
    295285                        DO jl = 1, jpl 
    296286                           IF ( za_i_ini(ji,jj,jl) .LT. 0._wp ) THEN  
    297                               ! this write is useful 
    298                               IF(lwp) WRITE(numout,*) ' * TEST 4 POSITIVITY NOT OK FOR CAT ', jl, ' WITH A = ', za_i_ini(ji,jj,jl) 
    299287                              ztest_4 = 0 
    300288                           ENDIF 
Note: See TracChangeset for help on using the changeset viewer.