![]() |
|
|||
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 UTC6d54cf9ca1 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
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |
![]() ![]() |