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

Timestamp:

May 28, 2015, 2:50:02 PM (10 years ago)

Author:

aslmd

Message:

commit 1431 removed important initializations. this is corrected. only modifications in moldiff_red were kept from 1431.

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 ------------------------------------------------------