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 UTC6d54cf9ca1 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
| [ 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 |
|