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

Timestamp:

Dec 20, 2024, 11:48:05 AM (15 hours ago)

Author:

fhourdin

Message:

Superessing CPP in lmdz_*

Not possible for lmdz_thermcell_main because of isotopes

File:

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

LMDZ6/trunk/libf/phylmd/lmdz_thermcell_ini.f90

@@ -8 +8 @@
 integer, protected :: dvdq=1,dqimpl=-1,prt_level=0,lunout
 real   , protected :: RG,RD,RCPD,RKAPPA,RLVTT,RLvCp,RETV
+
+
 
 !$OMP THREADPRIVATE(dvdq,dqimpl,prt_level,lunout)
@@ -47 +49 @@
 !$OMP THREADPRIVATE(iflag_thermals_tenv)
 
+integer, protected       :: thermals_subsid_advect_more_than_one=1
+character*6, protected :: thermals_subsid_advect_scheme = 'upwind' ! or 'center'
+
+!$OMP THREADPRIVATE(thermals_subsid_advect_scheme,thermals_subsid_advect_more_than_one)
 
 CONTAINS
@@ -101 +107 @@
    CALL getin_p('thermals_flag_alim',thermals_flag_alim)
    CALL getin_p('iflag_thermals_tenv',iflag_thermals_tenv)
-
+   CALL getin_p('thermals_subsid_advect_scheme',thermals_subsid_advect_scheme)
+   CALL getin_p('thermals_subsid_advect_more_than_one',thermals_subsid_advect_more_than_one)
 
 
@@ -134 +141 @@
 write(lunout,*) 'thermcell_ini ,thermals_flag_alim       =',  thermals_flag_alim
 write(lunout,*) 'thermcell_ini ,iflag_thermals_tenv      =',  iflag_thermals_tenv
+write(lunout,*) 'thermcell_ini ,thermals_subsid_advect_scheme=',thermals_subsid_advect_scheme
+write(lunout,*) 'thermcell_ini ,thermals_subsid_advect_more_than_one=',thermals_subsid_advect_more_than_one
 
  RETURN