source: trunk/WRF.COMMON/INTERFACES/dynphy_wrf_void_lmd/update_outputs_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: 3.1 KB
Line 
1MODULE update_outputs_physiq_mod
2
3CONTAINS
4
5!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
6!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
7SUBROUTINE update_outputs_physiq_surf( &
8            ims,ime,jms,jme,&
9            ips,ipe,jps,jpe,&
10            MARS_MODE,&
11            M_TSURF,M_CO2ICE,&
12            M_H2OICE)
13
14   INTEGER, INTENT(IN) :: ims,ime,jms,jme
15   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe
16   INTEGER, INTENT(IN) :: MARS_MODE
17   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT)  :: &
18     M_TSURF,M_CO2ICE,M_H2OICE
19
20END SUBROUTINE update_outputs_physiq_surf
21
22!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
23!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
24SUBROUTINE update_outputs_physiq_soil( &
25            ims,ime,jms,jme,&
26            ips,ipe,jps,jpe,&
27            nsoil,&
28            M_TSOIL)
29
30   INTEGER, INTENT(IN) :: ims,ime,jms,jme
31   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe,nsoil
32   REAL, DIMENSION( ims:ime, nsoil, jms:jme ), INTENT(INOUT)  :: &
33     M_TSOIL
34
35END SUBROUTINE update_outputs_physiq_soil
36
37!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
38!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
39SUBROUTINE update_outputs_physiq_rad( &
40            ims,ime,jms,jme,&
41            ips,ipe,jps,jpe,&
42            M_FLUXRAD)
43
44   INTEGER, INTENT(IN) :: ims,ime,jms,jme
45   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe
46   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT)  :: M_FLUXRAD
47
48END SUBROUTINE update_outputs_physiq_rad
49
50!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
51!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
52SUBROUTINE update_outputs_physiq_turb( &
53            ims,ime,jms,jme,kms,kme,&
54            ips,ipe,jps,jpe,kps,kpe,&
55            M_Q2,M_WSTAR,&
56            HFMAX,ZMAX,USTM,HFX)
57
58   INTEGER, INTENT(IN) :: ims,ime,jms,jme,kms,kme
59   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe,kps,kpe
60   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT)  :: &
61     M_WSTAR,HFMAX,ZMAX,USTM,HFX
62   REAL, DIMENSION( ims:ime, kms:kme+1, jms:jme ), INTENT(INOUT) :: M_Q2
63
64END SUBROUTINE update_outputs_physiq_turb
65
66!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
67!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
68SUBROUTINE update_outputs_physiq_diag( &
69            ims,ime,jms,jme,kms,kme,&
70            ips,ipe,jps,jpe,kps,kpe,&
71            SWDOWNZ,TAU_DUST,QSURFDUST,&
72            MTOT,ICETOT,TAU_ICE,&
73            HR_SW,HR_LW,HR_DYN,DT,DTRAD,&
74            RDUST,VMR_ICE,RICE,&
75            CLOUDFRAC,TOTCLOUDFRAC,&
76            RAIN,SNOW,REEVAP,SURFRAIN,ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
77            FLUXSURF_LW,FLXGRD,LSCEZ,H2OICE_REFF,LATENT_HF)
78
79   INTEGER, INTENT(IN) :: ims,ime,jms,jme,kms,kme
80   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe,kps,kpe
81   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: &
82     SWDOWNZ,TAU_DUST,QSURFDUST,&
83     MTOT,ICETOT,TAU_ICE,&
84     TOTCLOUDFRAC,ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
85     FLUXSURF_LW,FLXGRD,LATENT_HF,REEVAP,SURFRAIN
86   REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(INOUT ) :: &
87     HR_SW,HR_LW,RDUST,VMR_ICE,RICE,CLOUDFRAC,HR_DYN,DT,DTRAD,RAIN,SNOW,&
88     LSCEZ,H2OICE_REFF
89   INTEGER :: i,j,subs
90
91END SUBROUTINE update_outputs_physiq_diag
92
93END MODULE update_outputs_physiq_mod
94
95
96
Note: See TracBrowser for help on using the repository browser.