Changeset 3766 for branches/2012
- Timestamp:
- 2013-01-24T12:03:21+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r3692 r3766 308 308 ! multiplied by z2dt 309 309 #if defined key_obc 310 IF(lk_obc) THEN 310 311 ! caution : grad D = 0 along open boundaries 311 312 ! Remark: The filtering force could be reduced here in the FRS zone 312 313 ! by multiplying spgu/spgv by (1-alpha) ?? 313 spgu(ji,jj) = z2dt * ztdgu * obcumask(ji,jj) 314 spgv(ji,jj) = z2dt * ztdgv * obcvmask(ji,jj) 314 spgu(ji,jj) = z2dt * ztdgu * obcumask(ji,jj) 315 spgv(ji,jj) = z2dt * ztdgv * obcvmask(ji,jj) 316 ELSE 317 spgu(ji,jj) = z2dt * ztdgu 318 spgv(ji,jj) = z2dt * ztdgv 319 ENDIF 315 320 #elif defined key_bdy 321 IF(lk_bdy) THEN 316 322 ! caution : grad D = 0 along open boundaries 317 spgu(ji,jj) = z2dt * ztdgu * bdyumask(ji,jj) 318 spgv(ji,jj) = z2dt * ztdgv * bdyvmask(ji,jj) 323 spgu(ji,jj) = z2dt * ztdgu * bdyumask(ji,jj) 324 spgv(ji,jj) = z2dt * ztdgv * bdyvmask(ji,jj) 325 ELSE 326 spgu(ji,jj) = z2dt * ztdgu 327 spgv(ji,jj) = z2dt * ztdgv 328 ENDIF 319 329 #else 320 330 spgu(ji,jj) = z2dt * ztdgu
Note: See TracChangeset
for help on using the changeset viewer.