Back to home page

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 UTC
6d54cf9ca1 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