Changeset 2606

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.)

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/nlte_aux.F (modified) (3 diffs)
• libf/phymars/nlte_setup.F (modified) (5 diffs)

trunk/LMDZ.MARS/README

@@ -3565 +3565 @@
 == 04/01/2021 == CM
 following r2600, remove use co2condens_mod4micro in physiq_mod.F
+
+== 18/01/2022 == RV
+Open_MP files reading for callnlte = .true.

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

@@ -2381 +2381 @@
 
       subroutine rhist_03 (ihist) 
+      USE mod_phys_lmdz_para, ONLY: is_master
+      USE mod_phys_lmdz_transfert_para, ONLY: bcast
 
 c     *******************************************************************
@@ -2398 +2400 @@
 
 c     ***************
+
+      if(is_master) then
 
       open(unit=3,file=hisfile,status='old')
@@ -2428 +2432 @@
       close(unit=3)
 
-
-      return
-      end
+      endif !      if(is_master)
+
+      call bcast(mm_stored)
+      call bcast(nbox_stored)
+      call bcast(thist_stored)
+      call bcast(no_stored)
+      call bcast(sk1_stored)
+      call bcast(xx)
+      call bcast(xls1_stored)
+      call bcast(xld1_stored)
+
+      return
+      end

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