|
Last change
on this file since 3020 was
2277,
checked in by mlefevre, 5 years ago
|
|
MESOSCALE. Updates of physics interface for Venus, prescribed and void physics.
|
|
File size:
919 bytes
|
| Line | |
|---|
| 1 | MODULE iniphysiq_mod |
|---|
| 2 | |
|---|
| 3 | CONTAINS |
|---|
| 4 | |
|---|
| 5 | subroutine iniphysiq(ngrid,nlayer,nq,piphysiq,& |
|---|
| 6 | punjours, pdayref, & |
|---|
| 7 | prad,pg,pr,pcpp,iflag_phys) |
|---|
| 8 | |
|---|
| 9 | implicit none |
|---|
| 10 | |
|---|
| 11 | real,intent(in) :: prad ! radius of the planet (m) |
|---|
| 12 | real,intent(in) :: pg ! gravitational acceleration (m/s2) |
|---|
| 13 | real,intent(in) :: pr ! ! reduced gas constant R/mu |
|---|
| 14 | real,intent(in) :: pcpp ! specific heat Cp |
|---|
| 15 | real,intent(in) :: punjours ! length (in s) of a standard day [daysec] |
|---|
| 16 | integer,intent(in) :: pdayref ! reference day of for the simulation [day_ini] |
|---|
| 17 | integer,intent(in) :: iflag_phys ! type of physics to be called |
|---|
| 18 | |
|---|
| 19 | integer,intent(in) :: ngrid ! number of physics columns for this MPI process |
|---|
| 20 | integer,intent(in) :: nlayer ! number of atmospheric layers |
|---|
| 21 | integer,intent(in) :: nq ! number of tracers |
|---|
| 22 | real,intent(in) :: piphysiq ! call physics every piphysiq dynamical timesteps |
|---|
| 23 | |
|---|
| 24 | end subroutine iniphysiq |
|---|
| 25 | |
|---|
| 26 | END MODULE iniphysiq_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
