- Timestamp:
- 2015-10-31T08:40:45+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/BDY/bdyvol.F90
r5836 r5845 32 32 PUBLIC bdy_vol ! routine called by dynspg_flt.h90 33 33 34 !! * Substitutions35 # include "domzgr_substitute.h90"36 34 !!---------------------------------------------------------------------- 37 35 !! NEMO/OPA 3.6 , NEMO Consortium (2014) … … 111 109 ii = idx%nbi(jb,jgrd) 112 110 ij = idx%nbj(jb,jgrd) 113 zubtpecor = zubtpecor + idx%flagu(jb,jgrd) * ua(ii,ij, jk) * e2u(ii,ij) * fse3u(ii,ij,jk)111 zubtpecor = zubtpecor + idx%flagu(jb,jgrd) * ua(ii,ij, jk) * e2u(ii,ij) * e3u_n(ii,ij,jk) 114 112 END DO 115 113 END DO … … 119 117 ii = idx%nbi(jb,jgrd) 120 118 ij = idx%nbj(jb,jgrd) 121 zubtpecor = zubtpecor + idx%flagv(jb,jgrd) * va(ii,ij, jk) * e1v(ii,ij) * fse3v(ii,ij,jk)119 zubtpecor = zubtpecor + idx%flagv(jb,jgrd) * va(ii,ij, jk) * e1v(ii,ij) * e3v_n(ii,ij,jk) 122 120 END DO 123 121 END DO … … 144 142 ij = idx%nbj(jb,jgrd) 145 143 ua(ii,ij,jk) = ua(ii,ij,jk) - idx%flagu(jb,jgrd) * zubtpecor * umask(ii,ij,jk) 146 ztranst = ztranst + idx%flagu(jb,jgrd) * ua(ii,ij,jk) * e2u(ii,ij) * fse3u(ii,ij,jk)144 ztranst = ztranst + idx%flagu(jb,jgrd) * ua(ii,ij,jk) * e2u(ii,ij) * e3u_n(ii,ij,jk) 147 145 END DO 148 146 END DO … … 153 151 ij = idx%nbj(jb,jgrd) 154 152 va(ii,ij,jk) = va(ii,ij,jk) -idx%flagv(jb,jgrd) * zubtpecor * vmask(ii,ij,jk) 155 ztranst = ztranst + idx%flagv(jb,jgrd) * va(ii,ij,jk) * e1v(ii,ij) * fse3v(ii,ij,jk)153 ztranst = ztranst + idx%flagv(jb,jgrd) * va(ii,ij,jk) * e1v(ii,ij) * e3v_n(ii,ij,jk) 156 154 END DO 157 155 END DO
Note: See TracChangeset
for help on using the changeset viewer.