Changeset 2607

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)

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/nir_leedat.F (modified) (3 diffs)

trunk/LMDZ.MARS/README

@@ -3568 +3568 @@
 == 18/01/2022 == RV
 Open_MP files reading for callnlte = .true.
+
+== 18/01/2022 == RV
+Open_MP files reading for NIR : callnirco2.and.nircorr.eq.1

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