|
Last change
on this file since 3094 was
2277,
checked in by mlefevre, 5 years ago
|
|
MESOSCALE. Updates of physics interface for Venus, prescribed and void physics.
|
|
File size:
838 bytes
|
| Line | |
|---|
| 1 | ! |
|---|
| 2 | ! $Id: $ |
|---|
| 3 | ! |
|---|
| 4 | MODULE callphysiq_mod |
|---|
| 5 | |
|---|
| 6 | IMPLICIT NONE |
|---|
| 7 | |
|---|
| 8 | !! ---------------------------------------------------------- |
|---|
| 9 | !! ---- CALL TO NO PHYSICS |
|---|
| 10 | !! ---------------------------------------------------------- |
|---|
| 11 | |
|---|
| 12 | CONTAINS |
|---|
| 13 | |
|---|
| 14 | SUBROUTINE call_physiq(planet_type, klon,llm,nqtot, & |
|---|
| 15 | debut_split,lafin_split) |
|---|
| 16 | |
|---|
| 17 | USE variables_mod |
|---|
| 18 | |
|---|
| 19 | IMPLICIT NONE |
|---|
| 20 | |
|---|
| 21 | character(len=10),INTENT(IN) :: planet_type ! planet type ('earth','mars',...) |
|---|
| 22 | INTEGER,INTENT(IN) :: klon ! (local) number of atmospheric columns |
|---|
| 23 | INTEGER,INTENT(IN) :: llm ! number of atmospheric layers |
|---|
| 24 | INTEGER,INTENT(IN) :: nqtot ! number of tracers |
|---|
| 25 | LOGICAL,INTENT(IN) :: debut_split ! .true. if very first call to physics |
|---|
| 26 | LOGICAL,INTENT(IN) :: lafin_split ! .true. if last call to physics |
|---|
| 27 | |
|---|
| 28 | END SUBROUTINE call_physiq |
|---|
| 29 | |
|---|
| 30 | END MODULE callphysiq_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
