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

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/phys_state_var_init_mod.F90 (modified) (3 diffs)

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

@@ -66 +66 @@
       use paleoclimate_mod, ONLY: end_paleoclimate_h,ini_paleoclimate_h
       use netcdf
+#ifndef MESOSCALE
       USE mod_phys_lmdz_para, ONLY: is_master,bcast
+#endif
 
       IMPLICIT NONE
@@ -82 +84 @@
       integer       :: nslope_read
 
+
       filename = "startfi.nc"
+#ifndef MESOSCALE
       if(is_master) then
+#endif
         status = nf90_open(filename, nf90_nowrite, ncid)
         if (status /= nf90_noerr) then
@@ -100 +105 @@
           endif
         endif
+#ifndef MESOSCALE
       endif
       call bcast(nslope)
+#endif
 
       ! set dimension and allocate arrays in tracer_mod