Changeset 9778 for NEMO/releases/release-3.6/NEMOGCM/NEMO/LIM_SRC_3
- Timestamp:
- 2018-06-12T11:26:43+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/release-3.6/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90
r6963 r9778 279 279 DO jj = 2, jpjm1 !* update the stress WITHOUT a ice-ocean rotation angle 280 280 DO ji = fs_2, fs_jpim1 ! Vect. Opt. 281 zat_u = ( at_i(ji,jj) + at_i(ji+1,jj) ) * 0.5_wp ! ice area at u and V-points 282 zat_v = ( at_i(ji,jj) + at_i(ji,jj+1) ) * 0.5_wp 281 ! ice area at u and v-points 282 ! land values on u-, v- points along coastline set to adjacent t-point ocean value 283 zat_u = ( at_i(ji,jj) * tmask(ji,jj) + at_i(ji+1,jj ) * tmask(ji+1,jj ) ) / MAX(1.0_wp,tmask(ji,jj)+tmask(ji+1,jj )) 284 zat_v = ( at_i(ji,jj) * tmask(ji,jj) + at_i(ji ,jj+1) * tmask(ji ,jj+1) ) / MAX(1.0_wp,tmask(ji,jj)+tmask(ji ,jj+1)) 283 285 ! ! linearized quadratic drag formulation 284 286 zutau_ice = 0.5_wp * ( tmod_io(ji,jj) + tmod_io(ji+1,jj) ) * ( u_ice(ji,jj) - pu_oce(ji,jj) )
Note: See TracChangeset
for help on using the changeset viewer.