Changeset 2603 for LMDZ5/trunk/libf/dyn3dpar/advect_new_p.F

Timestamp:

Jul 25, 2016, 11:31:56 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn logic.h into module logic_mod.F90
EM

File:

• LMDZ5/trunk/libf/dyn3dpar/advect_new_p.F (modified) (6 diffs)

LMDZ5/trunk/libf/dyn3dpar/advect_new_p.F

@@ -7 +7 @@
       USE write_field_p
       USE comconst_mod, ONLY: daysec
+      USE logic_mod, ONLY: conser
+      
       IMPLICIT NONE
 c=======================================================================
@@ -30 +32 @@
 #include "paramet.h"
 #include "comgeom.h"
-#include "logic.h"
 #include "ener.h"
 
@@ -116 +117 @@
                   
            uav(ij,l)=0.25*(ucov(ij,l)+ucov(ij-iip1,l))
-     .               +0.25*(ucov(ij+iip1,l)+ucov(ij,l))
+     .                     +0.25*(ucov(ij+iip1,l)+ucov(ij,l))
          ENDDO
          
@@ -249 +250 @@
       DO l=1,llm
         DO ij=ijb,ije-1
-          du(ij,l)=du(ij,l)+du2(ij,l)-du1(ij,l)
-        ENDDO
+          du(ij,l)=du(ij,l)+du2(ij,l)-du1(ij,l)
+        ENDDO
 
         DO   ij   = ijb+iip1-1, ije, iip1
@@ -265 +266 @@
       DO l=1,llm
         DO ij=ijb,ije
-          dv(ij,l)=dv(ij,l)+dv2(ij,l)-dv1(ij,l)
-        ENDDO
+          dv(ij,l)=dv(ij,l)+dv2(ij,l)-dv1(ij,l)
+        ENDDO
       ENDDO
 c$OMP END DO NOWAIT      
@@ -275 +276 @@
       DO l=1,llm
         DO ij=ijb,ije
-          dteta(ij,l)=dteta(ij,l)+dteta2(ij,l)-dteta1(ij,l)
-        ENDDO
+          dteta(ij,l)=dteta(ij,l)+dteta2(ij,l)-dteta1(ij,l)
+        ENDDO
       ENDDO
 c$OMP END DO NOWAIT