Changeset 3955
- Timestamp:
- 2013-07-04T15:42:04+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/SBC/sbctide.F90
r3953 r3955 46 46 !!---------------------------------------------------------------------- 47 47 INTEGER, INTENT( in ) :: kt ! ocean time-step 48 INTEGER :: jk ! dummy loop index 48 49 !!---------------------------------------------------------------------- 49 50 … … 86 87 !!---------------------------------------------------------------------- 87 88 INTEGER :: ji, jj, jk ! dummy loop indices 88 REAL(wp) :: zcons, ztmp1, ztmp2, zlat, zlon, ztmp, zamp, z sc! local scalar89 REAL(wp) :: zcons, ztmp1, ztmp2, zlat, zlon, ztmp, zamp, zcs ! local scalar 89 90 !!---------------------------------------------------------------------- 90 91
Note: See TracChangeset
for help on using the changeset viewer.