Changeset 6058 for LMDZ6/trunk/libf/phylmd/cva_driver_mod.f90

Timestamp:

Jan 29, 2026, 12:52:39 AM (7 weeks ago)

Author:

fhourdin

Message:

Travail pour la replayisation de la convection

Reunion de tous les anciens common devenus modules, dans lmdz_cv_ini.
Déplacement de presque toutes les routines d'initialisation dans lmdz_cv_ini.
Encapsulage de certains sous-programmes dans des modules.
Suppression de programmes inutilisés (cv3_crit et cv3_incp)
Reste :

• à sortir des routines d'initialisation "_pre" de cv_driver et

cva_driver

• à passer le variables argunement en intent(in/out/inout).

La convergence numérique a été testée pour
iflag_con=3/30/4
en 3D parallèle.
La compilation de la version isotopique fonctionne.

File:

• LMDZ6/trunk/libf/phylmd/cva_driver_mod.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/cva_driver_mod.f90

@@ -15 +15 @@
 ! called before cva_driver 
 SUBROUTINE cva_driver_pre(nd, k_upper, iflag_con, iflag_ice_thermo, ok_conserv_q, delt)
-USE cv3_routines_mod, ONLY : cv3_routine_pre, cv3_param  
-USE cv_routines_mod, ONLY : cv_param
+USE cv3_routines_mod, ONLY : cv3_routine_pre
+USE lmdz_cv_ini, ONLY : cv_thermo,cv_flag,cv3_param, cv_param   ! A retirer apres replaysation
 USE ioipsl_getin_p_mod, ONLY : getin_p
 USE s2s
@@ -37 +37 @@
     CALL getin_p("convection_no_compression",never_compress)
     IF (s2s_gpu_activated()) never_compress = .TRUE.  ! for GPU, compression must be disabled
-    CALL cv_flag(iflag_ice_thermo)
-
-    ! -- set thermodynamical constants:
-    ! (common cvthermo)
-
-    CALL cv_thermo(iflag_con)
-
-    ! -- set convect parameters
-
-    ! includes microphysical parameters and parameters that
-    ! control the rate of approach to quasi-equilibrium)
-    ! (common cvparam)
-
-    IF (iflag_con==3) THEN
-      CALL cv3_param(nd, k_upper, delt)
-    END IF
-
-    IF (iflag_con==4) THEN
-      CALL cv_param(nd)
-    END IF
-    
+! Deplace dans lmdz_cv_ini    CALL cv_flag(iflag_ice_thermo)
+! Deplace dans lmdz_cv_ini
+! Deplace dans lmdz_cv_ini    ! -- set thermodynamical constants:
+! Deplace dans lmdz_cv_ini    ! (common cvthermo)
+! Deplace dans lmdz_cv_ini
+! Deplace dans lmdz_cv_ini    CALL cv_thermo(iflag_con)
+! Deplace dans lmdz_cv_ini
+! Deplace dans lmdz_cv_ini    ! -- set convect parameters
+! Deplace dans lmdz_cv_ini
+! Deplace dans lmdz_cv_ini    ! includes microphysical parameters and parameters that
+! Deplace dans lmdz_cv_ini    ! control the rate of approach to quasi-equilibrium)
+! Deplace dans lmdz_cv_ini    ! (common cvparam)
+! Deplace dans lmdz_cv_ini
+! Deplace dans lmdz_cv_ini    IF (iflag_con==3) THEN
+! Deplace dans lmdz_cv_ini      CALL cv3_param(nd, k_upper, delt)
+! Deplace dans lmdz_cv_ini    END IF
+! Deplace dans lmdz_cv_ini
+! Deplace dans lmdz_cv_ini    IF (iflag_con==4) THEN
+! Deplace dans lmdz_cv_ini      CALL cv_param(nd)
+! Deplace dans lmdz_cv_ini    END IF
+! Deplace dans lmdz_cv_ini    
     CALL cv3_routine_pre(ok_conserv_q)
   ENDIF
@@ -112 +112 @@
 ! **************************************************************
 
-  USE print_control_mod, ONLY: prt_level, lunout
-  USE add_phys_tend_mod, ONLY: fl_cor_ebil
-  USE cv3_routines_mod
-  USE cv_routines_mod
+   USE lmdz_cv_ini, ONLY: prt_level, lunout
+  !!!USE lmdz_cv_ini, ONLY: fl_cor_ebil
+  USE cv3_routines_mod, ONLY : cv3_prelim, cv3_feed, cv3_undilute1, cv3_trigger, cv3_undilute2, cv3_epmax_fn_cape, cv3_closure, cv3_mixing, cv3_unsat, cv3_yield, cv3_tracer, cv3_incrcount
+  USE cv_routines_mod, ONLY : cv_prelim, cv_feed, cv_undilute1, cv_trigger, cv_compress, cv_undilute2, cv_closure, cv_mixing, cv_unsat, cv_yield, cv_uncompress
+
   USE cv3a_compress_mod, ONLY : cv3a_compress
   USE cv3p_mixing_mod, ONLY   : cv3p_mixing