Changeset 11938 for branches/UKMO/dev_r5518_obs_oper_update_sit/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
- Timestamp:
- 2019-11-20T15:45:47+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update_sit/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r11935 r11938 229 229 CALL lbc_lnk ( fr_iu , 'U', 1. ) 230 230 CALL lbc_lnk ( fr_iv , 'V', 1. ) 231 232 ! Snow and ice thickness233 ! vice, vsno is volume per unit area of grid cell = thickness234 CALL cice2nemo(vice,thick_i,'T', 1. )235 CALL cice2nemo(vsno,thick_s,'T', 1. )236 237 IF ( (ksbc == jp_flx) .OR. (ksbc == jp_purecpl) ) THEN238 DO jl = 1,ncat239 CALL cice2nemo(vsnon(:,:,jl,:),ht_s(:,:,jl),'T', 1.)240 CALL cice2nemo(vicen(:,:,jl,:),ht_i(:,:,jl),'T', 1.)241 ENDDO242 ENDIF243 244 ! T point to U point245 ! T point to V point246 247 ! Sea ice thickness248 thick_iu(:,:)=0.0249 thick_iv(:,:)=0.0250 DO jj=1,jpjm1251 DO ji=1,jpim1252 thick_iu(ji,jj)=0.5*(thick_i(ji,jj)+thick_i(ji+1,jj))*umask(ji,jj,1)253 thick_iv(ji,jj)=0.5*(thick_i(ji,jj)+thick_i(ji,jj+1))*vmask(ji,jj,1)254 ENDDO255 ENDDO256 257 CALL lbc_lnk ( thick_iu , 'U', 1. )258 CALL lbc_lnk ( thick_iv , 'V', 1. )259 260 ! Snow depth261 thick_su(:,:)=0.0262 thick_sv(:,:)=0.0263 DO jj=1,jpjm1264 DO ji=1,jpim1265 thick_su(ji,jj)=0.5*(thick_s(ji,jj)+thick_s(ji+1,jj))*umask(ji,jj,1)266 thick_sv(ji,jj)=0.5*(thick_s(ji,jj)+thick_s(ji,jj+1))*vmask(ji,jj,1)267 ENDDO268 ENDDO269 270 CALL lbc_lnk ( thick_su , 'U', 1. )271 CALL lbc_lnk ( thick_sv , 'V', 1. )272 231 273 232 ! ! embedded sea ice
Note: See TracChangeset
for help on using the changeset viewer.