module Mod_SISVAT_qSn !--------------------------------------------------------------------------+ ! module Mod_SISVAT_qSn Fri 2-Feb-2013 MAR | ! module Mod_SISVAT_qSn contains specific variables (and constants) | ! used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme | ! | !--------------------------------------------------------------------------+ ! General Variables ! ================= use Mod_Real use Mod_SISVAT_dim use Mod_SISVAT_dat IMPLICIT NONE ! SISVAT_qSn specific variables (and constants) ! ================================================ ! #e5 logical :: emopen = .false. ! IO Switch ! #e5 integer, SAVE :: no_err = 0 ! ! #e5 real(kind=real8), SAVE :: timeer ! ! OUTPUT/Verification: Slush Parameterization ! #vu logical :: su_opn = .false. ! IO Switch end module Mod_SISVAT_qSn