Changeset 5201
- Timestamp:
- 2015-04-07T17:40:07+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice_lim.F90
r5167 r5201 188 188 189 189 190 rswitch = 1.0 - MAX( 0.0_wp , SIGN ( 1.0_wp , - at_i(ii,ij) +0.01 ) ) ! 0 if no ice190 rswitch = MAX( 0.0_wp , SIGN ( 1.0_wp , at_i(ii,ij) - 0.01 ) ) ! 0 if no ice 191 191 192 192 ! concentration and thickness … … 205 205 ! Ice salinity, age, temperature 206 206 sm_i(ji,jj,jl) = rswitch * rn_ice_sal(ib_bdy) + ( 1.0 - rswitch ) * rn_simin 207 o _i(ji,jj,jl) = rswitch * rn_ice_age(ib_bdy) + ( 1.0 - rswitch)207 oa_i(ji,jj,jl) = rswitch * rn_ice_age(ib_bdy) * a_i(ji,jj,jl) 208 208 t_su(ji,jj,jl) = rswitch * rn_ice_tem(ib_bdy) + ( 1.0 - rswitch ) * rn_ice_tem(ib_bdy) 209 209 DO jk = 1, nlay_s … … 219 219 ! Ice salinity, age, temperature 220 220 sm_i(ji,jj,jl) = rswitch * sm_i(ii,ij,jl) + ( 1.0 - rswitch ) * rn_simin 221 o _i(ji,jj,jl) = rswitch * o_i(ii,ij,jl) + ( 1.0 - rswitch)221 oa_i(ji,jj,jl) = rswitch * oa_i(ii,ij,jl) 222 222 t_su(ji,jj,jl) = rswitch * t_su(ii,ij,jl) + ( 1.0 - rswitch ) * rt0 223 223 DO jk = 1, nlay_s … … 239 239 ! contents 240 240 smv_i(ji,jj,jl) = MIN( sm_i(ji,jj,jl) , sss_m(ji,jj) ) * v_i(ji,jj,jl) 241 oa_i(ji,jj,jl) = o_i(ji,jj,jl) * a_i(ji,jj,jl)242 241 DO jk = 1, nlay_s 243 242 ! Snow energy of melting … … 268 267 CALL lbc_bdy_lnk( sm_i(:,:,jl), 'T', 1., ib_bdy ) 269 268 CALL lbc_bdy_lnk( oa_i(:,:,jl), 'T', 1., ib_bdy ) 270 CALL lbc_bdy_lnk( o_i(:,:,jl), 'T', 1., ib_bdy )271 269 CALL lbc_bdy_lnk( t_su(:,:,jl), 'T', 1., ib_bdy ) 272 270 DO jk = 1, nlay_s
Note: See TracChangeset
for help on using the changeset viewer.