Changeset 5694

Timestamp:

Jun 13, 2025, 7:24:13 PM (5 weeks ago)

Author:

yann meurdesoif

Message:

Convection GPU porting : set convection subroutines into module (continued)

Files will be renamed later to *_mod.f90

YM

File:

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

LMDZ6/trunk/libf/phylmd/cva_driver.f90

@@ -5 +5 @@
   PRIVATE
 
-  PUBLIC cva_driver_pre, cva_driver_post, cva_driver
+  PUBLIC cva_driver
 
 CONTAINS
@@ -562 +562 @@
   REAL epmax_diag(nloc) ! epmax_cape
 
-  CHARACTER (LEN=20) :: modname = 'cva_driver'
+  CHARACTER (LEN=20), PARAMETER :: modname = 'cva_driver'
   CHARACTER (LEN=80) :: abort_message
 
@@ -568 +568 @@
   REAL, PARAMETER    :: Cape_noconv = -1.
 
-  INTEGER,SAVE                                       :: igout=1
-!$OMP THREADPRIVATE(igout)
-
+  INTEGER, PARAMETER                                       :: igout=1
 
 ! print *, 't1, t1_wake ',(k,t1(1,k),t1_wake(1,k),k=1,nd)