Changeset 4910 for branches/2014/dev_CNRS_2014
- Timestamp:
- 2014-11-28T10:22:20+01:00 (9 years ago)
- Location:
- branches/2014/dev_CNRS_2014/NEMOGCM/NEMO/LIM_SRC_3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_CNRS_2014/NEMOGCM/NEMO/LIM_SRC_3/limdiahsb.F90
r4907 r4910 75 75 76 76 ! 1/area 77 z1_area = 1. 0/ MAX( glob_sum( area(:,:) * tms(:,:) ), epsi06 )78 79 zinda = MAX( 0. 0 , SIGN( 1.0, glob_sum( area(:,:) * tms(:,:) ) - epsi06 ) )77 z1_area = 1._wp / MAX( glob_sum( area(:,:) * tms(:,:) ), epsi06 ) 78 79 zinda = MAX( 0._wp , SIGN( 1._wp , glob_sum( area(:,:) * tms(:,:) ) - epsi06 ) ) 80 80 ! ----------------------- ! 81 81 ! 1 - Content variations ! … … 244 244 ! 2 - initial conservation variables ! 245 245 ! ---------------------------------- ! 246 !frc_vol = 0. d0! volume trend due to forcing247 !frc_sal = 0. d0! salt content - - - -248 !bg_grme = 0. d0! ice growth + melt volume trend246 !frc_vol = 0._wp ! volume trend due to forcing 247 !frc_sal = 0._wp ! salt content - - - - 248 !bg_grme = 0._wp ! ice growth + melt volume trend 249 249 ! 250 250 CALL lim_diahsb_rst( nstart, 'READ' ) !* read or initialize all required files … … 280 280 IF(lwp) WRITE(numout,*) ' lim_diahsb at initial state ' 281 281 IF(lwp) WRITE(numout,*) '~~~~~~~' 282 frc_vol = 0. d0283 frc_sal = 0. d0284 bg_grme = 0. d0285 ENDIF 282 frc_vol = 0._wp 283 frc_sal = 0._wp 284 bg_grme = 0._wp 285 ENDIF 286 286 287 287 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file -
branches/2014/dev_CNRS_2014/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r4902 r4910 296 296 IF ( ztests .NE. 4 ) THEN 297 297 WRITE(numout,*) 298 WRITE(numout,*) ,' !!!! ALERT !!! '299 WRITE(numout,*) ,' !!!! Something is wrong in the LIM3 initialization procedure '300 WRITE(numout,* )301 WRITE(numout,*) ,' *** ztests is not equal to 4 '302 WRITE(numout,*) ,' *** ztest_i (i=1,4) = ', ztest_1, ztest_2, ztest_3, ztest_4303 WRITE(numout,*) ,' zat_i_ini : ', zat_i_ini(i_hemis)304 WRITE(numout,*) ,' zht_i_ini : ', zht_i_ini(i_hemis)298 WRITE(numout,*) ' !!!! ALERT !!! ' 299 WRITE(numout,*) ' !!!! Something is wrong in the LIM3 initialization procedure ' 300 WRITE(numout,* 301 WRITE(numout,*) ' *** ztests is not equal to 4 ' 302 WRITE(numout,*) ' *** ztest_i (i=1,4) = ', ztest_1, ztest_2, ztest_3, ztest_4 303 WRITE(numout,*) ' zat_i_ini : ', zat_i_ini(i_hemis) 304 WRITE(numout,*) ' zht_i_ini : ', zht_i_ini(i_hemis) 305 305 ENDIF ! ztests .NE. 4 306 306 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.