Changeset 2601 for LMDZ5/trunk/libf/phylmd/dyn1d

Timestamp:

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

Author:

Ehouarn Millour

Message:

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

Location:

LMDZ5/trunk/libf/phylmd/dyn1d

Files:

• 1DUTILS.h (modified) (4 diffs)
• lmdz1d.F90 (modified) (1 diff)
• temps.h (deleted)
• temps_mod.F90 (added)

LMDZ5/trunk/libf/phylmd/dyn1d/1DUTILS.h

@@ -436 +436 @@
       use control_mod
       USE comconst_mod, ONLY: im, jm, lllm
+      USE temps_mod, ONLY: annee_ref, day_ini, day_ref, itau_dyn
 
       IMPLICIT NONE
@@ -444 +445 @@
 !   -------------
       include "dimensions.h"
-      include "temps.h"
 !!#include "control.h"
       include "logic.h"
@@ -580 +580 @@
       use control_mod
       USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
+      USE temps_mod, ONLY: annee_ref,day_end,day_ref,itau_dyn,itaufin
 
       IMPLICIT NONE
@@ -588 +589 @@
 !   -------------
       include "dimensions.h"
-      include "temps.h"
 !!#include "control.h"
       include "logic.h"

LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

@@ -37 +37 @@
    USE mod_const_mpi, ONLY: comm_lmdz
    USE physiq_mod, ONLY: physiq
+   USE temps_mod, ONLY: annee_ref, calend, day_end, day_ini, day_ref, &
+                        itau_dyn, itau_phy, start_time
 
       implicit none
 #include "dimensions.h"
 #include "YOMCST.h"
-#include "temps.h"
 !!#include "control.h"
 #include "clesphys.h"