source: LMDZ6/trunk/libf/phydev/inifis_mod.f90 @ 5428

Last change on this file since 5428 was 5268, checked in by abarral, 2 months ago

.f90 <-> .F90 depending on cpp key use

File size: 684 bytes
RevLine 
[3435]1! $Id$
[2311]2MODULE inifis_mod
3
4CONTAINS
5
6  SUBROUTINE inifis(prad, pg, pr, pcpp)
7  ! Initialize some physical constants and settings
[3435]8  USE init_print_control_mod, ONLY: init_print_control
[2311]9  USE comcstphy, ONLY: rradius, & ! planet radius (m)
10                       rr, & ! recuced gas constant: R/molar mass of atm
11                       rg, & ! gravity
12                       rcpp  ! specific heat of the atmosphere
13  IMPLICIT NONE
14
15  REAL,INTENT(IN) :: prad, pg, pr, pcpp
16
17  ! Initialize flags lunout, prt_level, debug
18  CALL init_print_control
19
20  ! copy some fundamental parameters to physics
21  rradius=prad
22  rg=pg
23  rr=pr
24  rcpp=pcpp
25
26  END SUBROUTINE inifis
27 
28END MODULE inifis_mod
Note: See TracBrowser for help on using the repository browser.