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 UTC6d54cf9ca1 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
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |
|