module Mod_Atm_S0_RUN !--------------------------------------------------------------------------+ ! Mon 17-Jun-2013 MAR | ! module Mod_Atm_S0_RUN contains local variables of PHY_Atm_S0_RUN | ! | ! version 3.p.4.1 created by H. Gallee, Mon 17-Jun-2013 | ! Last Modification by H. Gallee, Mon 17-Jun-2013 | ! | !--------------------------------------------------------------------------+ ! Global Variables ! ================= use Mod_Real ! Internal Variables ! ================== IMPLICIT NONE real(kind=real8), SAVE,ALLOCATABLE, dimension(:) :: cszMIN ! MIN cos(zenith.Dist), if Mountain MASK RUN real(kind=real8), SAVE,ALLOCATABLE, dimension(:) :: sin_sz ! sin(Sun zenith.Dist) RUN real(kind=real8), SAVE,ALLOCATABLE, dimension(:) :: sin_ho ! sin(Sun Hour Angle) RUN end module Mod_Atm_S0_RUN