Changeset 3826 for trunk/LMDZ.COMMON/libf

Timestamp:

Jul 3, 2025, 1:19:49 PM (4 days ago)

Author:

emillour

Message:

Venus PCM:

Some preliminary tidying with respect to OpenMP when initializing the
physics. Turned suphec into a module in the process.
EM

File:

• trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/iniphysiq_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/iniphysiq_mod.F90

@@ -13 +13 @@
                      prad,pg,pr,pcpp,iflag_phys)
 
+  ! From dynamics
   USE temps_mod, ONLY: annee_ref, day_ref, day_ini, day_end
   USE comconst_mod, ONLY: nu_venus, t0_venus
-  USE cpdet_phy_mod, ONLY: init_cpdet_phy
   USE infotrac, ONLY: nqtot, tname, ttext
   USE logic_mod, ONLY: iflag_trac
+  
+  ! From physics
+  USE cpdet_phy_mod, ONLY: init_cpdet_phy
   USE infotrac_phy, ONLY: init_infotrac_phy
   USE time_phylmdz_mod, ONLY: init_time
   USE inigeomphy_mod, ONLY: inigeomphy
   USE dimphy, ONLY: init_dimphy
+  USE suphec_mod, only: suphec
   USE mod_phys_lmdz_para, ONLY: klon_omp ! number of columns (on local omp grid)
   IMPLICIT NONE
@@ -70 +74 @@
   !------------------------------------------
 
-!$OMP PARALLEL
+!$OMP PARALLEL DEFAULT(SHARED) &
+!$OMP          COPYIN(annee_ref,day_ini,day_ref,day_end,iflag_trac)
 
   ! Initialize dimphy module => Now done in physics_distribution_mod