Changeset 1045 for trunk/NEMO/LIM_SRC_2
- Timestamp:
- 2008-06-02T12:15:45+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_2/limistate_2.F90
r1037 r1045 64 64 !!-------------------------------------------------------------------- 65 65 INTEGER :: ji, jj, jk ! dummy loop indices 66 REAL(wp) :: zidto, zs0, ztf, zbin ! temporary scalar 67 REAL(wp), DIMENSION(jpi,jpj) :: ztn ! workspace 66 REAL(wp) :: zidto ! temporary scalar 68 67 !-------------------------------------------------------------------- 69 68
Note: See TracChangeset
for help on using the changeset viewer.