Changeset 6058 for LMDZ6/trunk/libf/phylmd/conema3_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/conema3_mod.f90 (moved) (moved from LMDZ6/trunk/libf/phylmd/conema3.f90) (4 diffs)

LMDZ6/trunk/libf/phylmd/conema3_mod.f90

@@ -1 @@
-
-! $Id$
+MODULE conema3_mod
+
+CONTAINS
 
 SUBROUTINE conema3(dtime, paprs, pplay, t, q, u, v, tra, ntra, work1, work2, &
@@ -9 +10 @@
   USE dimphy
   USE infotrac_phy, ONLY: nbtr
-  USE yomcst_mod_h
-  USE conema3_mod_h
+! Replayisation USE yomcst_mod_h
+  USE lmdz_cv_ini, ONLY : retv,lv0,rtt,cpd
+
+! Replayisation USE conema3_mod_h
+  USE lmdz_cv_ini, ONLY : epmax,iflag_clw,ok_adj_ema
   USE yoethf_mod_h
   IMPLICIT NONE
@@ -173 +177 @@
   REAL ftadj(klon, klev), fqadj(klon, klev)
 
+  include "FCTTRE.h"
+
+  REAL ::  rcpd,rlvtt
+
+  ! FH 2026/01/27 historiques : cohabitation de constantes cv et yomcst a nettoyer
+  ! rcpd used in FCTTHRE.h
+  rcpd=cpd
+  rlvtt=lv0
+
+
   ! sb --
 
-  ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
-
-  include "FCTTRE.h"
 
   IF (first) THEN
@@ -411 +422 @@
 END SUBROUTINE conema3
 
+END MODULE conema3_mod