Changeset 5512 for LMDZ6/trunk/libf/phylmd/lmdz_thermcell_ini.f90

Timestamp:

Jan 28, 2025, 7:07:51 PM (9 days ago)

Author:

yann meurdesoif

Message:

Implement GPU automatic port for :

• Thermics
• acama_gwd_rando
• flott_gwd_rando

YM

File:

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

LMDZ6/trunk/libf/phylmd/lmdz_thermcell_ini.f90

@@ -1 +1 @@
 MODULE lmdz_thermcell_ini
+  USE strings_mod, ONLY : maxlen
 
 IMPLICIT NONE
@@ -34 +35 @@
 integer, protected :: thermals_flag_alim=0       !
 integer, protected :: iflag_thermals_tenv=0      ! 
+real,    protected :: thermals_fomass_max=0.5    ! Limitation du "vidage" des mailles sur un pas de temps 'thermcell_flux2'
+real,    protected :: thermals_alphamax=0.7      ! fraction max des thermiques dans 'thermcell_flux2'
 
    ! WARNING !!! fact_epsilon is not protected. It can be modified in thermcell_plume*
@@ -47 +50 @@
 !$OMP THREADPRIVATE(detr_min, entr_min, detr_q_coef, detr_q_power)
 !$OMP THREADPRIVATE( mix0, thermals_flag_alim)
-!$OMP THREADPRIVATE(iflag_thermals_tenv)
+!$OMP THREADPRIVATE(thermals_fomass_max)
+!$OMP THREADPRIVATE(thermals_alphamax)
 
 integer, protected       :: thermals_subsid_advect_more_than_one=1
-character*6, protected :: thermals_subsid_advect_scheme = 'upwind' ! or 'center'
+character(LEN=maxlen), protected :: thermals_subsid_advect_scheme = 'upwind' ! or 'center'
 
 !$OMP THREADPRIVATE(thermals_subsid_advect_scheme,thermals_subsid_advect_more_than_one)