Changeset 2597 for LMDZ5/trunk/libf/dyn3d_common/interpre.F

Timestamp:

Jul 22, 2016, 8:44:47 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: get rid of comconst.h, make it a module comconst_mod.
EM

File:

• LMDZ5/trunk/libf/dyn3d_common/interpre.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3d_common/interpre.F

@@ -6 +6 @@
      s            unatppm,vnatppm,psppm)
 
-      USE control_mod
+      USE comconst_mod, ONLY: g
 
        implicit none
 
-#include "dimensions.h"
-c#include "paramr2.h"
-#include "paramet.h"
-#include "comconst.h"
-#include "comdissip.h"
-#include "comvert.h"
-#include "comgeom2.h"
-#include "logic.h"
-#include "temps.h"
-#include "ener.h"
-#include "description.h"
+      include "dimensions.h"
+      include "paramet.h"
+      include "comdissip.h"
+      include "comvert.h"
+      include "comgeom2.h"
+      include "logic.h"
+      include "temps.h"
+      include "ener.h"
+      include "description.h"
 
 c---------------------------------------------------
@@ -77 +75 @@
           do j=1,jjm
               do i=1,iip1
-                  vnat(i,j,l)=-pbarv(i,j,l)/masseby(i,j,l)*cv(i,j)             
+                  vnat(i,j,l)=-pbarv(i,j,l)/masseby(i,j,l)*cv(i,j)
               enddo
           enddo
@@ -119 +117 @@
                  vnatppm(i,j,l)=vnat(i,j,llm-l+1)
                  fluxwppm(i,j,l)=fluxw(i,j,llm-l+1)
-                 qppm(i,j,l)=q(i,j,llm-l+1)                              
+                 qppm(i,j,l)=q(i,j,llm-l+1)
              enddo
           enddo