Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:38:16 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       subroutine cal_MonthsPerYear(
                0004      I                              myiter,
                0005      I                              mytime,
                0006      O                              nmonths,
                0007      I                              mythid
                0008      &                            )
                0009 
                0010 c     ==================================================================
                0011 c     SUBROUTINE cal_MonthsPerYear
                0012 c     ==================================================================
                0013 c
                0014 c     o Given the iteration number during the integration and/or the
                0015 c       currenttime of integration return the number of months left in
                0016 c       the current calendar year including the one containing
                0017 c       currenttime/iter.
                0018 c              
                0019 c     started: Christian Eckert eckert@mit.edu  30-Jun-1999
                0020 c
                0021 c     changed: Christian Eckert eckert@mit.edu  29-Dec-1999
                0022 c
                0023 c              - restructured the original version in order to have a
                0024 c                better interface to the MITgcmUV.
                0025 c
                0026 c              Christian Eckert eckert@mit.edu  03-Feb-2000
                0027 c
                0028 c              - Introduced new routine and function names, cal_<NAME>,
                0029 c                for verion 0.1.3.
                0030 c
                0031 c     ==================================================================
                0032 c     SUBROUTINE cal_MonthsPerYear
                0033 c     ==================================================================
                0034 
                0035       implicit none
                0036 
                0037 c     == global variables ==
                0038 
                0039 #include "cal.h"
                0040 
                0041 c     == routine arguments ==
                0042 
                0043       integer myiter
                0044       _RL     mytime
                0045       integer nmonths
                0046       integer mythid
                0047 
                0048 c     == local variables ==
                0049 
                0050       integer mydate(4)
                0051       integer present
                0052       integer final
                0053 
                0054 c     == end of interface ==
                0055 
                0056       call cal_GetDate( myiter, mytime, mydate, mythid )
                0057 
                0058       present = mydate(1)/10000
                0059       final   = modelenddate(1)/10000
                0060 
                0061       if (present .eq. final) then
                0062         present = mod(mydate(1)/100,100)
                0063         final   = mod(modelenddate(1)/100,100)
                0064 ce      nmonths = final - present + 1
                0065       else
                0066         present = mod(mydate(1)/100,100)
                0067         final   = nmonthyear
                0068 ce      nmonths = nmonthyear - mod(mydate(1)/100,100) + 1
                0069       endif
                0070       nmonths = final - present + 1
                0071 
                0072       return
                0073       end