Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:38:17 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
6d54cf9ca1 Ed H*0001 #include "CAL_OPTIONS.h"
a63ed37559 Patr*0002 
                0003       subroutine cal_WeekDay(
                0004      I                        indate,
                0005      O                        daystring,
                0006      I                        mythid
                0007      &                      )
                0008 
                0009 c     ==================================================================
                0010 c     SUBROUTINE cal_WeekDay
                0011 c     ==================================================================
                0012 c
                0013 c     o Given a calendar date return the weekday as a string.
                0014 c
                0015 c     started: Christian Eckert eckert@mit.edu  19-Jan-1999
                0016 c
                0017 c     changed: Christian Eckert eckert@mit.edu  03-Feb-2000
                0018 c
                0019 c              - Introduced new routine and function names, cal_<NAME>,
                0020 c                for verion 0.1.3.
                0021 c
                0022 c     ==================================================================
                0023 c     SUBROUTINE cal_WeekDay
                0024 c     ==================================================================
                0025 
                0026       implicit none
                0027 
                0028 c     == global variables ==
                0029 
                0030 #include "cal.h"
                0031 
                0032 c     == routine arguments ==
                0033 
                0034       integer indate(4)
                0035       character*(3) daystring
                0036       integer mythid
                0037 
                0038 c     == local variables ==
                0039 
                0040       integer nweekday
                0041       integer numberofdays(4)
                0042 
                0043 c     == end of interface ==
                0044 
                0045 c     Determine the day of the week.
                0046       call cal_TimePassed( refdate, indate, numberofdays, mythid )
                0047       nweekday = mod(numberofdays(1),7)+1
                0048 
                0049       daystring = dayofweek(nweekday)
                0050 
                0051       return
                0052       end
                0053