module Mod_SISVAT_GSn !--------------------------------------------------------------------------+ ! module Mod_SISVAT_GSn Fri 2-Feb-2013 MAR | ! module Mod_SISVAT_GSn 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_GSn specific variables (and constants) ! ================================================ ! OUTPUT/Verification: Snow Layers Agregation: Properties ! #vp real(kind=real8), SAVE :: G_curr(18),Gcases(18) ! OUTPUT/Verification: Snow Properties ! #vs real(kind=real8), SAVE :: D__MAX = 4.00 end module Mod_SISVAT_GSn