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

Timestamp:

Sep 17, 2025, 10:23:08 AM (2 months ago)

Author:

musat

Message:

Ajout iflag_tropo pour choisir le calcul de la tropopause
pour l'ozone:
iflag_tropo=0 : tropopause "dynamique"=> valeur par defaut pour

retrocompatibilite

iflag_tropo=1 : tropopause "lapse-rate" comme pour les aerosols

stratospheriques ==> valeur recommandee

Ionela Musat

File:

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

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -669 +669 @@
 #endif
 
-      REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: p_tropopause, z_tropopause, t_tropopause
-!$OMP THREADPRIVATE(p_tropopause, z_tropopause, t_tropopause)
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: dyntropo, p_tropopause, z_tropopause, t_tropopause
+!$OMP THREADPRIVATE(dyntropo, p_tropopause, z_tropopause, t_tropopause)
 
       INTEGER,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zn2mout
@@ -1260 +1260 @@
 #endif
 
+      ALLOCATE (dyntropo(klon))
       ALLOCATE (p_tropopause(klon))
       ALLOCATE (z_tropopause(klon))
@@ -1689 +1690 @@
 #endif
 
+      DEALLOCATE (dyntropo) 
       DEALLOCATE (p_tropopause)
       DEALLOCATE (z_tropopause)