New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10589 for NEMO/trunk/src/ICE/icevar.F90 – NEMO

Ignore:
Timestamp:
2019-01-28T13:01:54+01:00 (6 years 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.