- Timestamp:
- 2020-02-18T10:44:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/OCE/BDY/bdyice.F90
r11081 r12394 172 172 a_ip(ji,jj, jl) = 0._wp ! pond concentration 173 173 v_ip(ji,jj, jl) = 0._wp ! pond volume 174 lh_ip(ji,jj, jl) = 0._wp ! pond lid thickness 174 175 t_su(ji,jj, jl) = rn_ice_tem(jbdy) ! temperature surface 175 176 t_s (ji,jj,:,jl) = rn_ice_tem(jbdy) ! temperature snw … … 183 184 a_ip(ji,jj, jl) = a_ip(ib,jb, jl) ! pond concentration 184 185 v_ip(ji,jj, jl) = v_ip(ib,jb, jl) ! pond volume 186 lh_ip(ji,jj, jl) = lh_ip(ib,jb, jl) ! pond lid thickness 185 187 t_su(ji,jj, jl) = t_su(ib,jb, jl) ! temperature surface 186 188 t_s (ji,jj,:,jl) = t_s (ib,jb,:,jl) ! temperature snw … … 222 224 a_ip(ji,jj, jl) = 0._wp 223 225 v_ip(ji,jj, jl) = 0._wp 226 lh_ip(ji,jj, jl) = 0._wp 224 227 t_su(ji,jj, jl) = rt0 225 228 t_s (ji,jj,:,jl) = rt0 … … 253 256 CALL lbc_bdy_lnk( 'bdyice', a_ip(:,:,:) , 'T', 1., jbdy ) 254 257 CALL lbc_bdy_lnk( 'bdyice', v_ip(:,:,:) , 'T', 1., jbdy ) 258 CALL lbc_bdy_lnk( 'bdyice', lh_ip(:,:,:) , 'T', 1., jbdy ) 255 259 CALL lbc_bdy_lnk( 'bdyice', s_i (:,:,:) , 'T', 1., jbdy ) 256 260 CALL lbc_bdy_lnk( 'bdyice', t_su(:,:,:) , 'T', 1., jbdy )
Note: See TracChangeset
for help on using the changeset viewer.