Changeset 3826

Timestamp:

Jul 3, 2025, 1:19:49 PM (3 weeks 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

Location:

trunk

Files:

• LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/iniphysiq_mod.F90 (modified) (2 diffs)
• LMDZ.VENUS/libf/phyvenus/cpdet_phy_mod.F90 (modified) (1 diff)
• LMDZ.VENUS/libf/phyvenus/suphec.F (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

trunk/LMDZ.VENUS/libf/phyvenus/cpdet_phy_mod.F90

@@ -8 +8 @@
 
 real,save :: cpp ! reference Cp
+!$OMP THREADPRIVATE(cpp)
 real,save :: nu_venus
+!$OMP THREADPRIVATE(nu_venus)
 real,save :: t0_venus
+!$OMP THREADPRIVATE(t0_venus)
 
 contains

trunk/LMDZ.VENUS/libf/phyvenus/suphec.F

@@ -1 @@
-!
-! $Header: /home/cvsroot/LMDZ4/libf/phylmd/suphec.F,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $
-!
+      MODULE suphec_mod
+      
+      IMPLICIT NONE
+      
+      CONTAINS
+      
       SUBROUTINE suphec(cpp_)
 C
-#include "YOMCST.h"
+      include "YOMCST.h"
 cIM cf. JLD
-       REAL cpp_   ! from dynamics
-       LOGICAL firstcall
-       SAVE firstcall
-       DATA firstcall /.TRUE./
+       REAL,INTENT(IN) :: cpp_   ! from dynamics
+
+       LOGICAL, SAVE :: firstcall=.true.
+!$OMP THREADPRIVATE(firstcall)
+
        IF (firstcall) THEN
-         PRINT*, 'suphec initialise les constantes du GCM'
+         PRINT*, 'suphec initialize some physics constants'
          firstcall = .FALSE.
        ELSE
-         PRINT*, 'suphec DEJA APPELE '
+         PRINT*, 'suphec HAS ALREADY BEEN CALLED '
          RETURN
        ENDIF
@@ -152 +156 @@
       WRITE(UNIT=6,FMT='(''     Rv/Rd-1  = '',e13.7)') RETV
 C
-      RETURN
-      END
+
+      END SUBROUTINE suphec
+
+      END MODULE suphec_mod