Changeset 1938 for branches/DEV_R1821_Rivers/NEMO/OPA_SRC/DYN/dynspg_ts.F90
- Timestamp:
- 2010-06-16T16:34:29+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_R1821_Rivers/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r1779 r1938 379 379 DO jj = 2, jpjm1 ! leap-frog on ssh_e 380 380 DO ji = fs_2, fs_jpim1 ! vector opt. 381 ssha_e(ji,jj) = ( zsshb_e(ji,jj) - z2dt_e * ( zraur * emp(ji,jj) + zhdiv(ji,jj) ) ) * tmask(ji,jj,1)381 ssha_e(ji,jj) = ( zsshb_e(ji,jj) - z2dt_e * ( zraur * ( emp(ji,jj)-rnf(ji,jj) ) + zhdiv(ji,jj) ) ) * tmask(ji,jj,1) 382 382 END DO 383 383 END DO
Note: See TracChangeset
for help on using the changeset viewer.