Changeset 5894 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Nov 28, 2025, 5:34:54 PM (2 weeks ago)

Author:

Sebastien Nguyen

Message:

rephase LMDZISO with 5864 version of phylmd + bug fixes in physiq_mod + other bugs in isoverif sections. Code now compiles and runs with -debug -isotopes true -isoverif. There are still isoverif error messages for Dexcess getting greater than 1000 on some points at some moments.

File:

• LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -157 +157 @@
       REAL, SAVE, ALLOCATABLE :: d_xt_con(:,:,:)
       !$OMP THREADPRIVATE( d_xt_con)
+      REAL, SAVE, ALLOCATABLE :: d_xt_con_zmasse(:,:,:)
+      !$OMP THREADPRIVATE( d_xt_con_zmasse)
       REAL, SAVE, ALLOCATABLE :: d_xt_wake(:,:,:)
       !$OMP THREADPRIVATE( d_xt_wake)
@@ -925 +927 @@
       allocate(d_xtbs_dyn(ntraciso,klon,klev))
       allocate(d_xt_con(ntraciso,klon,klev))
+      allocate(d_xt_con_zmasse(ntraciso,klon,klev))
       allocate(d_xt_wake(ntraciso,klon,klev))
       allocate(d_xt_lsc(ntraciso,klon,klev))
@@ -1261 +1264 @@
 
       ALLOCATE (dyntropo(klon))
+      dyntropo(:)=0.0 ! cas read_climoz<=0 : dyntropo n'a pas de valeur
       ALLOCATE (p_tropopause(klon))
       ALLOCATE (z_tropopause(klon))
@@ -1402 +1406 @@
       deallocate(d_xt_dyn,d_xtl_dyn,d_xts_dyn,d_xtbs_dyn)
       deallocate(d_xt_con)
+      deallocate(d_xt_con_zmasse)
       deallocate(d_xt_wake)
       deallocate(d_xt_lsc)