Changeset 1076 for trunk/LMDZ.COMMON/libf/dyn3d

Timestamp:

Oct 18, 2013, 5:41:47 PM (11 years ago)

Author:

slebonnois

Message:

SL: still another correction to version 1056...

File:

• trunk/LMDZ.COMMON/libf/dyn3d/calfis.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3d/calfis.F

@@ -195 +195 @@
 ! to allow for 2D computation of microphys and chemistry
       LOGICAL,save :: flag_moyzon
-      REAL,allocatable :: tmpvar(:,:)
-      REAL,allocatable :: tmpvarp1(:,:)
-      REAL,allocatable :: tmpvarbar(:)
-      REAL,allocatable :: tmpvarbarp1(:)
+      REAL,allocatable,save :: tmpvar(:,:)
+      REAL,allocatable,save :: tmpvarp1(:,:)
+      REAL,allocatable,save :: tmpvarbar(:)
+      REAL,allocatable,save :: tmpvarbarp1(:)
 
 c-----------------------------------------------------------------------