Changeset 3355 for LMDZ6/branches/DYNAMICO-conv/libf/dyn3dmem

Timestamp:

Jun 29, 2018, 11:12:44 AM (6 years ago)

Author:

Laurent Fairhead

Message:

Commiting variables initialisation as found by Yann
LF

Location:

LMDZ6/branches/DYNAMICO-conv/libf/dyn3dmem

Files:

• caladvtrac_mod.F90 (modified) (1 diff)
• call_calfis_mod.F90 (modified) (1 diff)
• call_dissip_mod.F90 (modified) (1 diff)
• integrd_mod.F90 (modified) (1 diff)

LMDZ6/branches/DYNAMICO-conv/libf/dyn3dmem/caladvtrac_mod.F90

@@ -44 +44 @@
     CALL allocate_u(massem,llm,d)
     CALL allocate_u(pbaruc,llm,d)
+    pbaruc(:,:)=0
     CALL allocate_v(pbarvc,llm,d)
+    pbarvc(:,:)=0
     CALL allocate_u(pbarug,llm,d)
     CALL allocate_v(pbarvg,llm,d)

LMDZ6/branches/DYNAMICO-conv/libf/dyn3dmem/call_calfis_mod.F90

@@ -52 +52 @@
     CALL allocate_u(p,llmp1,d)
     CALL allocate_u(pks,d)
+    pks(:)=0
     CALL allocate_u(pk,llm,d)
+    pk(:,:)=0
     CALL allocate_u(pkf,llm,d)
     CALL allocate_u(phi,llm,d)

LMDZ6/branches/DYNAMICO-conv/libf/dyn3dmem/call_dissip_mod.F90

@@ -31 +31 @@
 
     CALL allocate_u(ucov,llm,d)
+    ucov(:,:)=0
     CALL allocate_v(vcov,llm,d)
+    vcov(:,:)=0
     CALL allocate_u(teta,llm,d)
     CALL allocate_u(p,llmp1,d)

LMDZ6/branches/DYNAMICO-conv/libf/dyn3dmem/integrd_mod.F90

@@ -23 +23 @@
     CALL allocate_u(deltap,llm,d)
     CALL allocate_u(ps,d)
+    ps(:)=0