Ignore:
Timestamp:
2013-02-13T07:31:26+01:00 (9 years ago)
Author:
gm
Message:

dev_MERGE_2012: #997 and #898: in LIM3, no use of qla_ice in coupled mode and its capping in forced mode

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90

    r3625 r3808  
    315315 
    316316      DO ji = kideb, kiut 
    317          ! if qla is positive (upwards), heat goes to the atmosphere, therefore 
    318          ! snow sublimates, if qla is negative (downwards), snow condensates 
     317         ! qla_ice is always >=0 (upwards), heat goes to the atmosphere, therefore snow sublimates 
     318#if defined key_coupled 
     319         zdh_s_sub(ji)    =  0._wp      ! coupled mode: sublimation already included in emp_ice (to do in limsbc_ice) 
     320#else 
     321         !                              ! forced  mode: snow thickness change due to sublimation 
    319322         zdh_s_sub(ji)    =  - parsub * qla_ice_1d(ji) / ( rhosn * lsub ) * rdt_ice 
     323#endif 
    320324         dh_s_tot (ji)    =  dh_s_tot(ji) + zdh_s_sub(ji) 
    321325         zdhcf            =  ht_s_b(ji) + zdh_s_sub(ji)  
Note: See TracChangeset for help on using the changeset viewer.