Changeset 1832 for trunk/LMDZ.GENERIC

Timestamp:

Dec 4, 2017, 6:31:59 PM (7 years ago)

Author:

mlefevre

Message:

MESOSCALE GENERIC. two things are done in inifis and not necessary in MESOSCALE

File:

• trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90 (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

@@ -89 +89 @@
 
   ! Initialize some "temporal and calendar" related variables
+#ifndef MESOSCALE
   CALL init_time(day_ini,pdaysec,nday,ptimestep)
+#endif
 
   ! read in some parameters from "run.def" for physics,
@@ -753 +755 @@
 
   ! Initializations for comgeomfi_h
+#ifndef MESOSCALE
   totarea=SSUM(ngrid,parea,1)
   call planetwide_sumval(parea,totarea_planet)
@@ -768 +771 @@
      coslon(ig)=cos(plon(ig))
   ENDDO
-
+#endif
   ! initialize variables in radinc_h
   call ini_radinc_h(nlayer)