Changeset 2266 for branches/nemo_v3_3_beta
- Timestamp:
- 2010-10-14T15:42:05+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90
r2236 r2266 163 163 ! ! Sea surface elevation time stepping 164 164 ! In forward Euler time stepping case, the same formulation as in the leap-frog case can be used 165 ! because emp_b field is initialized with the vlaues of emp field. Hence, 0.5 * ( emp + emp_b -2*rnf) = emp165 ! because emp_b field is initialized with the vlaues of emp field. Hence, 0.5 * ( emp + emp_b ) = emp 166 166 z1_rau0 = 0.5 / rau0 167 ssha(:,:) = ( sshb(:,:) - z2dt * ( z1_rau0 * ( emp_b(:,:) + emp(:,:) - 2 * rnf(:,:)) + zhdiv(:,:) ) ) &167 ssha(:,:) = ( sshb(:,:) - z2dt * ( z1_rau0 * ( emp_b(:,:) + emp(:,:) ) + zhdiv(:,:) ) ) & 168 168 & * tmask(:,:,1) 169 169
Note: See TracChangeset
for help on using the changeset viewer.