Changeset 1422 for trunk/LMDZ.COMMON/libf/dyn3d_common/cpdet_mod.F90

Timestamp:

Apr 30, 2015, 12:33:45 PM (10 years ago)

Author:

milmd

Message:

In GENERIC, MARS and COMMON models replace some include files by modules (usefull for decoupling physics with dynamics).

File:

• trunk/LMDZ.COMMON/libf/dyn3d_common/cpdet_mod.F90 (modified) (8 diffs)

trunk/LMDZ.COMMON/libf/dyn3d_common/cpdet_mod.F90

@@ -22 +22 @@
       
       USE control_mod, ONLY: planet_type 
+      USE comconst_mod, ONLY: nu_venus,t0_venus
       IMPLICIT none
 !======================================================================
 ! Initialization of nu_venus and t0_venus
 !======================================================================
-
-! for cpp, nu_venus and t0_venus:
-#include "comconst.h"
 
       if (planet_type.eq."venus") then
@@ -47 +45 @@
 
       USE control_mod, ONLY: planet_type 
+      USE comconst_mod, ONLY: cpp,t0_venus,nu_venus
       IMPLICIT none
 
 ! for cpp, nu_venus and t0_venus:
-#include "comconst.h"
 
       real,intent(in) :: t
@@ -78 +76 @@
 
       USE control_mod, ONLY: planet_type 
+      USE comconst_mod, ONLY: cpp,t0_venus,nu_venus
+
       IMPLICIT NONE
-      
-! for cpp, nu_venus and t0_venus:
-#include "comconst.h"
 
       integer,intent(in) :: npoints
@@ -112 +109 @@
 
       USE control_mod, ONLY: planet_type 
+      USE comconst_mod, ONLY: cpp,nu_venus,t0_venus
+
       IMPLICIT NONE
-
-! for cpp, nu_venus and t0_venus:
-#include "comconst.h"
 
       integer,intent(in) :: npoints
@@ -143 +139 @@
       USE control_mod, only : planet_type
       USE parallel_lmdz, only : OMP_CHUNK
-      IMPLICIT none
-
-! for cpp, nu_venus and t0_venus:
-#include "comconst.h"
+      USE comconst_mod, ONLY: cpp,nu_venus,t0_venus
+
+      IMPLICIT none
 
       integer,intent(in) :: nlon,nlev
@@ -182 +177 @@
       USE parallel_lmdz, only : jj_begin,jj_end,OMP_CHUNK
       USE control_mod, only : planet_type
+      USE comconst_mod, ONLY: cpp,nu_venus,t0_venus
+
       IMPLICIT none
 ! for iip1, jjp1 and llm
 #include "dimensions.h"
 #include "paramet.h"
-! for cpp, nu_venus and t0_venus:
-#include "comconst.h"
 
       real,intent(in) :: yt(iip1,jjp1,llm)
@@ -225 +220 @@
       USE control_mod, only : planet_type
       USE parallel_lmdz, only : OMP_CHUNK
-      IMPLICIT none
-! for cpp, nu_venus and t0_venus:
-#include "comconst.h"
+      USE comconst_mod, ONLY: cpp,nu_venus,t0_venus
+
+      IMPLICIT none
 
       integer,intent(in) :: nlon,nlev
@@ -263 +258 @@
       USE parallel_lmdz, only : jj_begin,jj_end,OMP_CHUNK
       USE control_mod, only : planet_type
+      USE comconst_mod, ONLY: cpp,nu_venus,t0_venus
+
       IMPLICIT none
 ! for iip1, jjp1 and llm
 #include "dimensions.h"
 #include "paramet.h"
-! for cpp, nu_venus and t0_venus:
-#include "comconst.h"
 
       real,intent(out) :: yt(iip1,jjp1,llm)