- Timestamp:
- 2010-10-13T10:48:48+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2106_LOCEAN2010/NEMO/NST_SRC/agrif_opa_update.F90
r1587 r2240 198 198 DO ji=i1,i2 199 199 tabres(ji,jj,jk) = e2u(ji,jj) * un(ji,jj,jk) 200 #if ! defined key_zco201 tabres(ji,jj,jk) = tabres(ji,jj,jk) * fse3u(ji,jj,jk)202 #endif203 200 END DO 204 201 END DO … … 211 208 un(ji,jj,jk) = tabres(ji,jj,jk) / (e2u(ji,jj)) 212 209 un(ji,jj,jk) = un(ji,jj,jk) * umask(ji,jj,jk) 213 #if ! defined key_zco214 210 un(ji,jj,jk) = un(ji,jj,jk) / fse3u(ji,jj,jk) 215 #endif216 211 END DO 217 212 END DO … … 240 235 DO ji=i1,i2 241 236 tabres(ji,jj,jk) = e1v(ji,jj) * vn(ji,jj,jk) 242 #if ! defined key_zco243 237 tabres(ji,jj,jk) = tabres(ji,jj,jk) * fse3v(ji,jj,jk) 244 #endif245 238 END DO 246 239 END DO … … 253 246 vn(ji,jj,jk) = tabres(ji,jj,jk) / (e1v(ji,jj)) 254 247 vn(ji,jj,jk) = vn(ji,jj,jk) * vmask(ji,jj,jk) 255 #if ! defined key_zco256 248 vn(ji,jj,jk) = vn(ji,jj,jk) / fse3v(ji,jj,jk) 257 #endif258 249 END DO 259 250 END DO
Note: See TracChangeset
for help on using the changeset viewer.