Changeset 2607 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Jan 18, 2022, 3:25:31 PM (3 years ago)

Author:

romain.vande

Message:

LMDZ_MARS RV : Open_MP; Reading files in parallel for NIR parametrisation
(callnirco2.and.nircorr.eq.1)

File:

• trunk/LMDZ.MARS/libf/phymars/nir_leedat.F (modified) (3 diffs)

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

@@ -8 +8 @@
 
       use datafile_mod, only: datadir
+      USE mod_phys_lmdz_para, ONLY: is_master
+      USE mod_phys_lmdz_transfert_para, ONLY: bcast
 
       implicit none                                  
@@ -20 +22 @@
                               
 c***********************************************************************
-
+      if(is_master) then
       open(43,file=trim(datadir)//'/NIRcorrection_feb2011.dat',
      $       status='old')         
@@ -35 +37 @@
       close(43)
 
+      endif !      if(is_master) then
+
+      call bcast(pres1d)
+      call bcast(corgcm)
+      call bcast(oco21d)
+      call bcast(p1999)
+      call bcast(alfa)
+
       return