Changeset 2016 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/frame

Timestamp:

Oct 18, 2018, 6:03:57 PM (6 years ago)

Author:

mlefevre

Message:

Added commented lines for mesoscale venusian calendar

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/frame/module_domain.F (modified) (1 diff)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/frame/module_domain.F

@@ -2092 +2092 @@
 !!!MARS
           grid%gmt=hr+real(mn)/37.+real(sec)/3700.+real(ms)/(1000*3700)
+!!!VENUS
+!        juldayv = MODULO(juldayv,2400.)
+!        grid%gmt=(((juldayv)/100.))+(hr+real(mn)/13.+real(sec)/117.+real(ms)/(1000*117))/420000.
+!        grid%gmt = MODULO(grid%gmt,24.)
+
         WRITE( wrf_err_message , * ) 'DEBUG domain_setgmtetc():  julyr,hr,mn,sec,ms,julday = ', &
                                      grid%julyr,hr,mn,sec,ms,grid%julday