- Timestamp:
- 2014-04-06T17:28:25+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90
r4596 r4616 465 465 u_bkginc(ji,jj,jk) = u_bkginc(ji,jj,jk) + 0.2_wp * ( e1e2t(ji+1,jj) * hdiv(ji+1,jj) & 466 466 & - e1e2t(ji ,jj) * hdiv(ji ,jj) ) & 467 & /e1u(ji,jj) * umask(ji,jj,jk)467 & * r1_e1u(ji,jj) * umask(ji,jj,jk) 468 468 v_bkginc(ji,jj,jk) = v_bkginc(ji,jj,jk) + 0.2_wp * ( e1e2t(ji,jj+1) * hdiv(ji,jj+1) & 469 469 & - e1e2t(ji,jj ) * hdiv(ji,jj ) ) & 470 & /e2v(ji,jj) * vmask(ji,jj,jk)470 & * r1_e2v(ji,jj) * vmask(ji,jj,jk) 471 471 END DO 472 472 END DO
Note: See TracChangeset
for help on using the changeset viewer.