Changeset 1431 for trunk/LMDZ.MARS/libf/phymars/dyn1d

Timestamp:

May 28, 2015, 10:36:35 AM (10 years ago)

Author:

aslmd

Message:

LMDZ.MARS -- commented redundant call to comgeomphy and corrected call to areas in moldiff_red

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

@@ -13 +13 @@
       use control_mod, only: day_step
       use phyredem, only: physdem0,physdem1
-      use comgeomphy, only: initcomgeomphy
+!      use comgeomphy, only: initcomgeomphy
       use planete_h, only: year_day, periheli, aphelie, peri_day,
      &                     obliquit, emin_turb, lmixmin
@@ -117 +117 @@
 !      CALL init_phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
       CALL init_phys_lmdz(iim,jjm+1,llm,1,(/(jjm-1)*iim+2/))
-      call initcomgeomphy
+      !call initcomgeomphy
 
 c ------------------------------------------------------