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

Timestamp:

Jan 29, 2026, 12:52:39 AM (6 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/cv3p2_closure_mod.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/cv3p2_closure_mod.f90

@@ -23 +23 @@
   ! **************************************************************
 
-  USE yomcst2_mod_h
+! Replayisation USE yomcst2_mod_h
+  USE lmdz_cv_ini, ONLY : iflag_mix_adiab,coef_clos_ls,supcrit1,supcrit2
+
   USE lmdz_cv_ini, ONLY : alpha,alpha1,beta,flag_wb,minorig,nl,noconv_stop,pbcrit,rrd,wbmax,coef_peel
-  USE conema3_mod_h
-  USE cvflag_mod_h
-  USE print_control_mod, ONLY: prt_level, lunout
-  USE yomcst_mod_h
+! Replayisation USE conema3_mod_h
+  USE lmdz_cv_ini, ONLY : iflag_cvl_sigd
+! Replayisation USE cvflag_mod_h
+  USE lmdz_cv_ini, ONLY : ok_convstop,OK_intermittent
+   USE lmdz_cv_ini, ONLY: prt_level, lunout
+! Replayisation USE yomcst_mod_h
+  USE lmdz_cv_ini, ONLY : g
+
   USE cv3_cine_mod, ONLY : cv3_cine
   USE cv3_buoy_mod, ONLY : cv3_buoy
@@ -112 +118 @@
   INTEGER,PARAMETER                                  :: igout=1
 
+
+  REAL :: rg
+  
+  rg=g ! FH 2026/01/27  Historique convergence constantes cv et yomcst a nettoyer
+  
+
  IF (prt_level>=20) print *,' -> cv3p2_closure, Ale ',ale(igout)