** Warning **

Issuing rollback() due to DESTROY without explicit disconnect() of DBD::mysql::db handle dbname=MITgcm at /usr/local/share/lxr/lib/LXR/Common.pm line 1224.

Last-Modified: Fri, 31 Oct 2024 05:11:45 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/pkg/cal/cal_intmonths.F
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_IntMonths(
                0004      I                                mythid
                0005      &                              )
                0006 
                0007 c     ==================================================================
                0008 c     FUNCTION cal_IntMonths
                0009 c     ==================================================================
                0010 c
                0011 c     o Return the number of calendar months 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_IntMonths
                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 endmonth
                0044       integer startmonth
                0045       integer endyear
                0046       integer startyear
                0047 
                0048 c     == end of interface ==
                0049 
                0050       startmonth = mod(modelstartdate(1)/100,100)
                0051       endmonth   = mod(  modelenddate(1)/100,100)
                0052       startyear  = modelstartdate(1)/10000
                0053       endyear    = modelenddate(1)/10000
                0054 
                0055 ce    --> allow for previous iterations: niter0 !
                0056 ce        in this case one would need some more information about the 
                0057 ce        integration of the model, e.g. the global start and end dates.
                0058 
                0059       if ( startyear .ne. endyear ) then
                0060         cal_IntMonths = (nmonthyear - startmonth + 1) +
                0061      &               nmonthyear*(endyear - startyear - 1) +
                0062      &               endmonth
                0063       else
                0064         cal_IntMonths = endmonth - startmonth + 1
                0065       endif
                0066 
                0067       if ( ( modelenddate(2) .eq. 0) .and.
                0068      &     ( mod(modelenddate(1),100) .eq. 1) ) then
                0069         cal_IntMonths = cal_IntMonths - 1
                0070       endif
                0071 
                0072       return
                0073       end
                0074