Changeset 3897 for trunk/LMDZ.COMMON/libf/dynphy_lonlat

Timestamp:

Aug 18, 2025, 8:31:38 AM (8 days ago)

Author:

emillour

Message:

Dynamics-physics interface for Venus PCM:
Remove computation of mean temperature and presure profiles for
Venus physics as:
1 - They are not used
2 - They cause major issues when turning on OpenMP (which will need

further investigation if ever we want to use OpenMP for Titan).

EM

Location:

trunk/LMDZ.COMMON/libf/dynphy_lonlat

Files:

• calfis.F (modified) (1 diff)
• calfis_p.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dynphy_lonlat/calfis.F

@@ -225 +225 @@
 c----------------------------------------------
 c moyennes globales pour le profil de pression
-       if(planet_type.eq."titan".or.planet_type.eq."venus") then
+       if(planet_type.eq."titan") then
         ALLOCATE(plevmoy(llm+1))
         ALLOCATE(playmoy(llm))

trunk/LMDZ.COMMON/libf/dynphy_lonlat/calfis_p.F

@@ -315 +315 @@
 c------------------------------------------------------------------
 c moyennes globales pour les profils de pression et de temperature
-      if(planet_type.eq."titan".or.planet_type.eq."venus") then
+      if(planet_type.eq."titan") then
+! Ehouarn: these calls seem to cause issues when in OpenMP...
+! (but not a problem for now since Titan physics only used with MPI) 
         call AllGather_Field(pp,iip1*jjp1,llmp1)
         call AllGather_Field(pteta,iip1*jjp1,llm)