Changeset 1171 for trunk/NEMO/LIM_SRC_3
- Timestamp:
- 2008-09-10T17:30:28+02:00 (16 years ago)
- Location:
- trunk/NEMO/LIM_SRC_3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limthd.F90
r1156 r1171 123 123 !------------------------------------------------------------------------------! 124 124 zeps = 1.0e-10 125 tatm_ice(:,:) = tatm_ice(:,:) + 273.15 ! convert C to K126 125 127 126 !-------------------- -
trunk/NEMO/LIM_SRC_3/limthd_dh.F90
r1156 r1171 275 275 qt_s_in(ji,jl) = qt_s_in(ji,jl) + zqprec(ji) * zdh_s_pre(ji) 276 276 zqt_s(ji) = zqt_s(ji) + zqprec(ji) * zdh_s_pre(ji) 277 END DO 278 279 ! Update total snow heat content 280 zqt_s(ji) = MAX ( zqt_s(ji) - zqfont_su(ji) , 0.0 ) 281 IF( lk_mpp ) CALL mpp_max(zqt_s(ji), kcom = ncomm_ice ) 277 zqt_s(ji) = MAX ( zqt_s(ji) - zqfont_su(ji) , 0.0 ) 278 END DO 279 282 280 283 281 ! Snow melt due to surface heat imbalance
Note: See TracChangeset
for help on using the changeset viewer.