source: trunk/WRF.COMMON/INTERFACES/dynphy_wrf_void_lmd/update_inputs_physiq_mod.F

Last change on this file was 2277, checked in by mlefevre, 5 years ago

MESOSCALE. Updates of physics interface for Venus, prescribed and void physics.
File size: 4.7 KB
Line 
1MODULE update_inputs_physiq_mod
2
3CONTAINS
4
5!SUBROUTINE update_inputs_physiq_time
6!SUBROUTINE update_inputs_physiq_tracers
7!SUBROUTINE update_inputs_physiq_constants
8!SUBROUTINE update_inputs_physiq_geom
9!SUBROUTINE update_inputs_physiq_surf
10!SUBROUTINE update_inputs_physiq_soil
11!SUBROUTINE update_inputs_physiq_turb
12!SUBROUTINE update_inputs_physiq_rad
13!SUBROUTINE update_inputs_physiq_slope
14
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
17SUBROUTINE update_inputs_physiq_time(&
18            JULYR,JULDAY,GMT,&
19            elaps,&
20            lct_input,lon_input,ls_input,&
21            MY)
22
23  INTEGER, INTENT(IN) :: JULDAY, JULYR
24  REAL, INTENT(IN) :: GMT,elaps,lon_input,ls_input,lct_input
25  REAL,INTENT(OUT) :: MY
26
27END SUBROUTINE update_inputs_physiq_time
28
29!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
30!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
31SUBROUTINE update_inputs_physiq_tracers(nq,MARS_MODE)
32
33  INTEGER, INTENT(IN) :: nq,MARS_MODE
34
35END SUBROUTINE update_inputs_physiq_tracers
36
37!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
38!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
39SUBROUTINE update_inputs_physiq_constants
40
41END SUBROUTINE update_inputs_physiq_constants
42
43!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
44!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
45SUBROUTINE update_inputs_physiq_geom( &
46            ims,ime,jms,jme,&
47            ips,ipe,jps,jpe,&
48            JULYR,ngrid,nlayer,&
49            DX,DY,MSFT,&
50            lat_input, lon_input,&
51            XLAT,XLONG)
52
53   INTEGER, INTENT(IN) :: ims,ime,jms,jme
54   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe,JULYR,ngrid,nlayer
55   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN)  :: &
56     MSFT,XLAT,XLONG
57   REAL, INTENT(IN) :: dx,dy
58   REAL, INTENT(IN) :: lat_input, lon_input
59
60END SUBROUTINE update_inputs_physiq_geom
61
62!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
63!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
64SUBROUTINE update_inputs_physiq_surf( &
65            ims,ime,jms,jme,&
66            ips,ipe,jps,jpe,&
67            JULYR,MARS_MODE,&
68            M_ALBEDO,CST_AL,&
69            M_TSURF,M_EMISS,M_CO2ICE,&
70            M_GW,M_Z0,CST_Z0,&
71            M_H2OICE,&
72            phisfi_val)
73
74   INTEGER, INTENT(IN) :: ims,ime,jms,jme
75   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe,JULYR,MARS_MODE
76   INTEGER :: i,j,subs,nlast
77   REAL, INTENT(IN  ) :: CST_AL, phisfi_val, CST_Z0
78   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN)  :: &
79     M_ALBEDO,M_TSURF,M_EMISS,M_CO2ICE,M_H2OICE,M_Z0
80   REAL, DIMENSION( ims:ime, 5, jms:jme ), INTENT(IN   )  :: M_GW 
81
82END SUBROUTINE update_inputs_physiq_surf
83
84!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
85!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
86SUBROUTINE update_inputs_physiq_soil( &
87            ims,ime,jms,jme,&
88            ips,ipe,jps,jpe,&
89            JULYR,nsoil,&
90            M_TI,CST_TI,&
91            M_ISOIL,M_DSOIL,&
92            M_TSOIL,M_TSURF)
93
94   INTEGER, INTENT(IN) :: ims,ime,jms,jme
95   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe,JULYR,nsoil
96   INTEGER :: i,j,subs,nlast,k
97   REAL, INTENT(IN  ) :: CST_TI
98   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN)  :: &
99     M_TI, M_TSURF
100   REAL, DIMENSION( ims:ime, nsoil, jms:jme ), INTENT(IN)  :: &
101     M_TSOIL, M_ISOIL, M_DSOIL
102
103END SUBROUTINE update_inputs_physiq_soil
104
105!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
106!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
107SUBROUTINE update_inputs_physiq_turb( &
108            ims,ime,jms,jme,kms,kme,&
109            ips,ipe,jps,jpe,&
110            RESTART,isles,&
111            M_Q2,M_WSTAR)
112
113   INTEGER, INTENT(IN) :: ims,ime,jms,jme,kms,kme
114   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe
115   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN)  :: M_WSTAR
116   REAL, DIMENSION( ims:ime, kms:kme+1, jms:jme ), INTENT(IN) :: M_Q2
117   LOGICAL, INTENT(IN ) :: RESTART,isles
118
119END SUBROUTINE update_inputs_physiq_turb
120!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
121!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
122SUBROUTINE update_inputs_physiq_rad( &
123            ims,ime,jms,jme,&
124            ips,ipe,jps,jpe,&
125            RESTART,&
126            M_FLUXRAD)
127
128   INTEGER, INTENT(IN) :: ims,ime,jms,jme
129   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe
130   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN)  :: M_FLUXRAD
131   LOGICAL, INTENT(IN ) :: RESTART
132
133END SUBROUTINE update_inputs_physiq_rad
134
135!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
136!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
137SUBROUTINE update_inputs_physiq_slope( &
138            ims,ime,jms,jme,&
139            ips,ipe,jps,jpe,&
140            JULYR,&
141            SLPX,SLPY)
142
143   INTEGER, INTENT(IN) :: ims,ime,jms,jme
144   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe,JULYR
145   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN)  :: SLPX,SLPY
146
147END SUBROUTINE update_inputs_physiq_slope
148
149END MODULE update_inputs_physiq_mod
Note: See TracBrowser for help on using the repository browser.