Changeset 2601 for LMDZ5/trunk/libf/dyn3dpar/dynredem_p.F

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

File:

• LMDZ5/trunk/libf/dyn3dpar/dynredem_p.F (modified) (4 diffs)

LMDZ5/trunk/libf/dyn3dpar/dynredem_p.F

@@ -15 +15 @@
       USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
      &                     taux,tauy
+      USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn,itaufin,
+     &                        start_time,hour_ini
  
       IMPLICIT NONE
@@ -25 +27 @@
 #include "paramet.h"
 #include "comgeom2.h"
-#include "temps.h"
 #include "ener.h"
 #include "logic.h"
@@ -474 +475 @@
       use netcdf, only: NF90_get_VAR
       use netcdf95, only: NF95_PUT_VAR
+      USE temps_mod, ONLY: itau_dyn, itaufin
  
       IMPLICIT NONE
@@ -484 +486 @@
 #include "netcdf.inc"
 #include "comgeom.h"
-#include "temps.h"