Changeset 4008 for trunk/LMDZ.MARS/libf/phymars/nirdata.F90

Timestamp:

Jan 14, 2026, 8:30:16 PM (12 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/nirdata.F90 (modified) (4 diffs)

trunk/LMDZ.MARS/libf/phymars/nirdata.F90

@@ -23 +23 @@
 
     use datafile_mod, only: datadir
+#ifndef MESOSCALE
     USE mod_phys_lmdz_para, ONLY: is_master
     USE mod_phys_lmdz_transfert_para, ONLY: bcast
-
+#endif
     implicit none
 
@@ -31 +32 @@
 
     integer :: ind
-
+#ifndef MESOSCALE
     if (is_master) then
+#endif
       open(43,file=trim(datadir)//'/NIRcorrection_feb2011.dat', &
              status='old')
@@ -46 +48 @@
       enddo
       close(43)
-
+#ifndef MESOSCALE
     endif !  if(is_master) then
-
     call bcast(pres1d)
     call bcast(corgcm)
@@ -54 +55 @@
     call bcast(p1999)
     call bcast(alfa)
-
+#endif
   end subroutine NIR_leedat