darwin3 |
|
|
|
|||
File indexing completed on 2024-12-17 18:33:19 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 logical function cal_CompDates( 0004 I date_a, 0005 I date_b, 0006 I mythid 0007 & ) 0008 0009 c ================================================================== 0010 c FUNCTION cal_CompDates 0011 c ================================================================== 0012 c 0013 c o Compare two calendar dates or time interval. 0014 c 0015 c started: Christian Eckert eckert@mit.edu 24-Feb-2000 0016 c 0017 c - Introduced to calendar version 0.1.4 0018 c 0019 c changed: 0020 c 0021 c ================================================================== 0022 c FUNCTION cal_CompDates 0023 c ================================================================== 0024 0025 implicit none 0026 0027 c == global variables == 0028 0029 #include "cal.h" 0030 0031 c == routine arguments == 0032 0033 integer date_a(4) 0034 integer date_b(4) 0035 integer mythid 0036 0037 c == local variables == 0038 0039 c == end of interface == 0040 0041 if ( ( date_a(1) .eq. date_b(1) ) .and. 0042 & ( date_a(2) .eq. date_b(2) ) .and. 0043 & ( date_a(3) .eq. date_b(3) ) .and. 0044 & ( date_a(4) .eq. date_b(4) ) ) then 0045 cal_CompDates = .true. 0046 else 0047 cal_CompDates = .false. 0048 endif 0049 0050 return 0051 end 0052
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated from https://github.com/darwinproject/darwin3 by the 2.3.7-MITgcm-0.1 LXR engine. The LXR team |
|