Changeset 2627

Timestamp:

Feb 28, 2022, 12:23:15 PM (3 years ago)

Author:

romain.vande

Message:

LMDZ_MARS:
Small OpenMP fixes in conf_phys for reading radia.def with ifort
RV

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/conf_phys.F (modified) (4 diffs)

trunk/LMDZ.MARS/README

@@ -3605 +3605 @@
 Open_MP : In co2condens_mod : Remove emisref from THREADPRIVATE as it is not a saved variable
 
+== 28/02/2022 == RV
+Open_MP :Small OpenMP fixes in conf_phys for reading radia.def with ifort
+

trunk/LMDZ.MARS/libf/phymars/conf_phys.F

@@ -51 +51 @@
      &                          dustscaling_mode
       use aeropacity_mod, only: iddist, topdustref
+      USE mod_phys_lmdz_transfert_para, ONLY: bcast
       IMPLICIT NONE
       include "callkeys.h"
@@ -78 +79 @@
 ! --------------------------------------------------------------
      
+!$OMP MASTER
       ! check that 'callphys.def' file is around
       OPEN(99,file='callphys.def',status='old',form='formatted'
      &     ,iostat=ierr)
       CLOSE(99)
+!$OMP END MASTER
+      call bcast(ierr)
+!       ierr=0
       
       IF(ierr.EQ.0) THEN
@@ -1108 +1113 @@
 !     BUT people working hard on the LW may want to read them in 'radia.def' 
 !     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
+!$OMP MASTER
       OPEN(99,file='radia.def',status='old',form='formatted'
      .     ,iostat=ierr)
@@ -1155 +1160 @@
       end if
       CLOSE(99)
+!$OMP END MASTER
+      call bcast(ch1)
+      call bcast(callemis)
+      call bcast(iradia)
+      call bcast(ilwd)
+      call bcast(ilwn)
+      call bcast(linear)
+      call bcast(ncouche)
+      call bcast(alphan)
+      call bcast(ilwb)
+      call bcast(callg2d)
+      call bcast(semi)
 
       END