Changeset 4908 for trunk/NEMOGCM/NEMO
- Timestamp:
- 2014-11-28T09:53:28+01:00 (9 years ago)
- Location:
- trunk/NEMOGCM/NEMO/LIM_SRC_3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limdiahsb.F90
r4765 r4908 77 77 z1_area = 1.d0 / MAX( glob_sum( area(:,:) * tms(:,:) ), epsi06 ) 78 78 79 zinda = MAX( 0. d0 , SIGN( 1.d0, glob_sum( area(:,:) * tms(:,:) ) - epsi06 ) )79 zinda = MAX( 0._wp , SIGN( 1._wp , glob_sum( area(:,:) * tms(:,:) ) - epsi06 ) ) 80 80 ! ----------------------- ! 81 81 ! 1 - Content variations ! … … 153 153 ! 3 - Diagnostics writing ! 154 154 ! ----------------------- ! 155 zindb = MAX( 0. d0 , SIGN( 1.d0, zbg_ivo - epsi06 ) )155 zindb = MAX( 0._wp , SIGN( 1._wp , zbg_ivo - epsi06 ) ) 156 156 ! 157 157 CALL iom_put( 'ibgvoltot' , zbg_ivo * rhoic * r1_rau0 * 1.e-9 ) ! ice volume (km3 equivalent liquid) -
trunk/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r4765 r4908 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.