Changeset 7585 for branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90
- Timestamp:
- 2017-01-20T16:06:55+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90
r7582 r7585 86 86 DO jj=2,jpj 87 87 DO ji=2,jpi 88 ztmp(ji,jj) = (ahm3(ji,jj)*umask(ji,jj ) + ahm3(ji-1,jj)*umask(ji-1,jj) &89 + ahm4(ji,jj)*vmask(ji,jj ) + ahm4(ji,jj-1)*vmask(ji,jj-1)) / &90 & (umask(ji,jj ) + umask(ji-1,jj) + vmask(ji,jj) + vmask(ji,jj-1))88 ztmp(ji,jj) = (ahm3(ji,jj)*umask(ji,jj,1) + ahm3(ji-1,jj)*umask(ji-1,jj,1) & 89 + ahm4(ji,jj)*vmask(ji,jj,1) + ahm4(ji,jj-1)*vmask(ji,jj-1,1)) / & 90 & (umask(ji,jj,1) + umask(ji-1,jj,1) + vmask(ji,jj,1) + vmask(ji,jj-1,1)) 91 91 ENDDO 92 92 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.