Changeset 1103 for trunk/NEMO/LIM_SRC_3/limistate.F90

Timestamp:

2008-06-10T15:11:32+02:00 (16 years ago)

Author:

rblod

Message:

Fixes in kil3, change results, see ticket #206

File:

• trunk/NEMO/LIM_SRC_3/limistate.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_3/limistate.F90

@@ -290 +290 @@
                      t_s(ji,jj,jk,jl) = zidto(ji,jj) * 270.00 + ( 1.0 - zidto(ji,jj) ) * rtt
                      ! Snow energy of melting
-                     e_s(ji,jk,jk,jl) = zidto(ji,jj) * rhosn * ( cpic * ( rtt - t_s(ji,jj,jk,jl) ) + lfus )
+                     e_s(ji,jj,jk,jl) = zidto(ji,jj) * rhosn * ( cpic * ( rtt - t_s(ji,jj,jk,jl) ) + lfus )
                      ! Change dimensions
                      e_s(ji,jj,jk,jl) = e_s(ji,jj,jk,jl) / unit_fac