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

Timestamp:

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

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

@@ -14 +14 @@
 use surfdat_h, only: TESicealbedo, TESice_Ncoef, TESice_Scoef, &
                      emisice, emissiv, albedice, albedodat, albedo_perennialco2
+#ifndef MESOSCALE
 USE mod_phys_lmdz_transfert_para, ONLY: bcast
 USE mod_phys_lmdz_para, ONLY: is_master
+#endif
 USE paleoclimate_mod, ONLY: paleoclimate
 
@@ -134 +136 @@
 use netcdf, only: nf90_open, NF90_NOWRITE, NF90_NOERR, &
                   nf90_strerror, nf90_inq_varid, nf90_get_var, nf90_close
+#ifndef MESOSCALE
 USE mod_phys_lmdz_para, ONLY: is_master
 USE mod_phys_lmdz_transfert_para, ONLY: bcast
+#endif
 
 implicit none
@@ -145 +149 @@
 real:: pi,radeg ! to convert radians to degrees
 character(len=20),parameter :: modname="TES_icecap_albedo"
+
 
 ! TES datasets: (hard coded fixed length/sizes; for now)
@@ -171 +176 @@
 
 ! 0. Preliminary stuff
-
+#ifndef MESOSCALE
 if(is_master) then
-
+#endif
 ! Load TES albedoes for Northern Hemisphere
   ierr=nf90_open(trim(datadir)//"/npsc_albedo.nc",NF90_NOWRITE,nid)
@@ -244 +249 @@
     endif
   endif
-
   ierr=nf90_close(nid)
 
@@ -298 +302 @@
   zls_old=-999 ! dummy initialization
 
+#ifndef MESOSCALE
 endif !is_master
 
@@ -309 +314 @@
     call bcast(zls_old)
     call bcast(radeg)
+#endif
 
 end subroutine read_TES_icecap_albedo