- Timestamp:
- 2014-09-26T14:38:42+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r4765 r4793 301 301 302 302 IF(lwp) THEN 303 WRITE(numout,*) ,' ztests : ', ztests303 WRITE(numout,*) ' ztests : ', ztests 304 304 IF ( ztests .NE. 4 ) THEN 305 305 WRITE(numout,*) 306 WRITE(numout,*) ,' !!!! ALERT !!! '307 WRITE(numout,*) ,' !!!! Something is wrong in the LIM3 initialization procedure '306 WRITE(numout,*) ' !!!! ALERT !!! ' 307 WRITE(numout,*) ' !!!! Something is wrong in the LIM3 initialization procedure ' 308 308 WRITE(numout,*) 309 WRITE(numout,*) ,' *** ztests is not equal to 4 '310 WRITE(numout,*) ,' *** ztest_i (i=1,4) = ', ztest_1, ztest_2, ztest_3, ztest_4311 WRITE(numout,*) ,' zat_i_ini : ', zat_i_ini(i_hemis)312 WRITE(numout,*) ,' zht_i_ini : ', zht_i_ini(i_hemis)309 WRITE(numout,*) ' *** ztests is not equal to 4 ' 310 WRITE(numout,*) ' *** ztest_i (i=1,4) = ', ztest_1, ztest_2, ztest_3, ztest_4 311 WRITE(numout,*) ' zat_i_ini : ', zat_i_ini(i_hemis) 312 WRITE(numout,*) ' zht_i_ini : ', zht_i_ini(i_hemis) 313 313 ENDIF ! ztests .NE. 4 314 314 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.