Changeset 2600 for LMDZ5/trunk/libf/dyn3dpar/advect_p.F

Timestamp:

Jul 23, 2016, 7:45:38 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn comvert.h into module comvert_mod.F90
EM

File:

• LMDZ5/trunk/libf/dyn3dpar/advect_p.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dpar/advect_p.F

@@ -28 +28 @@
 #include "dimensions.h"
 #include "paramet.h"
-#include "comvert.h"
 #include "comgeom.h"
 #include "logic.h"
@@ -86 +85 @@
                   
            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