Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:38:14 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       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