Changeset 2038 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/module_date_time.F

Timestamp:

Nov 12, 2018, 8:29:29 PM (6 years ago)

Author:

aslmd

Message:

by default comment Venus time in mesoscale (Mars is default)

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/module_date_time.F (modified) (4 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/module_date_time.F

@@ -43 +43 @@
       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 +81 @@
       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 +608 @@
          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 +622 @@
          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