- Timestamp:
- 2015-07-10T13:28:53+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice_lim.F90
- Property svn:keywords set to Id
r4965 r5581 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) :: z inda, ztmelts, zdh108 REAL(wp) :: ztmelts, zdh 100 109 #if defined key_lim2 && ! defined key_lim2_vp && defined key_agrif 101 110 USE ice_2, vt_s => hsnm … … 118 127 hicif(ji,jj) = ( hicif(ji,jj) * zwgt1 + dta%hicif(jb) * zwgt ) * tmask(ji,jj,1) ! Ice depth 119 128 hsnif(ji,jj) = ( hsnif(ji,jj) * zwgt1 + dta%hsnif(jb) * zwgt ) * tmask(ji,jj,1) ! Snow depth 120 121 ! zinda = 1.0 - MAX( 0.0_wp , SIGN ( 1.0_wp , - frld(ji,jj) ) ) ! 0 if no ice122 ! !------------------------------123 ! ! Sea ice surface temperature124 ! !------------------------------125 ! sist(ji,jj) = zinda * 270.0 + ( 1.0 - zinda ) * tfu(ji,jj)126 ! !-----------------------------------------------127 ! ! Ice/snow temperatures and energy stored in brines128 ! !-----------------------------------------------129 ! !!! TO BE CONTIUNED (as LIM3 below) !!!130 ! zindhe = MAX( 0.e0, SIGN( 1.e0, fcor(1,jj) ) ) ! = 0 for SH, =1 for NH131 !132 ! ! Recover in situ values.133 ! zindb = MAX( rzero, SIGN( rone, zs0a(ji,jj) - epsi06 ) )134 ! zacrith = 1.0 - ( zindhe * acrit(1) + ( 1.0 - zindhe ) * acrit(2) )135 ! zs0a (ji,jj) = zindb * MIN( zs0a(ji,jj), zacrith )136 ! hsnif(ji,jj) = zindb * ( zs0sn(ji,jj) /MAX( zs0a(ji,jj), epsi16 ) )137 ! hicif(ji,jj) = zindb * ( zs0ice(ji,jj)/MAX( zs0a(ji,jj), epsi16 ) )138 ! zindsn = MAX( rzero, SIGN( rone, hsnif(ji,jj) - epsi06 ) )139 ! zindic = MAX( rzero, SIGN( rone, hicif(ji,jj) - epsi03 ) )140 ! zindb = MAX( zindsn, zindic )141 ! zs0a (ji,jj) = zindb * zs0a(ji,jj)142 ! frld (ji,jj) = 1.0 - zs0a(ji,jj)143 ! hsnif(ji,jj) = zindsn * hsnif(ji,jj)144 ! hicif(ji,jj) = zindic * hicif(ji,jj)145 ! zusvosn = 1.0/MAX( hsnif(ji,jj) * zs0a(ji,jj), epsi16 )146 ! zusvoic = 1.0/MAX( hicif(ji,jj) * zs0a(ji,jj), epsi16 )147 ! zignm = MAX( rzero, SIGN( rone, hsndif - hsnif(ji,jj) ) )148 ! zrtt = 173.15 * rone149 ! ztsn = zignm * tbif(ji,jj,1) &150 ! + ( 1.0 - zignm ) * MIN( MAX( zrtt, rt0_snow * zusvosn * zs0c0(ji,jj)) , tfu(ji,jj) )151 ! ztic1 = MIN( MAX( zrtt, rt0_ice * zusvoic * zs0c1(ji,jj) ) , tfu(ji,jj) )152 ! ztic2 = MIN( MAX( zrtt, rt0_ice * zusvoic * zs0c2(ji,jj) ) , tfu(ji,jj) )153 !154 ! tbif(ji,jj,1) = zindsn * ztsn + ( 1.0 - zindsn ) * tfu(ji,jj)155 ! tbif(ji,jj,2) = zindic * ztic1 + ( 1.0 - zindic ) * tfu(ji,jj)156 ! tbif(ji,jj,3) = zindic * ztic2 + ( 1.0 - zindic ) * tfu(ji,jj)157 ! qstoif(ji,jj) = zindb * xlic * zs0st(ji,jj) / MAX( zs0a(ji,jj), epsi16 )158 159 129 END DO 160 130 … … 213 183 jpbound = 0; ii = ji; ij = jj; 214 184 215 IF ( u_ice(ji+1,jj ) < 0. .AND. umask(ji-1,jj ,1) == 0. ) jpbound = 1; ii = ji+1; ij = jj 216 IF ( u_ice(ji-1,jj ) > 0. .AND. umask(ji+1,jj ,1) == 0. ) jpbound = 1; ii = ji-1; ij = jj 217 IF ( v_ice(ji ,jj+1) < 0. .AND. vmask(ji ,jj-1,1) == 0. ) jpbound = 1; ii = ji ; ij = jj+1 218 IF ( v_ice(ji ,jj-1) > 0. .AND. vmask(ji ,jj+1,1) == 0. ) jpbound = 1; ii = ji ; ij = jj-1 219 220 zinda = 1.0 - MAX( 0.0_wp , SIGN ( 1.0_wp , - at_i(ii,ij) + 0.01 ) ) ! 0 if no ice 185 IF( u_ice(ji+1,jj ) < 0. .AND. umask(ji-1,jj ,1) == 0. ) jpbound = 1; ii = ji+1; ij = jj 186 IF( u_ice(ji-1,jj ) > 0. .AND. umask(ji+1,jj ,1) == 0. ) jpbound = 1; ii = ji-1; ij = jj 187 IF( v_ice(ji ,jj+1) < 0. .AND. vmask(ji ,jj-1,1) == 0. ) jpbound = 1; ii = ji ; ij = jj+1 188 IF( v_ice(ji ,jj-1) > 0. .AND. vmask(ji ,jj+1,1) == 0. ) jpbound = 1; ii = ji ; ij = jj-1 189 190 IF( nn_ice_lim_dta(ib_bdy) == 0 ) jpbound = 0; ii = ji; ij = jj ! case ice boundaries = initial conditions 191 ! do not make state variables dependent on velocity 192 193 194 rswitch = MAX( 0.0_wp , SIGN ( 1.0_wp , at_i(ii,ij) - 0.01 ) ) ! 0 if no ice 221 195 222 196 ! concentration and thickness 223 a_i (ji,jj,jl) = a_i (ii,ij,jl) * zinda224 ht_i(ji,jj,jl) = ht_i(ii,ij,jl) * zinda225 ht_s(ji,jj,jl) = ht_s(ii,ij,jl) * zinda197 a_i (ji,jj,jl) = a_i (ii,ij,jl) * rswitch 198 ht_i(ji,jj,jl) = ht_i(ii,ij,jl) * rswitch 199 ht_s(ji,jj,jl) = ht_s(ii,ij,jl) * rswitch 226 200 227 201 ! Ice and snow volumes … … 234 208 235 209 ! Ice salinity, age, temperature 236 sm_i(ji,jj,jl) = zinda * rn_ice_sal(ib_bdy) + ( 1.0 - zinda ) * s_i_min237 o _i(ji,jj,jl) = zinda * rn_ice_age(ib_bdy) + ( 1.0 - zinda)238 t_su(ji,jj,jl) = zinda * rn_ice_tem(ib_bdy) + ( 1.0 - zinda) * rn_ice_tem(ib_bdy)210 sm_i(ji,jj,jl) = rswitch * rn_ice_sal(ib_bdy) + ( 1.0 - rswitch ) * rn_simin 211 oa_i(ji,jj,jl) = rswitch * rn_ice_age(ib_bdy) * a_i(ji,jj,jl) 212 t_su(ji,jj,jl) = rswitch * rn_ice_tem(ib_bdy) + ( 1.0 - rswitch ) * rn_ice_tem(ib_bdy) 239 213 DO jk = 1, nlay_s 240 t_s(ji,jj,jk,jl) = zinda * rn_ice_tem(ib_bdy) + ( 1.0 - zinda ) * rtt214 t_s(ji,jj,jk,jl) = rswitch * rn_ice_tem(ib_bdy) + ( 1.0 - rswitch ) * rt0 241 215 END DO 242 216 DO jk = 1, nlay_i 243 t_i(ji,jj,jk,jl) = zinda * rn_ice_tem(ib_bdy) + ( 1.0 - zinda ) * rtt244 s_i(ji,jj,jk,jl) = zinda * rn_ice_sal(ib_bdy) + ( 1.0 - zinda ) * s_i_min217 t_i(ji,jj,jk,jl) = rswitch * rn_ice_tem(ib_bdy) + ( 1.0 - rswitch ) * rt0 218 s_i(ji,jj,jk,jl) = rswitch * rn_ice_sal(ib_bdy) + ( 1.0 - rswitch ) * rn_simin 245 219 END DO 246 220 … … 248 222 249 223 ! Ice salinity, age, temperature 250 sm_i(ji,jj,jl) = zinda * sm_i(ii,ij,jl) + ( 1.0 - zinda ) * s_i_min251 o _i(ji,jj,jl) = zinda * o_i(ii,ij,jl) + ( 1.0 - zinda)252 t_su(ji,jj,jl) = zinda * t_su(ii,ij,jl) + ( 1.0 - zinda ) * rtt224 sm_i(ji,jj,jl) = rswitch * sm_i(ii,ij,jl) + ( 1.0 - rswitch ) * rn_simin 225 oa_i(ji,jj,jl) = rswitch * oa_i(ii,ij,jl) 226 t_su(ji,jj,jl) = rswitch * t_su(ii,ij,jl) + ( 1.0 - rswitch ) * rt0 253 227 DO jk = 1, nlay_s 254 t_s(ji,jj,jk,jl) = zinda * t_s(ii,ij,jk,jl) + ( 1.0 - zinda ) * rtt228 t_s(ji,jj,jk,jl) = rswitch * t_s(ii,ij,jk,jl) + ( 1.0 - rswitch ) * rt0 255 229 END DO 256 230 DO jk = 1, nlay_i 257 t_i(ji,jj,jk,jl) = zinda * t_i(ii,ij,jk,jl) + ( 1.0 - zinda ) * rtt258 s_i(ji,jj,jk,jl) = zinda * s_i(ii,ij,jk,jl) + ( 1.0 - zinda ) * s_i_min231 t_i(ji,jj,jk,jl) = rswitch * t_i(ii,ij,jk,jl) + ( 1.0 - rswitch ) * rt0 232 s_i(ji,jj,jk,jl) = rswitch * s_i(ii,ij,jk,jl) + ( 1.0 - rswitch ) * rn_simin 259 233 END DO 260 234 … … 262 236 263 237 ! if salinity is constant, then overwrite rn_ice_sal 264 IF( n um_sal == 1 ) THEN265 sm_i(ji,jj,jl) = bulk_sal266 s_i (ji,jj,:,jl) = bulk_sal238 IF( nn_icesal == 1 ) THEN 239 sm_i(ji,jj,jl) = rn_icesal 240 s_i (ji,jj,:,jl) = rn_icesal 267 241 ENDIF 268 242 269 243 ! contents 270 244 smv_i(ji,jj,jl) = MIN( sm_i(ji,jj,jl) , sss_m(ji,jj) ) * v_i(ji,jj,jl) 271 oa_i(ji,jj,jl) = o_i(ji,jj,jl) * a_i(ji,jj,jl)272 245 DO jk = 1, nlay_s 273 246 ! Snow energy of melting 274 e_s(ji,jj,jk,jl) = zinda * rhosn * ( cpic * ( rtt - t_s(ji,jj,jk,jl) ) + lfus ) 275 ! Change dimensions 276 e_s(ji,jj,jk,jl) = e_s(ji,jj,jk,jl) / unit_fac 277 ! Multiply by volume, so that heat content in 10^9 Joules 278 e_s(ji,jj,jk,jl) = e_s(ji,jj,jk,jl) * area(ji,jj) * v_s(ji,jj,jl) / nlay_s 247 e_s(ji,jj,jk,jl) = rswitch * rhosn * ( cpic * ( rt0 - t_s(ji,jj,jk,jl) ) + lfus ) 248 ! Multiply by volume, so that heat content in J/m2 249 e_s(ji,jj,jk,jl) = e_s(ji,jj,jk,jl) * v_s(ji,jj,jl) * r1_nlay_s 279 250 END DO 280 251 DO jk = 1, nlay_i 281 ztmelts = - tmut * s_i(ji,jj,jk,jl) + rt t!Melting temperature in K252 ztmelts = - tmut * s_i(ji,jj,jk,jl) + rt0 !Melting temperature in K 282 253 ! heat content per unit volume 283 e_i(ji,jj,jk,jl) = zinda* rhoic * &254 e_i(ji,jj,jk,jl) = rswitch * rhoic * & 284 255 ( cpic * ( ztmelts - t_i(ji,jj,jk,jl) ) & 285 + lfus * ( 1.0 - (ztmelts-rtt) / MIN((t_i(ji,jj,jk,jl)-rtt),-epsi20) ) & 286 - rcp * ( ztmelts - rtt ) ) 287 ! Correct dimensions to avoid big values 288 e_i(ji,jj,jk,jl) = e_i(ji,jj,jk,jl) / unit_fac 289 ! Mutliply by ice volume, and divide by number of layers to get heat content in 10^9 J 290 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 256 + lfus * ( 1.0 - (ztmelts-rt0) / MIN((t_i(ji,jj,jk,jl)-rt0),-epsi20) ) & 257 - rcp * ( ztmelts - rt0 ) ) 258 ! Mutliply by ice volume, and divide by number of layers to get heat content in J/m2 259 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 291 260 END DO 292 261 293 294 END DO !jb 262 END DO 295 263 296 CALL lbc_bdy_lnk( a_i(:,:,jl), 'T', 1., ib_bdy ) ! lateral boundary conditions264 CALL lbc_bdy_lnk( a_i(:,:,jl), 'T', 1., ib_bdy ) 297 265 CALL lbc_bdy_lnk( ht_i(:,:,jl), 'T', 1., ib_bdy ) 298 266 CALL lbc_bdy_lnk( ht_s(:,:,jl), 'T', 1., ib_bdy ) … … 303 271 CALL lbc_bdy_lnk( sm_i(:,:,jl), 'T', 1., ib_bdy ) 304 272 CALL lbc_bdy_lnk( oa_i(:,:,jl), 'T', 1., ib_bdy ) 305 CALL lbc_bdy_lnk( o_i(:,:,jl), 'T', 1., ib_bdy )306 273 CALL lbc_bdy_lnk( t_su(:,:,jl), 'T', 1., ib_bdy ) 307 274 DO jk = 1, nlay_s … … 335 302 !! 336 303 CHARACTER(len=1), INTENT(in) :: cd_type ! nature of velocity grid-points 337 INTEGER :: jb, jgrd ! dummy loop indices304 INTEGER :: jb, jgrd ! dummy loop indices 338 305 INTEGER :: ji, jj ! local scalar 339 INTEGER :: ib_bdy ! Loop index340 REAL(wp) :: zmsk1, zmsk2, zflag , zinda306 INTEGER :: ib_bdy ! Loop index 307 REAL(wp) :: zmsk1, zmsk2, zflag 341 308 !!------------------------------------------------------------------------------ 342 309 ! … … 353 320 CASE('frs') 354 321 355 322 IF( nn_ice_lim_dta(ib_bdy) == 0 ) CYCLE ! case ice boundaries = initial conditions 323 ! do not change ice velocity (it is only computed by rheology) 324 356 325 SELECT CASE ( cd_type ) 357 326 358 327 CASE ( 'U' ) 359 328 … … 370 339 371 340 ! u_ice = u_ice of the adjacent grid point except if this grid point is ice-free (then u_ice = u_oce) 372 u_ice (ji,jj) = u_ice(ji+1,jj) * 0.5 * ABS( zflag + 1._wp ) * zmsk1 + &373 & u_ice(ji-1,jj) * 0.5 * ABS( zflag - 1._wp ) * zmsk2 + &341 u_ice (ji,jj) = u_ice(ji+1,jj) * 0.5_wp * ABS( zflag + 1._wp ) * zmsk1 + & 342 & u_ice(ji-1,jj) * 0.5_wp * ABS( zflag - 1._wp ) * zmsk2 + & 374 343 & u_oce(ji ,jj) * ( 1._wp - MIN( 1._wp, zmsk1 + zmsk2 ) ) 375 344 ELSE ! everywhere else … … 378 347 ENDIF 379 348 ! mask ice velocities 380 zinda = 1.0 - MAX( 0.0_wp , SIGN ( 1.0_wp , - at_i(ji,jj) + 0.01) ) ! 0 if no ice381 u_ice(ji,jj) = zinda* u_ice(ji,jj)349 rswitch = MAX( 0.0_wp , SIGN ( 1.0_wp , at_i(ji,jj) - 0.01_wp ) ) ! 0 if no ice 350 u_ice(ji,jj) = rswitch * u_ice(ji,jj) 382 351 383 352 ENDDO 384 353 385 354 CALL lbc_bdy_lnk( u_ice(:,:), 'U', -1., ib_bdy ) 386 355 … … 399 368 400 369 ! u_ice = u_ice of the adjacent grid point except if this grid point is ice-free (then u_ice = u_oce) 401 v_ice (ji,jj) = v_ice(ji,jj+1) * 0.5 * ABS( zflag + 1._wp ) * zmsk1 + &402 & v_ice(ji,jj-1) * 0.5 * ABS( zflag - 1._wp ) * zmsk2 + &370 v_ice (ji,jj) = v_ice(ji,jj+1) * 0.5_wp * ABS( zflag + 1._wp ) * zmsk1 + & 371 & v_ice(ji,jj-1) * 0.5_wp * ABS( zflag - 1._wp ) * zmsk2 + & 403 372 & v_oce(ji,jj ) * ( 1._wp - MIN( 1._wp, zmsk1 + zmsk2 ) ) 404 373 ELSE ! everywhere else … … 407 376 ENDIF 408 377 ! mask ice velocities 409 zinda = 1.0 - MAX( 0.0_wp , SIGN ( 1.0_wp , - at_i(ji,jj) +0.01 ) ) ! 0 if no ice410 v_ice(ji,jj) = zinda* v_ice(ji,jj)378 rswitch = MAX( 0.0_wp , SIGN ( 1.0_wp , at_i(ji,jj) - 0.01 ) ) ! 0 if no ice 379 v_ice(ji,jj) = rswitch * v_ice(ji,jj) 411 380 412 381 ENDDO 413 382 414 383 CALL lbc_bdy_lnk( v_ice(:,:), 'V', -1., ib_bdy ) 415 384 416 385 END SELECT 417 386
Note: See TracChangeset
for help on using the changeset viewer.