- Timestamp:
- 2016-06-13T16:52:57+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r6470 r6695 278 278 ztest_1 = 1 279 279 ELSE 280 !this write is useful281 IF(lwp) WRITE(numout,*) ' * TEST1 AREA NOT CONSERVED *** zA_cons = ', zA_cons,' zat_i_ini = ',zat_i_ini(ji,jj)282 280 ztest_1 = 0 283 281 ENDIF … … 290 288 ztest_2 = 1 291 289 ELSE 292 !this write is useful293 IF(lwp) WRITE(numout,*) ' * TEST2 VOLUME NOT CONSERVED *** zV_cons = ', zV_cons, &294 ' zvt_i_ini = ', zvt_i_ini(ji,jj)295 290 ztest_2 = 0 296 291 ENDIF … … 300 295 ztest_3 = 1 301 296 ELSE 302 ! this write is useful303 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_fill306 IF(lwp) WRITE(numout,*) 'zht_i_ini ',zht_i_ini(ji,jj)307 297 ztest_3 = 0 308 298 ENDIF … … 312 302 DO jl = 1, jpl 313 303 IF ( za_i_ini(ji,jj,jl) .LT. 0._wp ) THEN 314 ! this write is useful315 IF(lwp) WRITE(numout,*) ' * TEST 4 POSITIVITY NOT OK FOR CAT ', jl, ' WITH A = ', za_i_ini(ji,jj,jl)316 304 ztest_4 = 0 317 305 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.