Changeset 4139 for LMDZ6/trunk/libf/dyn3dmem/caladvtrac_mod.F90

Timestamp:

Apr 28, 2022, 12:21:33 PM (2 years ago)

Author:

acozic

Message:

added (and call) a routine for the calculation of mass flux used in offline mode

File:

• LMDZ6/trunk/libf/dyn3dmem/caladvtrac_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3dmem/caladvtrac_mod.F90

@@ -16 +16 @@
 
   REAL,POINTER,SAVE :: massem(:,:)
-  
+  !Offline
+  REAL,POINTER,SAVE :: tetac(:,:)
+  REAL,POINTER,SAVE :: massec(:,:)
+  REAL,POINTER,SAVE :: phic(:,:)
+  REAL,POINTER,SAVE :: pbarucc(:,:)
+  REAL,POINTER,SAVE :: pbarvcc(:,:)
+  REAL,POINTER,SAVE :: pbarugg(:,:)
+  REAL,POINTER,SAVE :: pbarvgg(:,:)
+  REAL,POINTER,SAVE :: wgg(:,:)
 CONTAINS
 
@@ -50 +58 @@
     CALL allocate_v(pbarvg,llm,d)
     CALL allocate_u(wg,llm,d)
+    ! Offline
+    CALL allocate_u(tetac,llm,d)
+    CALL allocate_u(phic,llm,d)
+    CALL allocate_u(pbarucc,llm,d)
+    CALL allocate_v(pbarvcc,llm,d)
+    CALL allocate_u(massec,llm,d)
+    CALL allocate_u(pbarugg,llm,d)
+    CALL allocate_v(pbarvgg,llm,d)
+    CALL allocate_u(wgg,llm,d)
 
     CALL groupe_allocate