Changeset 2606 for trunk/LMDZ.MARS/libf/phymars/nlte_setup.F

Timestamp:

Jan 18, 2022, 3:24:13 PM (3 years ago)

Author:

romain.vande

Message:

LMDZ_MARS RV : Open_MP; Reading files in parallel for nlte parametrisation
(callnlte = .true.)

File:

• trunk/LMDZ.MARS/libf/phymars/nlte_setup.F (modified) (5 diffs)

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

@@ -18 +18 @@
 
       use datafile_mod, only: datadir
+      USE mod_phys_lmdz_para, ONLY: is_master
+      USE mod_phys_lmdz_transfert_para, ONLY: bcast
       
       implicit none
@@ -46 +48 @@
       lun1 = 1
       lun2 = 2
+
+      if(is_master) then
 
       do k=1,nisot
@@ -63 +67 @@
       end do
 
+      endif !      if(is_master)
+
+      call bcast(elow)
+      call bcast(deltanu)
+
       a1_010_000 = 1.3546d00
       a2_010_000 = 1.3452d00
@@ -71 +80 @@
 
 c     *** Old LeeESCTVCISO_dlvr11 ***
+
+      if(is_master) then
 
       open( 11, file=trim(datadir)//
@@ -88 +99 @@
       enddo
       close (12)
+
+
+      endif !is_master
+
+      call bcast(lnpnbtab)
+      call bcast(tstar11tab)
+      call bcast(tstar21tab)
+      call bcast(tstar31tab)
+      call bcast(tstar41tab)
+      call bcast(xx)
+      call bcast(vc210tab)
+      call bcast(vc310tab)
+      call bcast(vc410tab)
+
       xx=xx