Changeset 1999 for LMDZ5/branches/testing/libf/dyn3dmem/pression_loc.F

Timestamp:

Mar 20, 2014, 10:57:19 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1920:1997 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/pression_loc.F (modified) (2 diffs)

LMDZ5/branches/testing/libf/dyn3dmem/pression_loc.F

@@ -1 +1 @@
       SUBROUTINE pression_loc( ngrid, ap, bp, ps, p )
-      USE parallel_lmdz
+      USE parallel_lmdz, ONLY: ij_begin, ij_end, ijb_u, ije_u,
+     &                         pole_nord, pole_sud, omp_chunk
 c
 
@@ -16 +17 @@
 #include "paramet.h"
 c
-      INTEGER ngrid
+      INTEGER,INTENT(IN) :: ngrid ! not used
       INTEGER l,ij
  
-      REAL ap( llmp1 ), bp( llmp1 ), ps( ijb_u:ije_u )
-      REAL p( ijb_u:ije_u,llmp1 ) 
+      REAL,INTENT(IN) :: ap( llmp1 ), bp( llmp1 ), ps( ijb_u:ije_u )
+      REAL,INTENT(OUT) :: p( ijb_u:ije_u,llmp1 ) 
       
       INTEGER ijb,ije