Changeset 1422 for trunk/LMDZ.MARS/libf/dyn3d/sortvarc.F

Timestamp:

Apr 30, 2015, 12:33:45 PM (10 years ago)

Author:

milmd

Message:

In GENERIC, MARS and COMMON models replace some include files by modules (usefull for decoupling physics with dynamics).

File:

• trunk/LMDZ.MARS/libf/dyn3d/sortvarc.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/dyn3d/sortvarc.F

@@ -2 +2 @@
      $(itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time ,
      $ vcov )
+
+      USE comconst_mod, ONLY: daysec,dtvr,rad,g,omeg
+      USE temps_mod, ONLY: day_ini
+      USE ener_mod, ONLY: etot,ptot,ztot,stot,ang,
+     .                  etot0,ptot0,ztot0,stot0,ang0,
+     .                  rmsdpdt,rmsv
+
       IMPLICIT NONE
 
@@ -21 +28 @@
 #include "dimensions.h"
 #include "paramet.h"
-#include "comconst.h"
-#include "comvert.h"
 #include "comgeom.h"
-#include "ener.h"
-#include "logic.h"
-#include "temps.h"
 
 c   Arguments: