Changeset 2601 for LMDZ5/trunk/libf/dyn3d/dynredem.F90

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/dyn3d/dynredem.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3d/dynredem.F90

@@ -16 +16 @@
   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
+  
   IMPLICIT NONE
   include "dimensions.h"
   include "paramet.h"
   include "comgeom2.h"
-  include "temps.h"
   include "ener.h"
   include "logic.h"
@@ -170 +171 @@
   USE dynredem_mod, ONLY: dynredem_write_u, dynredem_write_v, dynredem_read_u, &
                           err, modname, fil, msg
+  USE temps_mod, ONLY: itau_dyn, itaufin
+  
   IMPLICIT NONE
   include "dimensions.h"
@@ -175 +178 @@
   include "description.h"
   include "comgeom.h"
-  include "temps.h"
   include "iniprint.h"
 !===============================================================================