Changeset 10589


Ignore:
Timestamp:
2019-01-28T13:01:54+01:00 (18 months ago)
Author:
clem
Message:

fix bug #2219

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/icevar.F90

    r10555 r10589  
    796796      INTEGER  ::   ji, jl, jl1, jl2             ! dummy loop indices 
    797797      INTEGER  ::   idim, icat   
    798       INTEGER, PARAMETER ::   ztrans = 0.25_wp 
     798      REAL(wp), PARAMETER ::   ztrans = 0.25_wp 
    799799      REAL(wp), DIMENSION(:,:), INTENT(in)    ::   zhti, zhts, zati    ! input ice/snow variables 
    800800      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.