Changeset 2270 for LMDZ5/trunk/libf/dyn3dmem/vlspltgen_mod.F90

Timestamp:

May 7, 2015, 5:45:04 PM (9 years ago)

Author:

crisi

Message:

Adding isotopes in the dynamics and more generally tracers of tracers.
CRisi

File:

• LMDZ5/trunk/libf/dyn3dmem/vlspltgen_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dmem/vlspltgen_mod.F90

@@ -2 +2 @@
 
   REAL,POINTER,SAVE :: qsat(:,:)
-  REAL,POINTER,SAVE :: mu(:,:)
+  REAL,POINTER,SAVE :: mu(:,:) ! CRisi: on ajoute une dimension
   REAL,POINTER,SAVE :: mv(:,:)
-  REAL,POINTER,SAVE :: mw(:,:)
+  REAL,POINTER,SAVE :: mw(:,:,:)
   REAL,POINTER,SAVE :: zm(:,:,:)
   REAL,POINTER,SAVE :: zq(:,:,:)
@@ -25 +25 @@
     CALL allocate_u(mu,llm,d)
     CALL allocate_v(mv,llm,d)
-    CALL allocate_u(mw,llm+1,d)
+    CALL allocate_u(mw,llm+1,nqtot,d)
     CALL allocate_u(zm,llm,nqtot,d)
     CALL allocate_u(zq,llm,nqtot,d)