Changeset 2641 for LMDZ5/branches/testing/libf/dyn3dmem/dynetat0_loc.f90

Timestamp:

Sep 29, 2016, 11:26:46 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2593:2640 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/dynetat0_loc.f90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/dyn3dmem/dynetat0_loc.f90

@@ -12 +12 @@
   USE control_mod, ONLY: planet_type
   USE assert_eq_m, ONLY: assert_eq
+  USE comvert_mod, ONLY: pa,preff
+  USE comconst_mod, ONLY: cpp, daysec, dtvr, g, im, jm, kappa, lllm, &
+                          omeg, rad
+  USE logic_mod, ONLY: fxyhypb, ysinus
+  USE serre_mod, ONLY: clon, clat, grossismx, grossismy
+  USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn, &
+                       start_time,day_ini,hour_ini
+  USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
+  
   IMPLICIT NONE
   include "dimensions.h"
   include "paramet.h"
-  include "temps.h"
-  include "comconst.h"
-  include "comvert.h"
   include "comgeom.h"
-  include "ener.h"
   include "description.h"
-  include "serre.h"
-  include "logic.h"
   include "iniprint.h"
 !===============================================================================
@@ -99 +102 @@
   day_ini    = tab_cntrl(30)
   itau_dyn   = tab_cntrl(31)
-!  start_time = tab_cntrl(32)   ????
+  start_time = tab_cntrl(32)
 
 !-------------------------------------------------------------------------------