Changeset 11480 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/BDY/bdydta.F90
- Timestamp:
- 2019-08-29T11:23:25+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/BDY/bdydta.F90
r10957 r11480 255 255 CALL fld_read( kt=kt, kn_fsbc=1, sd=bf(jstart:jend), & 256 256 & map=nbmap_ptr(jstart:jend), kt_offset=time_offset, jpk_bdy=nb_jpk_bdy, & 257 & fvl=ln_full_vel_array(jbdy) )257 & fvl=ln_full_vel_array(jbdy), Kmm=Kmm ) 258 258 ENDIF 259 259 ! If full velocities in boundary data then split into barotropic and baroclinic data … … 270 270 & + e3u(ii,ij,ik,Kmm) * umask(ii,ij,ik) * dta%u3d(ib,ik) 271 271 END DO 272 dta%u2d(ib) = dta%u2d(ib) * r1_hu _n(ii,ij)272 dta%u2d(ib) = dta%u2d(ib) * r1_hu(ii,ij,Kmm) 273 273 DO ik = 1, jpkm1 274 274 dta%u3d(ib,ik) = dta%u3d(ib,ik) - dta%u2d(ib) … … 284 284 & + e3v(ii,ij,ik,Kmm) * vmask(ii,ij,ik) * dta%v3d(ib,ik) 285 285 END DO 286 dta%v2d(ib) = dta%v2d(ib) * r1_hv _n(ii,ij)286 dta%v2d(ib) = dta%v2d(ib) * r1_hv(ii,ij,Kmm) 287 287 DO ik = 1, jpkm1 288 288 dta%v3d(ib,ik) = dta%v3d(ib,ik) - dta%v2d(ib)
Note: See TracChangeset
for help on using the changeset viewer.