Changeset 764 for LMDZ4/trunk/libf/dyn3dpar/convmas_p.F

Timestamp:

Jun 4, 2007, 4:13:10 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

File:

• LMDZ4/trunk/libf/dyn3dpar/convmas_p.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/convmas_p.F

@@ -35 +35 @@
 #include "logic.h"
 
-      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm ),convm(  ip1jmp1,llm )
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
+      REAL, target :: convm(  ip1jmp1,llm )
       INTEGER   l,ij
 
-      EXTERNAL   filtreg_p
-      EXTERNAL   convflu_p
+      INTEGER ijb,ije,jjb,jje
+ 
       
-      INTEGER ijb,ije,jjb,jje
-     
-      
-
 c-----------------------------------------------------------------------
 c    ....  calcul de - (d(pbaru)/dx + d(pbarv)/dy ) ......
@@ -64 +61 @@
        ije=ij_end+iip1
        if (pole_sud) ije=ij_end
+            
       DO      l      = llmm1, 1, -1
         DO    ij     = ijb, ije