Changeset 2622 for LMDZ5/trunk/libf/dyn3dmem

Timestamp:

Sep 4, 2016, 8:12:02 AM (9 years ago)

Author:

Ehouarn Millour

Message:

Some code tidying: turn ener.h into ener_mod.F90
EM

Location:

LMDZ5/trunk/libf/dyn3dmem

Files:

• advect_new_loc.F (modified) (1 diff)
• advtrac_loc.F (modified) (1 diff)
• dynetat0_loc.f90 (modified) (2 diffs)
• dynredem_loc.F90 (modified) (2 diffs)
• gcm.F90 (modified) (1 diff)
• iniacademic_loc.F90 (modified) (2 diffs)
• initdynav_loc.F (modified) (1 diff)
• initfluxsto_p.F (modified) (1 diff)
• inithist_loc.F (modified) (1 diff)
• leapfrog_loc.F (modified) (1 diff)
• writedynav_loc.F (modified) (1 diff)
• writehist_loc.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dmem/advect_new_loc.F

@@ -33 +33 @@
       include "paramet.h"
       include "comgeom.h"
-      include "ener.h"
 
 c   Arguments:

LMDZ5/trunk/libf/dyn3dmem/advtrac_loc.F

@@ -34 +34 @@
       include "comdissip.h"
       include "comgeom2.h"
-      include "ener.h"
       include "description.h"
 

LMDZ5/trunk/libf/dyn3dmem/dynetat0_loc.f90

@@ -19 +19 @@
   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
@@ -24 +25 @@
   include "paramet.h"
   include "comgeom.h"
-  include "ener.h"
   include "description.h"
   include "iniprint.h"

LMDZ5/trunk/libf/dyn3dmem/dynredem_loc.F90

@@ -20 +20 @@
                        taux,tauy
   USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn, itaufin, start_time
+  USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
 
   IMPLICIT NONE
@@ -25 +26 @@
   include "paramet.h"
   include "comgeom.h"
-  include "ener.h"
   include "description.h"
   include "iniprint.h"

LMDZ5/trunk/libf/dyn3dmem/gcm.F90

@@ -62 +62 @@
   include "comdissnew.h"
   include "comgeom.h"
-  include "ener.h"
   include "description.h"
   include "iniprint.h"

LMDZ5/trunk/libf/dyn3dmem/iniacademic_loc.F90

@@ -22 +22 @@
   USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
   USE temps_mod, ONLY: annee_ref, day_ini, day_ref
+  USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
+
 
   !   Author:    Frederic Hourdin      original: 15/01/93
@@ -36 +38 @@
   include "comgeom.h"
   include "academic.h"
-  include "ener.h"
   include "iniprint.h"
 

LMDZ5/trunk/libf/dyn3dmem/initdynav_loc.F

@@ -48 +48 @@
       include "paramet.h"
       include "comgeom.h"
-      include "ener.h"
       include "description.h"
       include "iniprint.h"

LMDZ5/trunk/libf/dyn3dmem/initfluxsto_p.F

@@ -49 +49 @@
       include "paramet.h"
       include "comgeom.h"
-      include "ener.h"
       include "description.h"
       include "iniprint.h"

LMDZ5/trunk/libf/dyn3dmem/inithist_loc.F

@@ -47 +47 @@
       include "paramet.h"
       include "comgeom.h"
-      include "ener.h"
       include "description.h"
       include "iniprint.h"

LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

@@ -76 +76 @@
       include "comdissnew.h"
       include "comgeom.h"
-      include "ener.h"
       include "description.h"
       include "iniprint.h"

LMDZ5/trunk/libf/dyn3dmem/writedynav_loc.F

@@ -47 +47 @@
       include "paramet.h"
       include "comgeom.h"
-      include "ener.h"
       include "description.h"
       include "iniprint.h"

LMDZ5/trunk/libf/dyn3dmem/writehist_loc.F

@@ -47 +47 @@
       include "paramet.h"
       include "comgeom.h"
-      include "ener.h"
       include "description.h"
       include "iniprint.h"