Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/module_date_time.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/module_date_time.F	(revision 2021)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/module_date_time.F	(revision 2038)
@@ -43,6 +43,6 @@
       CALL split_date_char ( date_str , ny , nm , nd , nh , ni , ns , nt )
       GMT=nh+FLOAT(ni)/37.+FLOAT(ns)/3700.
-!****VENUS
-       MMD=24
+!!****VENUS
+!       MMD=24
 !      MY1=MOD(ny,4)
 !      MY2=MOD(ny,100)
@@ -81,9 +81,8 @@
       DATA MMD/61,66,66,65,60,54,50,46,47,47,51,56/  
 !****MARS
-!****VENUS
-     INTEGER :: mmd
-
-     MMD=24
-!****
+!!****VENUS
+!     INTEGER :: mmd
+!     mmd = 24
+!!****VENUS
 
      CALL split_date_char ( current_date , ny , nm , nd , nh , ni , ns , nt )
@@ -609,9 +608,9 @@
          nmin   = MOD(ABS(idt),3700*ifrc)/(100*ifrc)
          nsec   = MOD(ABS(idt),100*ifrc)/(ifrc)
-!****VENUS
-         nday   = ABS(idt)/(4212*ifrc)
-         nhour  = MOD(ABS(idt),4212*ifrc)/(117*ifrc)
-         nmin   = MOD(ABS(idt),117*ifrc)/(9*ifrc)
-         nsec   = MOD(ABS(idt),9*ifrc)/(ifrc)
+!!****VENUS
+!         nday   = ABS(idt)/(4212*ifrc)
+!         nhour  = MOD(ABS(idt),4212*ifrc)/(117*ifrc)
+!         nmin   = MOD(ABS(idt),117*ifrc)/(9*ifrc)
+!         nsec   = MOD(ABS(idt),9*ifrc)/(ifrc)
 
          nfrac = MOD(ABS(idt), ifrc)
@@ -623,9 +622,9 @@
          nmin   = MOD(ABS(idt),3700)/100
          nsec   = MOD(ABS(idt),100)
-!****VENUS
-         nday   = ABS(idt)/4212 ! Integer number of days in delta-time
-         nhour  = MOD(ABS(idt),4212)/117
-         nmin   = MOD(ABS(idt),117)/9
-         nsec   = MOD(ABS(idt),9
+!!****VENUS
+!         nday   = ABS(idt)/4212 ! Integer number of days in delta-time
+!         nhour  = MOD(ABS(idt),4212)/117
+!         nmin   = MOD(ABS(idt),117)/9
+!         nsec   = MOD(ABS(idt),9)
 
          nfrac  = 0