MITgcm |
|
|
|
|||
File indexing completed on 2018-03-02 18:38:15 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 integer function cal_IntDays( 0004 I mythid 0005 & ) 0006 0007 c ================================================================== 0008 c FUNCTION cal_IntDays 0009 c ================================================================== 0010 c 0011 c o Return the number of calendar days that are affected by the 0012 c current model integration. 0013 c 0014 c 0015 c started: Christian Eckert eckert@mit.edu 30-Jun-1999 0016 c 0017 c changed: Christian Eckert eckert@mit.edu 29-Dec-1999 0018 c 0019 c - restructured the original version in order to have a 0020 c better interface to the MITgcmUV. 0021 c 0022 c Christian Eckert eckert@mit.edu 03-Feb-2000 0023 c 0024 c - Introduced new routine and function names, cal_<NAME>, 0025 c for verion 0.1.3. 0026 c 0027 c ================================================================== 0028 c FUNCTION cal_IntDays 0029 c ================================================================== 0030 0031 implicit none 0032 0033 c == global variables == 0034 0035 #include "cal.h" 0036 0037 c == routine arguments == 0038 0039 integer mythid 0040 0041 c == local variables == 0042 0043 integer tempdate(4) 0044 integer timediff(4) 0045 0046 c == end of interface == 0047 0048 tempdate(1) = modelstartdate(1) 0049 tempdate(2) = 0 0050 tempdate(3) = modelstartdate(3) 0051 tempdate(4) = modelstartdate(4) 0052 0053 call cal_SubDates( modelenddate, tempdate, timediff, mythid ) 0054 0055 if ( timediff(2) .ne. 0 ) then 0056 cal_IntDays = timediff(1) + 1 0057 else 0058 cal_IntDays = timediff(1) 0059 endif 0060 0061 return 0062 end
| [ 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 |
|