source: LMDZ5/trunk/libf/phymar/PHY_MAR_DAT.f90 @ 4735

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 3.9 KB
RevLine 
[2089]1      subroutine PHY_MAR_DAT(sh___HOST                                 &
2     &                      ,sh_a_HOST                                 &
3     &                      ,dx___HOST                                 &
4     &                      ,dy___HOST                                 &
5     &                      ,slopxHOST                                 &
6     &                      ,slopyHOST                                 &
7     &                      ,slopeHOST                                 &
8     &                      ,MMaskHOST                                 &
9     &                      ,ixq1,mxqq                                 &
10     &                      ,jyq1,myqq                                 &
11     &                      ,m_azim)
12
13!------------------------------------------------------------------------------+
14!                                                         Sat 15-Jun-2013  MAR |
15!     subroutine PHY_MAR_DAT INPUTs PHY_MAR data and                           |
16!                            computes horizontal dependencies                  |
17!                                                                              |
18!     Applied to: ...                                                          |
19!                                                                              |
20!                                                                              |
21! # OPTIONS: #xy  ...                                                          |
22! # ^^^^^^^^ #..  ...                                                          |
23!                                                                              |
24!                                                                              |
25! # CAUTION: Highly simplified version of PHY_MAR_DAT for academic applications|
26! # ^^^^^^^^                                                                   |
27!                                                                              |
28!                                                                              |
29!     version 3.p.4.1 created by H. Gallee,               Fri 14-Jun-2013      |
30!           Last Modification by H. Gallee,               Sat 15-Jun-2013      |
31!                                                                              |
32!------------------------------------------------------------------------------+
33
34      use Mod_Real
35
36
37      IMPLICIT NONE
38
39
40      real            , dimension(ixq1:mxqq,jyq1:myqq)         ::  sh___HOST
41      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq)         ::  sh_a_HOST
42      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq)         ::  dx___HOST
43      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq)         ::  dy___HOST
44      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq)         ::  slopxHOST
45      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq)         ::  slopyHOST
46      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq)         ::  slopeHOST
47      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq,m_azim)  ::  MMaskHOST
48
49      integer                                                  ::  ixq1,mxqq
50      integer                                                  ::  jyq1,myqq
51      integer                                                  ::  m_azim
52
53
54
55
56! Local Variables
57! ===============
58
59      integer                                                  ::  i   ,j   ,k
60
61
62
63
64! Topographie
65! ===========
66
67        DO j= jyq1,myqq
68        DO i= ixq1,mxqq
69!         sh___HOST(i,j)   = 0.00
70          sh_a_HOST(i,j)   = 0.00
71
72
73
74
75! Discretisation Horizontale
76! ==========================
77
78          dx___HOST(i,j)   = 1.e3
79          dy___HOST(i,j)   = 1.e3
80
81
82
83
84! Pente
85! =====
86
87          slopxHOST(i,j)   = 0.00
88          slopyHOST(i,j)   = 0.00
89          slopeHOST(i,j)   = 0.00
90
91
92
93
94! Masque de Montagnes
95! ===================
96
97        DO k=    1,m_azim
98          MMaskHOST(i,j,k) = 0.00
99        ENDDO
100
101
102        ENDDO
103        ENDDO
104
105
106
107
108      end subroutine PHY_MAR_DAT
Note: See TracBrowser for help on using the repository browser.