Changeset 2622 for LMDZ5/trunk/libf/dyn3dpar

Timestamp:

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

Author:

Ehouarn Millour

Message:

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

Location:

LMDZ5/trunk/libf/dyn3dpar

Files:

• advect_new_p.F (modified) (1 diff)
• advect_p.F (modified) (1 diff)
• advtrac_p.F90 (modified) (1 diff)
• dynetat0.F (modified) (2 diffs)
• dynredem.F (modified) (2 diffs)
• dynredem_p.F (modified) (2 diffs)
• gcm.F (modified) (1 diff)
• iniacademic.F90 (modified) (2 diffs)
• initdynav_p.F (modified) (1 diff)
• initfluxsto_p.F (modified) (1 diff)
• inithist_p.F (modified) (1 diff)
• leapfrog_p.F (modified) (1 diff)
• writedynav_p.F (modified) (1 diff)
• writehist_p.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dpar/advect_new_p.F

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

LMDZ5/trunk/libf/dyn3dpar/advect_p.F

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

LMDZ5/trunk/libf/dyn3dpar/advtrac_p.F90

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

LMDZ5/trunk/libf/dyn3dpar/dynetat0.F

@@ -16 +16 @@
       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
@@ -37 +38 @@
 #include "paramet.h"
 #include "comgeom2.h"
-#include "ener.h"
 #include "netcdf.inc"
 #include "description.h"

LMDZ5/trunk/libf/dyn3dpar/dynredem.F

@@ -17 +17 @@
       USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn,itaufin,
      &                        start_time,hour_ini
+      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
  
       IMPLICIT NONE
@@ -27 +28 @@
 #include "paramet.h"
 #include "comgeom2.h"
-#include "ener.h"
 #include "netcdf.inc"
 #include "description.h"

LMDZ5/trunk/libf/dyn3dpar/dynredem_p.F

@@ -18 +18 @@
       USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn,itaufin,
      &                        start_time,hour_ini
+      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
  
       IMPLICIT NONE
@@ -28 +29 @@
 #include "paramet.h"
 #include "comgeom2.h"
-#include "ener.h"
 #include "netcdf.inc"
 #include "description.h"

LMDZ5/trunk/libf/dyn3dpar/gcm.F

@@ -73 +73 @@
 #include "comdissnew.h"
 #include "comgeom.h"
-#include "ener.h"
 #include "description.h"
 !#include "com_io_dyn.h"

LMDZ5/trunk/libf/dyn3dpar/iniacademic.F90

@@ -20 +20 @@
   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
@@ -34 +35 @@
   include "comgeom.h"
   include "academic.h"
-  include "ener.h"
   include "iniprint.h"
 

LMDZ5/trunk/libf/dyn3dpar/initdynav_p.F

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

LMDZ5/trunk/libf/dyn3dpar/initfluxsto_p.F

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

LMDZ5/trunk/libf/dyn3dpar/inithist_p.F

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

LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

@@ -72 +72 @@
 #include "comdissnew.h"
 #include "comgeom.h"
-#include "ener.h"
 #include "description.h"
 !#include "com_io_dyn.h"

LMDZ5/trunk/libf/dyn3dpar/writedynav_p.F

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

LMDZ5/trunk/libf/dyn3dpar/writehist_p.F

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