[RegCNET] initial date from 00Z, 06Z, 12Z and 18Z

[XUNQIANG BI]

Dear All:

The web version has just been updated, in which we added the fix for
problem about the initial date/time must be from 00GMT.

The main fix was done by Keith Chou (in zenitm.F)

Ckchow
        tlocap = xt24/60. + xlong(ill,jslc)/15.
Ckchow tlocap = gmt + xt24/60. + xlong(ill,jslc)/15.
Ckchow_

Actually, the Keith's fix was already in the web version we updated one
week ago, Except for the first day, the above fix works fine.

To fix the problem in the first day, we need call the subroutine
solar1.F every 6 hour (or even every timestep), instead of the original
every 24 hour.

To call solar1 every 6 hour, the fix is in tend.F,

Cbxq  if(lhour.eq.0.and.dabs(xtime).lt.0.00001
Cbxq &             .and.ldatez.ne.IDATE1) then
C     recalculate solar declination angle every 6 hour
       if(dabs(xtime).lt.0.00001.and.ldatez.ne.IDATE1) then
Cbxq_

Please let me know if there is any question.

Best regards,

Regards,
Bi Xunqiang
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   Dr. Xunqiang Bi         email:bixq at ictp.it
   Earth System Physics Group
   The Abdus Salam ICTP
   Strada Costiera, 11
   P.O. BOX 586, 34100 Trieste, ITALY
   Tel: +39-040-2240302  Fax: +39-040-2240449
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~