- Timestamp:
- 2015-12-10T17:12:15+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r6004 r6030 106 106 USE oce, ONLY: zts => tsa 107 107 USE oce, ONLY: zuslp => ua , zvslp => va 108 USE oce, ONLY: zwslpi => ua_sv , zwslpj => va_sv109 108 USE oce, ONLY: zu => ub , zv => vb, zw => rke 110 109 ! 111 110 INTEGER, INTENT(in) :: kt ! ocean time-step index 112 111 ! 112 REAL(wp), DIMENSION(jpi,jpj,jpk ) :: zwslpi, zwslpj 113 113 ! REAL(wp), DIMENSION(jpi,jpj,jpk,jpts) :: zts 114 114 ! REAL(wp), DIMENSION(jpi,jpj,jpk ) :: zuslp, zvslp, zwslpi, zwslpj
Note: See TracChangeset
for help on using the changeset viewer.