Changeset 3080
- Timestamp:
- 2011-11-11T10:25:50+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_NOCL_prjhpg/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
r3079 r3080 1050 1050 !! 1051 1051 !! The local varialbes for the correction term 1052 INTEGER :: jke, jkw, jkn, jks, jk1, jis, jid, jjs, jjd 1053 REAL(wp) :: zze, zzw, zzn, zzs, rre, rrw, rrn, rrs 1054 REAL(wp) :: zuijk, zvijk, pe, pw, pwes, pwed, pn, ps, pnss, pnsd, deps 1055 REAL(wp) :: rhde, rhdw, rhdn, rhds,rhdt1, rhdt2 1052 INTEGER :: jk1, jis, jid, jjs, jjd 1053 REAL(wp) :: zuijk, zvijk, pwes, pwed, pnss, pnsd, deps 1054 REAL(wp) :: rhdt1 1056 1055 REAL(wp) :: dpdx1, dpdx2, dpdy1, dpdy2 1057 1056 INTEGER :: bhitwe, bhitns
Note: See TracChangeset
for help on using the changeset viewer.