Changeset 5260 for branches/2014/dev_r4650_UKMO10_Tidally_Meaned_Diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice_lim.F90
- Timestamp:
- 2015-05-12T12:37:15+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO10_Tidally_Meaned_Diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice_lim.F90
- Property svn:keywords set to Id
r4333 r5260 24 24 USE par_ice_2 25 25 USE ice_2 ! LIM_2 ice variables 26 USE dom_ice_2 ! sea-ice domain 26 27 #elif defined key_lim3 27 USE par_ice28 28 USE ice ! LIM_3 ice variables 29 USE dom_ice ! sea-ice domain 30 USE limvar 29 31 #endif 30 32 USE par_oce ! ocean parameters 31 33 USE dom_oce ! ocean space and time domain variables 32 USE dom_ice ! sea-ice domain33 34 USE sbc_oce ! Surface boundary condition: ocean fields 34 35 USE bdy_oce ! ocean open boundary conditions … … 41 42 PRIVATE 42 43 43 PUBLIC bdy_ice_lim ! routine called in sbcmod44 PUBLIC bdy_ice_lim ! routine called in sbcmod 44 45 PUBLIC bdy_ice_lim_dyn ! routine called in limrhg 45 46 46 REAL(wp) :: epsi20 = 1.e-20_wp ! module constants47 REAL(wp) :: epsi10 = 1.e-10_wp ! min area allowed by ice model48 47 !!---------------------------------------------------------------------- 49 48 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 50 !! $Id : bdyice.F90 2715 2011-03-30 15:58:35Z rblod$49 !! $Id$ 51 50 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 52 51 !!---------------------------------------------------------------------- … … 61 60 !!---------------------------------------------------------------------- 62 61 INTEGER, INTENT( in ) :: kt ! Main time step counter 63 !!64 62 INTEGER :: ib_bdy ! Loop index 63 64 #if defined key_lim3 65 CALL lim_var_glo2eqv 66 #endif 67 65 68 DO ib_bdy=1, nb_bdy 66 69 … … 73 76 CALL ctl_stop( 'bdy_ice_lim : unrecognised option for open boundaries for ice fields' ) 74 77 END SELECT 75 ENDDO 78 79 END DO 80 81 #if defined key_lim3 82 CALL lim_var_zapsmall 83 CALL lim_var_agg(1) 84 #endif 76 85 77 86 END SUBROUTINE bdy_ice_lim … … 90 99 TYPE(OBC_DATA), INTENT(in) :: dta ! OBC external data 91 100 INTEGER, INTENT(in) :: kt ! main time-step counter 92 INTEGER, INTENT(in) :: ib_bdy ! BDY set index !!101 INTEGER, INTENT(in) :: ib_bdy ! BDY set index 93 102 94 103 INTEGER :: jpbound ! 0 = incoming ice … … 97 106 INTEGER :: ji, jj, ii, ij ! local scalar 98 107 REAL(wp) :: zwgt, zwgt1 ! local scalar 99 REAL(wp) :: zinda, ztmelts, zdh 100 101 REAL(wp), PARAMETER :: zsal = 6.3 ! arbitrary salinity for incoming ice 102 REAL(wp), PARAMETER :: ztem = 270.0 ! arbitrary temperature for incoming ice 103 REAL(wp), PARAMETER :: zage = 30.0 ! arbitrary age for incoming ice 108 REAL(wp) :: ztmelts, zdh 109 104 110 !!------------------------------------------------------------------------------ 105 111 ! … … 117 123 hicif(ji,jj) = ( hicif(ji,jj) * zwgt1 + dta%hicif(jb) * zwgt ) * tmask(ji,jj,1) ! Ice depth 118 124 hsnif(ji,jj) = ( hsnif(ji,jj) * zwgt1 + dta%hsnif(jb) * zwgt ) * tmask(ji,jj,1) ! Snow depth 119 120 ! zinda = 1.0 - MAX( 0.0_wp , SIGN ( 1.0_wp , - frld(ji,jj) ) ) ! 0 if no ice121 ! !------------------------------122 ! ! Sea ice surface temperature123 ! !------------------------------124 ! sist(ji,jj) = zinda * 270.0 + ( 1.0 - zinda ) * tfu(ji,jj)125 ! !-----------------------------------------------126 ! ! Ice/snow temperatures and energy stored in brines127 ! !-----------------------------------------------128 ! !!! TO BE CONTIUNED (as LIM3 below) !!!129 ! zindhe = MAX( 0.e0, SIGN( 1.e0, fcor(1,jj) ) ) ! = 0 for SH, =1 for NH130 !131 ! ! Recover in situ values.132 ! zindb = MAX( rzero, SIGN( rone, zs0a(ji,jj) - epsi06 ) )133 ! zacrith = 1.0 - ( zindhe * acrit(1) + ( 1.0 - zindhe ) * acrit(2) )134 ! zs0a (ji,jj) = zindb * MIN( zs0a(ji,jj), zacrith )135 ! hsnif(ji,jj) = zindb * ( zs0sn(ji,jj) /MAX( zs0a(ji,jj), epsi16 ) )136 ! hicif(ji,jj) = zindb * ( zs0ice(ji,jj)/MAX( zs0a(ji,jj), epsi16 ) )137 ! zindsn = MAX( rzero, SIGN( rone, hsnif(ji,jj) - epsi06 ) )138 ! zindic = MAX( rzero, SIGN( rone, hicif(ji,jj) - epsi03 ) )139 ! zindb = MAX( zindsn, zindic )140 ! zs0a (ji,jj) = zindb * zs0a(ji,jj)141 ! frld (ji,jj) = 1.0 - zs0a(ji,jj)142 ! hsnif(ji,jj) = zindsn * hsnif(ji,jj)143 ! hicif(ji,jj) = zindic * hicif(ji,jj)144 ! zusvosn = 1.0/MAX( hsnif(ji,jj) * zs0a(ji,jj), epsi16 )145 ! zusvoic = 1.0/MAX( hicif(ji,jj) * zs0a(ji,jj), epsi16 )146 ! zignm = MAX( rzero, SIGN( rone, hsndif - hsnif(ji,jj) ) )147 ! zrtt = 173.15 * rone148 ! ztsn = zignm * tbif(ji,jj,1) &149 ! + ( 1.0 - zignm ) * MIN( MAX( zrtt, rt0_snow * zusvosn * zs0c0(ji,jj)) , tfu(ji,jj) )150 ! ztic1 = MIN( MAX( zrtt, rt0_ice * zusvoic * zs0c1(ji,jj) ) , tfu(ji,jj) )151 ! ztic2 = MIN( MAX( zrtt, rt0_ice * zusvoic * zs0c2(ji,jj) ) , tfu(ji,jj) )152 !153 ! tbif(ji,jj,1) = zindsn * ztsn + ( 1.0 - zindsn ) * tfu(ji,jj)154 ! tbif(ji,jj,2) = zindic * ztic1 + ( 1.0 - zindic ) * tfu(ji,jj)155 ! tbif(ji,jj,3) = zindic * ztic2 + ( 1.0 - zindic ) * tfu(ji,jj)156 ! qstoif(ji,jj) = zindb * xlic * zs0st(ji,jj) / MAX( zs0a(ji,jj), epsi16 )157 158 125 END DO 159 126 … … 212 179 jpbound = 0; ii = ji; ij = jj; 213 180 214 IF ( u_ice(ji+1,jj ) < 0. .AND. umask(ji-1,jj ,1) == 0. ) jpbound = 1; ii = ji+1; ij = jj 215 IF ( u_ice(ji-1,jj ) > 0. .AND. umask(ji+1,jj ,1) == 0. ) jpbound = 1; ii = ji-1; ij = jj 216 IF ( v_ice(ji ,jj+1) < 0. .AND. vmask(ji ,jj-1,1) == 0. ) jpbound = 1; ii = ji ; ij = jj+1 217 IF ( v_ice(ji ,jj-1) > 0. .AND. vmask(ji ,jj+1,1) == 0. ) jpbound = 1; ii = ji ; ij = jj-1 218 219 zinda = 1.0 - MAX( 0.0_wp , SIGN ( 1.0_wp , - at_i(ii,ij) + 0.01 ) ) ! 0 if no ice 181 IF( u_ice(ji+1,jj ) < 0. .AND. umask(ji-1,jj ,1) == 0. ) jpbound = 1; ii = ji+1; ij = jj 182 IF( u_ice(ji-1,jj ) > 0. .AND. umask(ji+1,jj ,1) == 0. ) jpbound = 1; ii = ji-1; ij = jj 183 IF( v_ice(ji ,jj+1) < 0. .AND. vmask(ji ,jj-1,1) == 0. ) jpbound = 1; ii = ji ; ij = jj+1 184 IF( v_ice(ji ,jj-1) > 0. .AND. vmask(ji ,jj+1,1) == 0. ) jpbound = 1; ii = ji ; ij = jj-1 185 186 IF( nn_ice_lim_dta(ib_bdy) == 0 ) jpbound = 0; ii = ji; ij = jj ! case ice boundaries = initial conditions 187 ! do not make state variables dependent on velocity 188 189 190 rswitch = MAX( 0.0_wp , SIGN ( 1.0_wp , at_i(ii,ij) - 0.01 ) ) ! 0 if no ice 220 191 221 192 ! concentration and thickness 222 a_i (ji,jj,jl) = a_i (ii,ij,jl) * zinda223 ht_i(ji,jj,jl) = ht_i(ii,ij,jl) * zinda224 ht_s(ji,jj,jl) = ht_s(ii,ij,jl) * zinda193 a_i (ji,jj,jl) = a_i (ii,ij,jl) * rswitch 194 ht_i(ji,jj,jl) = ht_i(ii,ij,jl) * rswitch 195 ht_s(ji,jj,jl) = ht_s(ii,ij,jl) * rswitch 225 196 226 197 ! Ice and snow volumes … … 233 204 234 205 ! Ice salinity, age, temperature 235 sm_i(ji,jj,jl) = zinda * zsal + ( 1.0 - zinda ) * s_i_min236 o _i(ji,jj,jl) = zinda * zage + ( 1.0 - zinda)237 t_su(ji,jj,jl) = zinda * ztem + ( 1.0 - zinda ) * ztem206 sm_i(ji,jj,jl) = rswitch * rn_ice_sal(ib_bdy) + ( 1.0 - rswitch ) * rn_simin 207 oa_i(ji,jj,jl) = rswitch * rn_ice_age(ib_bdy) * a_i(ji,jj,jl) 208 t_su(ji,jj,jl) = rswitch * rn_ice_tem(ib_bdy) + ( 1.0 - rswitch ) * rn_ice_tem(ib_bdy) 238 209 DO jk = 1, nlay_s 239 t_s(ji,jj,jk,jl) = zinda * ztem + ( 1.0 - zinda ) * rtt210 t_s(ji,jj,jk,jl) = rswitch * rn_ice_tem(ib_bdy) + ( 1.0 - rswitch ) * rt0 240 211 END DO 241 212 DO jk = 1, nlay_i 242 t_i(ji,jj,jk,jl) = zinda * ztem + ( 1.0 - zinda ) * rtt243 s_i(ji,jj,jk,jl) = zinda * zsal + ( 1.0 - zinda ) * s_i_min213 t_i(ji,jj,jk,jl) = rswitch * rn_ice_tem(ib_bdy) + ( 1.0 - rswitch ) * rt0 214 s_i(ji,jj,jk,jl) = rswitch * rn_ice_sal(ib_bdy) + ( 1.0 - rswitch ) * rn_simin 244 215 END DO 245 216 … … 247 218 248 219 ! Ice salinity, age, temperature 249 sm_i(ji,jj,jl) = zinda * sm_i(ii,ij,jl) + ( 1.0 - zinda ) * s_i_min250 o _i(ji,jj,jl) = zinda * o_i(ii,ij,jl) + ( 1.0 - zinda)251 t_su(ji,jj,jl) = zinda * t_su(ii,ij,jl) + ( 1.0 - zinda ) * rtt220 sm_i(ji,jj,jl) = rswitch * sm_i(ii,ij,jl) + ( 1.0 - rswitch ) * rn_simin 221 oa_i(ji,jj,jl) = rswitch * oa_i(ii,ij,jl) 222 t_su(ji,jj,jl) = rswitch * t_su(ii,ij,jl) + ( 1.0 - rswitch ) * rt0 252 223 DO jk = 1, nlay_s 253 t_s(ji,jj,jk,jl) = zinda * t_s(ii,ij,jk,jl) + ( 1.0 - zinda ) * rtt224 t_s(ji,jj,jk,jl) = rswitch * t_s(ii,ij,jk,jl) + ( 1.0 - rswitch ) * rt0 254 225 END DO 255 226 DO jk = 1, nlay_i 256 t_i(ji,jj,jk,jl) = zinda * t_i(ii,ij,jk,jl) + ( 1.0 - zinda ) * rtt257 s_i(ji,jj,jk,jl) = zinda * s_i(ii,ij,jk,jl) + ( 1.0 - zinda ) * s_i_min227 t_i(ji,jj,jk,jl) = rswitch * t_i(ii,ij,jk,jl) + ( 1.0 - rswitch ) * rt0 228 s_i(ji,jj,jk,jl) = rswitch * s_i(ii,ij,jk,jl) + ( 1.0 - rswitch ) * rn_simin 258 229 END DO 259 230 260 231 END SELECT 232 233 ! if salinity is constant, then overwrite rn_ice_sal 234 IF( nn_icesal == 1 ) THEN 235 sm_i(ji,jj,jl) = rn_icesal 236 s_i (ji,jj,:,jl) = rn_icesal 237 ENDIF 261 238 262 239 ! contents 263 240 smv_i(ji,jj,jl) = MIN( sm_i(ji,jj,jl) , sss_m(ji,jj) ) * v_i(ji,jj,jl) 264 oa_i(ji,jj,jl) = o_i(ji,jj,jl) * a_i(ji,jj,jl)265 241 DO jk = 1, nlay_s 266 242 ! Snow energy of melting 267 e_s(ji,jj,jk,jl) = zinda * rhosn * ( cpic * ( rtt - t_s(ji,jj,jk,jl) ) + lfus ) 268 ! Change dimensions 269 e_s(ji,jj,jk,jl) = e_s(ji,jj,jk,jl) / unit_fac 270 ! Multiply by volume, so that heat content in 10^9 Joules 271 e_s(ji,jj,jk,jl) = e_s(ji,jj,jk,jl) * area(ji,jj) * v_s(ji,jj,jl) / nlay_s 243 e_s(ji,jj,jk,jl) = rswitch * rhosn * ( cpic * ( rt0 - t_s(ji,jj,jk,jl) ) + lfus ) 244 ! Multiply by volume, so that heat content in J/m2 245 e_s(ji,jj,jk,jl) = e_s(ji,jj,jk,jl) * v_s(ji,jj,jl) * r1_nlay_s 272 246 END DO 273 247 DO jk = 1, nlay_i 274 ztmelts = - tmut * s_i(ji,jj,jk,jl) + rt t!Melting temperature in K248 ztmelts = - tmut * s_i(ji,jj,jk,jl) + rt0 !Melting temperature in K 275 249 ! heat content per unit volume 276 e_i(ji,jj,jk,jl) = zinda* rhoic * &250 e_i(ji,jj,jk,jl) = rswitch * rhoic * & 277 251 ( cpic * ( ztmelts - t_i(ji,jj,jk,jl) ) & 278 + lfus * ( 1.0 - (ztmelts-rtt) / MIN((t_i(ji,jj,jk,jl)-rtt),-epsi20) ) & 279 - rcp * ( ztmelts - rtt ) ) 280 ! Correct dimensions to avoid big values 281 e_i(ji,jj,jk,jl) = e_i(ji,jj,jk,jl) / unit_fac 282 ! Mutliply by ice volume, and divide by number of layers to get heat content in 10^9 J 283 e_i(ji,jj,jk,jl) = e_i(ji,jj,jk,jl) * area(ji,jj) * a_i(ji,jj,jl) * ht_i(ji,jj,jl) / nlay_i 252 + lfus * ( 1.0 - (ztmelts-rt0) / MIN((t_i(ji,jj,jk,jl)-rt0),-epsi20) ) & 253 - rcp * ( ztmelts - rt0 ) ) 254 ! Mutliply by ice volume, and divide by number of layers to get heat content in J/m2 255 e_i(ji,jj,jk,jl) = e_i(ji,jj,jk,jl) * a_i(ji,jj,jl) * ht_i(ji,jj,jl) * r1_nlay_i 284 256 END DO 285 257 286 287 END DO !jb 258 END DO 288 259 289 CALL lbc_bdy_lnk( a_i(:,:,jl), 'T', 1., ib_bdy ) ! lateral boundary conditions260 CALL lbc_bdy_lnk( a_i(:,:,jl), 'T', 1., ib_bdy ) 290 261 CALL lbc_bdy_lnk( ht_i(:,:,jl), 'T', 1., ib_bdy ) 291 262 CALL lbc_bdy_lnk( ht_s(:,:,jl), 'T', 1., ib_bdy ) … … 296 267 CALL lbc_bdy_lnk( sm_i(:,:,jl), 'T', 1., ib_bdy ) 297 268 CALL lbc_bdy_lnk( oa_i(:,:,jl), 'T', 1., ib_bdy ) 298 CALL lbc_bdy_lnk( o_i(:,:,jl), 'T', 1., ib_bdy )299 269 CALL lbc_bdy_lnk( t_su(:,:,jl), 'T', 1., ib_bdy ) 300 270 DO jk = 1, nlay_s … … 328 298 !! 329 299 CHARACTER(len=1), INTENT(in) :: cd_type ! nature of velocity grid-points 330 INTEGER :: jb, jgrd ! dummy loop indices300 INTEGER :: jb, jgrd ! dummy loop indices 331 301 INTEGER :: ji, jj ! local scalar 332 INTEGER :: ib_bdy ! Loop index333 REAL(wp) :: zmsk1, zmsk2, zflag , zinda302 INTEGER :: ib_bdy ! Loop index 303 REAL(wp) :: zmsk1, zmsk2, zflag 334 304 !!------------------------------------------------------------------------------ 335 305 ! … … 338 308 DO ib_bdy=1, nb_bdy 339 309 ! 340 SELECT CASE( nn_ice_lim(ib_bdy) )310 SELECT CASE( cn_ice_lim(ib_bdy) ) 341 311 342 312 CASE('none') … … 346 316 CASE('frs') 347 317 348 318 IF( nn_ice_lim_dta(ib_bdy) == 0 ) CYCLE ! case ice boundaries = initial conditions 319 ! do not change ice velocity (it is only computed by rheology) 320 349 321 SELECT CASE ( cd_type ) 350 322 351 323 CASE ( 'U' ) 352 324 … … 355 327 ji = idx_bdy(ib_bdy)%nbi(jb,jgrd) 356 328 jj = idx_bdy(ib_bdy)%nbj(jb,jgrd) 357 zflag = idx_bdy(ib_bdy)%flagu(jb )329 zflag = idx_bdy(ib_bdy)%flagu(jb,jgrd) 358 330 359 331 IF ( ABS( zflag ) == 1. ) THEN ! eastern and western boundaries … … 363 335 364 336 ! u_ice = u_ice of the adjacent grid point except if this grid point is ice-free (then u_ice = u_oce) 365 u_ice (ji,jj) = u_ice(ji+1,jj) * 0.5 * ABS( zflag + 1._wp ) * zmsk1 + &366 & u_ice(ji-1,jj) * 0.5 * ABS( zflag - 1._wp ) * zmsk2 + &337 u_ice (ji,jj) = u_ice(ji+1,jj) * 0.5_wp * ABS( zflag + 1._wp ) * zmsk1 + & 338 & u_ice(ji-1,jj) * 0.5_wp * ABS( zflag - 1._wp ) * zmsk2 + & 367 339 & u_oce(ji ,jj) * ( 1._wp - MIN( 1._wp, zmsk1 + zmsk2 ) ) 368 340 ELSE ! everywhere else … … 371 343 ENDIF 372 344 ! mask ice velocities 373 zinda = 1.0 - MAX( 0.0_wp , SIGN ( 1.0_wp , - at_i(ji,jj) + 0.01) ) ! 0 if no ice374 u_ice(ji,jj) = zinda* u_ice(ji,jj)345 rswitch = MAX( 0.0_wp , SIGN ( 1.0_wp , at_i(ji,jj) - 0.01_wp ) ) ! 0 if no ice 346 u_ice(ji,jj) = rswitch * u_ice(ji,jj) 375 347 376 348 ENDDO 377 349 378 350 CALL lbc_bdy_lnk( u_ice(:,:), 'U', -1., ib_bdy ) 379 351 … … 384 356 ji = idx_bdy(ib_bdy)%nbi(jb,jgrd) 385 357 jj = idx_bdy(ib_bdy)%nbj(jb,jgrd) 386 zflag = idx_bdy(ib_bdy)%flagv(jb )358 zflag = idx_bdy(ib_bdy)%flagv(jb,jgrd) 387 359 388 360 IF ( ABS( zflag ) == 1. ) THEN ! northern and southern boundaries … … 392 364 393 365 ! u_ice = u_ice of the adjacent grid point except if this grid point is ice-free (then u_ice = u_oce) 394 v_ice (ji,jj) = v_ice(ji,jj+1) * 0.5 * ABS( zflag + 1._wp ) * zmsk1 + &395 & v_ice(ji,jj-1) * 0.5 * ABS( zflag - 1._wp ) * zmsk2 + &366 v_ice (ji,jj) = v_ice(ji,jj+1) * 0.5_wp * ABS( zflag + 1._wp ) * zmsk1 + & 367 & v_ice(ji,jj-1) * 0.5_wp * ABS( zflag - 1._wp ) * zmsk2 + & 396 368 & v_oce(ji,jj ) * ( 1._wp - MIN( 1._wp, zmsk1 + zmsk2 ) ) 397 369 ELSE ! everywhere else … … 400 372 ENDIF 401 373 ! mask ice velocities 402 zinda = 1.0 - MAX( 0.0_wp , SIGN ( 1.0_wp , - at_i(ji,jj) +0.01 ) ) ! 0 if no ice403 v_ice(ji,jj) = zinda* v_ice(ji,jj)374 rswitch = MAX( 0.0_wp , SIGN ( 1.0_wp , at_i(ji,jj) - 0.01 ) ) ! 0 if no ice 375 v_ice(ji,jj) = rswitch * v_ice(ji,jj) 404 376 405 377 ENDDO 406 378 407 379 CALL lbc_bdy_lnk( v_ice(:,:), 'V', -1., ib_bdy ) 408 380 409 381 END SELECT 410 382
Note: See TracChangeset
for help on using the changeset viewer.