Changeset 10589 for NEMO/trunk/src/ICE/icevar.F90
- Timestamp:
- 2019-01-28T13:01:54+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icevar.F90
r10555 r10589 796 796 INTEGER :: ji, jl, jl1, jl2 ! dummy loop indices 797 797 INTEGER :: idim, icat 798 INTEGER, PARAMETER :: ztrans = 0.25_wp798 REAL(wp), PARAMETER :: ztrans = 0.25_wp 799 799 REAL(wp), DIMENSION(:,:), INTENT(in) :: zhti, zhts, zati ! input ice/snow variables 800 800 REAL(wp), DIMENSION(:,:), INTENT(inout) :: zh_i, zh_s, za_i ! output ice/snow variables
Note: See TracChangeset
for help on using the changeset viewer.