Changeset 5909 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
- Timestamp:
- 2015-11-23T12:28:51+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r5836 r5909 1097 1097 DO ji =1, jpi 1098 1098 zxr2 = r1_e1t(ji,jj) * r1_e1t(ji,jj) 1099 zyr2 = r1_e 1t(ji,jj) * r1_e1t(ji,jj)1099 zyr2 = r1_e2t(ji,jj) * r1_e2t(ji,jj) 1100 1100 zcu(ji,jj) = SQRT( grav * ht(ji,jj) * (zxr2 + zyr2) ) 1101 1101 END DO
Note: See TracChangeset
for help on using the changeset viewer.