source: LMDZ5/branches/IPSLCM6.0.8/libf/phymar/Mod_Atm_S0_RUN.f90 @ 5434

Last change on this file since 5434 was 2160, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand
File size: 1.2 KB
Line 
1      module Mod_Atm_S0_RUN
2
3!--------------------------------------------------------------------------+
4!                                                     Mon 17-Jun-2013  MAR |
5!     module Mod_Atm_S0_RUN contains local variables of PHY_Atm_S0_RUN     |
6!                                                                          |
7!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
8!           Last Modification by H. Gallee,           Mon 17-Jun-2013      |
9!                                                                          |
10!--------------------------------------------------------------------------+
11
12
13! Global  Variables
14! =================
15
16      use Mod_Real
17
18
19
20! Internal Variables
21! ==================
22
23      IMPLICIT NONE
24
25
26      real(kind=real8), SAVE,ALLOCATABLE, dimension(:)    ::  cszMIN !  MIN    cos(zenith.Dist), if Mountain MASK        RUN
27      real(kind=real8), SAVE,ALLOCATABLE, dimension(:)    ::  sin_sz !     sin(Sun zenith.Dist)                          RUN
28      real(kind=real8), SAVE,ALLOCATABLE, dimension(:)    ::  sin_ho !     sin(Sun Hour  Angle)                          RUN
29
30
31      end module Mod_Atm_S0_RUN
Note: See TracBrowser for help on using the repository browser.