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

Timestamp:

Jan 14, 2026, 8:30:16 PM (10 days ago)

Author:

aslmd

Message:

MESOSCALE: use precompiling flags to hide instructions related to parallel computations (we consider physics as being like a 1D model without any attached dynamical core when we compile).

File:

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

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

@@ -25 +25 @@
 
       use datafile_mod, only: datadir
+#ifndef MESOSCALE
       USE mod_phys_lmdz_para, ONLY: is_master
       USE mod_phys_lmdz_transfert_para, ONLY: bcast
+#endif
       use nlte_paramdef_h, only: nztabul, nb, nisot, indexisot
       use nlte_commons_h, only: elow, deltanu, lnpnbtab, tstar11tab
@@ -43 +45 @@
       character isotcode*2
 
-
 c     formats
  132  format (i2)
@@ -57 +58 @@
       lun2 = 2
 
+#ifndef MESOSCALE
       if(is_master) then
-
+#endif
       do k=1,nisot
          write (isotcode,132) indexisot(k)
@@ -74 +76 @@
          close (lun2)
       end do
-
+#ifndef MESOSCALE
       endif !      if(is_master)
 
       call bcast(elow)
       call bcast(deltanu)
+#endif
 
       a1_010_000 = 1.3546d00
@@ -88 +91 @@
 
 c     *** Old LeeESCTVCISO_dlvr11 ***
-
+#ifndef MESOSCALE
       if(is_master) then
-
+#endif
       open( 11, file=trim(datadir)//
      $     '/NLTEDAT/parametp_Tstar_IAA1204.dat' )
@@ -108 +111 @@
       close (12)
 
-
+#ifndef MESOSCALE
       endif !is_master
 
@@ -120 +123 @@
       call bcast(vc310tab)
       call bcast(vc410tab)
+#endif
 
       xx=xx