Changeset 2056 for LMDZ5/branches/testing/libf/dyn3dmem/leapfrog_mod.F90

Timestamp:

Jun 11, 2014, 3:46:46 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1997:2055 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/leapfrog_mod.F90 (modified) (3 diffs)

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

@@ -27 +27 @@
   REAL,POINTER,SAVE :: dq(:,:,:)
   REAL,POINTER,SAVE :: finvmaold(:,:)
-  REAL,POINTER,SAVE :: alpha(:,:)
-  REAL,POINTER,SAVE :: beta(:,:)
   REAL,POINTER,SAVE :: flxw(:,:)
   REAL,POINTER,SAVE :: unat(:,:)
@@ -79 +77 @@
     CALL allocate_u(dq,llm,nqtot,d)
     CALL allocate_u(finvmaold,llm,d)
-    CALL allocate_u(alpha,llm,d)
-    CALL allocate_u(beta,llm,d)
     CALL allocate_u(flxw,llm,d)
     CALL allocate_u(unat,llm,d)
@@ -129 +125 @@
     CALL switch_u(dq,distrib_caldyn,dist)
     CALL switch_u(finvmaold,distrib_caldyn,dist)
-    CALL switch_u(alpha,distrib_caldyn,dist)
-    CALL switch_u(beta,distrib_caldyn,dist)
     CALL switch_u(flxw,distrib_caldyn,dist)
     CALL switch_u(unat,distrib_caldyn,dist)