Changeset 5696 for LMDZ6/trunk/libf/phylmd/concvl.f90

Timestamp:

Jun 13, 2025, 8:19:58 PM (6 weeks ago)

Author:

yann meurdesoif

Message:

Convection GPU porting : separate initialisation phase of computing phase for cva_driver and cv3_routines (remove saved first/debut variable type from computing routine)
YM

File:

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

LMDZ6/trunk/libf/phylmd/concvl.f90

@@ -40 +40 @@
   USE conema3_mod_h
   USE yoethf_mod_h
-  USE cva_driver_mod, ONLY : cva_driver
+  USE cva_driver_mod, ONLY : cva_driver_pre, cva_driver, cva_driver_post
   IMPLICIT NONE
 ! ======================================================================
@@ -421 +421 @@
 !LF   necessary for gathered fields
     nloc = klon
+    CALL cva_driver_pre(klev, k_upper_cv, iflag_con, iflag_ice_thermo, ok_conserv_q, dtime )
     CALL cva_driver(klon, klev, klev+1, ntra, nloc, k_upper_cv, &
                     iflag_con, iflag_mix, iflag_ice_thermo, &
@@ -445 +446 @@
 !AC!+!RomP+jyg
                     epmax_diag) ! epmax_cape
+    CALL cva_driver_post
   END IF
 ! ------------------------------------------------------------------