Changeset 2601 for LMDZ5/trunk/libf/dyn3d_common

Timestamp:

Jul 24, 2016, 11:51:55 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn temps.h into module temps_mod.F90
EM

Location:

LMDZ5/trunk/libf/dyn3d_common

Files:

• adaptdt.F (modified) (2 diffs)
• iniconst.F90 (modified) (1 diff)
• initdynav.F90 (modified) (2 diffs)
• initfluxsto.F (modified) (2 diffs)
• inithist.F (modified) (2 diffs)
• interpre.F (modified) (1 diff)
• sortvarc.F (modified) (1 diff)
• traceurpole.F (modified) (1 diff)
• writedynav.F90 (modified) (2 diffs)
• writehist.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d_common/adaptdt.F

@@ -5 +5 @@
      c                   masse)
 
-!      USE control_mod
       USE comconst_mod, ONLY: dtvr
       IMPLICIT NONE
@@ -14 +13 @@
       include "comgeom2.h"
       include "logic.h"
-      include "temps.h"
       include "ener.h"
       include "description.h"

LMDZ5/trunk/libf/dyn3d_common/iniconst.F90

@@ -24 +24 @@
   include "dimensions.h"
   include "paramet.h"
-  include "temps.h"
   include "iniprint.h"
 

LMDZ5/trunk/libf/dyn3d_common/initdynav.F90

@@ -11 +11 @@
   USE comconst_mod, ONLY: pi
   USE comvert_mod, ONLY: presnivs
+  USE temps_mod, ONLY: itau_dyn
+  
   implicit none
 
@@ -37 +39 @@
   include "paramet.h"
   include "comgeom.h"
-  include "temps.h"
   include "ener.h"
   include "logic.h"

LMDZ5/trunk/libf/dyn3d_common/initfluxsto.F

@@ -11 +11 @@
       USE comconst_mod, ONLY: pi
       USE comvert_mod, ONLY: nivsigs
+      USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
+      
       implicit none
 
@@ -43 +45 @@
       include "paramet.h"
       include "comgeom.h"
-      include "temps.h"
       include "ener.h"
       include "logic.h"

LMDZ5/trunk/libf/dyn3d_common/inithist.F

@@ -12 +12 @@
        USE comconst_mod, ONLY: pi
        USE comvert_mod, ONLY: presnivs
+       USE temps_mod, ONLY: itau_dyn
+       
       implicit none
 
@@ -42 +44 @@
       include "paramet.h"
       include "comgeom.h"
-      include "temps.h"
       include "ener.h"
       include "logic.h"

LMDZ5/trunk/libf/dyn3d_common/interpre.F

@@ -16 +16 @@
       include "comgeom2.h"
       include "logic.h"
-      include "temps.h"
       include "ener.h"
       include "description.h"

LMDZ5/trunk/libf/dyn3d_common/sortvarc.F

@@ -31 +31 @@
       INCLUDE "ener.h"
       INCLUDE "logic.h"
-      INCLUDE "temps.h"
       INCLUDE "iniprint.h"
 

LMDZ5/trunk/libf/dyn3d_common/traceurpole.F

@@ -11 +11 @@
       include "comgeom2.h"
       include "logic.h"
-      include "temps.h"
       include "ener.h"
       include "description.h"

LMDZ5/trunk/libf/dyn3d_common/writedynav.F90

@@ -9 +9 @@
   use com_io_dyn_mod, only : histaveid, histvaveid, histuaveid
   USE comconst_mod, ONLY: cpp
+  USE temps_mod, ONLY: itau_dyn
 
   implicit none
@@ -33 +34 @@
   include "paramet.h"
   include "comgeom.h"
-  include "temps.h"
   include "ener.h"
   include "logic.h"

LMDZ5/trunk/libf/dyn3d_common/writehist.F

@@ -9 +9 @@
       USE infotrac, ONLY : nqtot, ttext
       use com_io_dyn_mod, only : histid,histvid,histuid
+      USE temps_mod, ONLY: itau_dyn
+      
       implicit none
 
@@ -36 +38 @@
       include "paramet.h"
       include "comgeom.h"
-      include "temps.h"
       include "ener.h"
       include "logic.h"