Changeset 1707 for LMDZ5/branches/testing/libf/dyn3dmem/dynredem_mod.F90

Timestamp:

Jan 11, 2013, 10:19:19 AM (11 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1706

---

Testing release based on r1706

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/dynredem_mod.F90 (modified) (4 diffs)

LMDZ5/branches/testing/libf/dyn3dmem/dynredem_mod.F90

@@ +1 @@
+!
+! $Id$
+!
 MODULE dynredem_mod
-
-
-
-
 
 CONTAINS
@@ -37 +36 @@
    ENDIF
 !$OMP END MASTER
- 
-    ll=size(var,2)
 
 !$OMP MASTER
@@ -105 +102 @@
 !$OMP END MASTER
  
-    ll=size(var,2)
-
 !$OMP MASTER
     ALLOCATE(var_tmp(ijb_v:ije_v,ll))
@@ -172 +167 @@
 !$OMP END MASTER
  
-    ll=size(var,2)
-
 !$OMP MASTER
     ALLOCATE(var_tmp(ijb_u:ije_u,ll))