Changeset 1999 for LMDZ5/branches/testing/libf/dyn3dmem/pression_loc.F
- Timestamp:
- Mar 20, 2014, 10:57:19 AM (11 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 1922-1927,1929-1933,1937-1939,1943-1997
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/dyn3dmem/pression_loc.F
r1910 r1999 1 1 SUBROUTINE pression_loc( ngrid, ap, bp, ps, p ) 2 USE parallel_lmdz 2 USE parallel_lmdz, ONLY: ij_begin, ij_end, ijb_u, ije_u, 3 & pole_nord, pole_sud, omp_chunk 3 4 c 4 5 … … 16 17 #include "paramet.h" 17 18 c 18 INTEGER ngrid19 INTEGER,INTENT(IN) :: ngrid ! not used 19 20 INTEGER l,ij 20 21 21 REAL ap( llmp1 ), bp( llmp1 ), ps( ijb_u:ije_u )22 REAL p( ijb_u:ije_u,llmp1 )22 REAL,INTENT(IN) :: ap( llmp1 ), bp( llmp1 ), ps( ijb_u:ije_u ) 23 REAL,INTENT(OUT) :: p( ijb_u:ije_u,llmp1 ) 23 24 24 25 INTEGER ijb,ije
Note: See TracChangeset
for help on using the changeset viewer.