Changeset 4909 for branches/2014/dev_r4650_UKMO13_CICE_changes_take2
- Timestamp:
- 2014-11-28T10:20:18+01:00 (10 years ago)
- Location:
- branches/2014/dev_r4650_UKMO13_CICE_changes_take2/NEMOGCM/NEMO/LIM_SRC_3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO13_CICE_changes_take2/NEMOGCM/NEMO/LIM_SRC_3/limdiahsb.F90
r4346 r4909 73 73 z1_area = 1.d0 / MAX( glob_sum( area(:,:) * tms(:,:) ), epsi06 ) 74 74 75 zinda = MAX( 0. d0 , SIGN( 1.d0, glob_sum( area(:,:) * tms(:,:) ) - epsi06 ) )75 zinda = MAX( 0._wp , SIGN( 1._wp , glob_sum( area(:,:) * tms(:,:) ) - epsi06 ) ) 76 76 ! ----------------------- ! 77 77 ! 1 - Content variations ! … … 123 123 ! 3 - Diagnostics writing ! 124 124 ! ----------------------- ! 125 zindb = MAX( 0. d0 , SIGN( 1.d0, zbg_ivo - epsi06 ) )125 zindb = MAX( 0._wp , SIGN( 1._wp , zbg_ivo - epsi06 ) ) 126 126 ! 127 127 CALL iom_put( 'ibgvoltot' , zbg_ivo * rhoic * r1_rau0 * 1.e-9 ) ! ice volume (km3 equivalent liquid) -
branches/2014/dev_r4650_UKMO13_CICE_changes_take2/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r4624 r4909 288 288 289 289 IF(lwp) THEN 290 WRITE(numout,*) ,' ztests : ', ztests290 WRITE(numout,*) ' ztests : ', ztests 291 291 IF ( ztests .NE. 4 ) THEN 292 292 WRITE(numout,*) 293 WRITE(numout,*) ,' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! '294 WRITE(numout,*) ,' !!!! RED ALERT !!! '295 WRITE(numout,*) ,' !!!! BIIIIP BIIIP BIIIIP BIIIIP !!!'296 WRITE(numout,*) ,' !!!! Something is wrong in the LIM3 initialization procedure '297 WRITE(numout,*) ,' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! '293 WRITE(numout,*) ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ' 294 WRITE(numout,*) ' !!!! RED ALERT !!! ' 295 WRITE(numout,*) ' !!!! BIIIIP BIIIP BIIIIP BIIIIP !!!' 296 WRITE(numout,*) ' !!!! Something is wrong in the LIM3 initialization procedure ' 297 WRITE(numout,*) ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ' 298 298 WRITE(numout,*) 299 WRITE(numout,*) ,' *** ztests is not equal to 4 '300 WRITE(numout,*) ,' *** ztest_i (i=1,4) = ', ztest_1, ztest_2, ztest_3, ztest_4301 WRITE(numout,*) ,' zat_i_ini : ', zat_i_ini(i_hemis)302 WRITE(numout,*) ,' zhm_i_ini : ', zhm_i_ini(i_hemis)299 WRITE(numout,*) ' *** ztests is not equal to 4 ' 300 WRITE(numout,*) ' *** ztest_i (i=1,4) = ', ztest_1, ztest_2, ztest_3, ztest_4 301 WRITE(numout,*) ' zat_i_ini : ', zat_i_ini(i_hemis) 302 WRITE(numout,*) ' zhm_i_ini : ', zhm_i_ini(i_hemis) 303 303 ENDIF ! ztests .NE. 4 304 304 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.