Changeset 2944 for trunk/LMDZ.COMMON/libf/evolution/read_data_GCM.F90

Timestamp:

Apr 18, 2023, 10:41:16 AM (19 months ago)

Author:

llange

Message:

PEM
Introduce module 'constants_marspem': Constants that are used are now put in this module, and load in each subroutine.
LL

File:

• trunk/LMDZ.COMMON/libf/evolution/read_data_GCM.F90 (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/evolution/read_data_GCM.F90

@@ -11 +11 @@
       use comsoil_h, only: nsoilmx
       USE comsoil_h_PEM, ONLY: soil_pem
-
+      use constants_marspem_mod,only: m_co2,m_noco2
       IMPLICIT NONE
 
@@ -55 +55 @@
 
   INTEGER :: edges(4),corner(4)
-  INTEGER :: i,j,l,t                                                     ! loop variables
-  real,save :: m_co2, m_noco2, A , B, mmean                            ! Molar Mass of co2 and no co2, A;B intermediate variables to compute the mean molar mass of the layer
+  INTEGER :: i,j,l,t                                                   ! loop variables
+  real  ::  A , B, mmean                                           ! Molar Mass of co2 and no co2, A;B intermediate variables to compute the mean molar mass of the layer
 
   INTEGER :: islope                                                    ! loop for variables
@@ -80 +80 @@
   modname="read_data_gcm"
 
-      m_co2 = 44.01E-3  ! CO2 molecular mass (kg/mol)   
-      m_noco2 = 33.37E-3  ! Non condensible mol mass (kg/mol)   
       A =(1/m_co2 - 1/m_noco2)
       B=1/m_noco2