Changeset 1171 for trunk/NEMO/LIM_SRC_3/limthd_dh.F90

Timestamp:

2008-09-10T17:30:28+02:00 (16 years ago)

Author:

ctlod

Message:

now input air temperature data for CORE & CLIO bulks must be in Kelvin, see ticket: #242

File:

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

trunk/NEMO/LIM_SRC_3/limthd_dh.F90

@@ -275 +275 @@
          qt_s_in(ji,jl) =  qt_s_in(ji,jl) + zqprec(ji) * zdh_s_pre(ji)
          zqt_s(ji)      =  zqt_s(ji) + zqprec(ji) * zdh_s_pre(ji)
-      END DO
-
-      ! Update total snow heat content
-      zqt_s(ji)         =  MAX ( zqt_s(ji) - zqfont_su(ji) , 0.0 ) 
-      IF( lk_mpp ) CALL mpp_max(zqt_s(ji), kcom = ncomm_ice ) 
+         zqt_s(ji)      =  MAX ( zqt_s(ji) - zqfont_su(ji) , 0.0 ) 
+      END DO
+
 
       ! Snow melt due to surface heat imbalance