Changeset 1475 for LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/friction_p.F

Timestamp:

Jan 21, 2011, 3:41:03 PM (13 years ago)

Author:

Ehouarn Millour

Message:

Bug fix: don't "stop" in abort_gcm if all ends well (just let the program end cleanly and finalize parallel processes).
EM

File:

• LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/friction_p.F (modified) (1 diff)

LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/friction_p.F

@@ -34 +34 @@
 
 ! arguments:
-      REAL,INTENT(out) :: ucov( iip1,jjp1,llm )
-      REAL,INTENT(out) :: vcov( iip1,jjm,llm )
+      REAL,INTENT(inout) :: ucov( iip1,jjp1,llm )
+      REAL,INTENT(inout) :: vcov( iip1,jjm,llm )
       REAL,INTENT(in) :: pdt ! time step