Changeset 2233 for LMDZ5/trunk/libf

Timestamp:

Mar 13, 2015, 10:01:19 AM (10 years ago)

Author:

Ehouarn Millour

Message:

Fix missing declarations for iniphysiq in "phydev" and "phymar".
EM

Location:

LMDZ5/trunk/libf

Files:

• phydev/iniphysiq.F90 (modified) (2 diffs)
• phymar/iniphysiq.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phydev/iniphysiq.F90

@@ -18 +18 @@
                         rlond, & ! longitudes
                         rlatd ! latitudes
+  USE comcstphy, ONLY: rradius, & ! planet radius (m)
+                       rr, & ! recuced gas constant: R/molar mass of atm
+                       rg, & ! gravity
+                       rcpp  ! specific heat of the atmosphere
   USE phyaqua_mod, ONLY: iniaqua
   IMPLICIT NONE
@@ -42 +46 @@
   REAL, INTENT (IN) :: cu((iim+1)*(jjm+1)) ! cu coeff. (u_covariant = cu * u)
   REAL, INTENT (IN) :: cv((iim+1)*jjm) ! cv coeff. (v_covariant = cv * v)
+  INTEGER, INTENT (IN) :: pdayref ! reference day of for the simulation
   REAL,INTENT(IN) :: ptimestep !physics time step (s)
   INTEGER,INTENT(IN) :: iflag_phys ! type of physics to be called

LMDZ5/trunk/libf/phymar/iniphysiq.F90

@@ -18 +18 @@
                         rlond, & ! longitudes
                         rlatd ! latitudes
+  USE comcstphy, ONLY: rradius, & ! planet radius (m)
+                       rr, & ! recuced gas constant: R/molar mass of atm
+                       rg, & ! gravity
+                       rcpp  ! specific heat of the atmosphere
   USE phyaqua_mod, ONLY: iniaqua
   IMPLICIT NONE
@@ -42 +46 @@
   REAL, INTENT (IN) :: cu((iim+1)*(jjm+1)) ! cu coeff. (u_covariant = cu * u)
   REAL, INTENT (IN) :: cv((iim+1)*jjm) ! cv coeff. (v_covariant = cv * v)
+  INTEGER, INTENT (IN) :: pdayref ! reference day of for the simulation
   REAL,INTENT(IN) :: ptimestep !physics time step (s)
   INTEGER,INTENT(IN) :: iflag_phys ! type of physics to be called