/[MITgcm]/MITgcm_contrib/jscott/pkg_atm2d/calc_fileload.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/pkg_atm2d/calc_fileload.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jscott, Tue Aug 22 20:21:38 2006 UTC revision 1.3 by jscott, Tue May 1 19:38:47 2007 UTC
# Line 8  C Line 8  C
8    
9  C     *==========================================================*  C     *==========================================================*
10  C     | Determines weights to be used for external files.        |  C     | Determines weights to be used for external files.        |
 C     |   |  
 c     |   |  
11  C     *==========================================================*  C     *==========================================================*
12    
13        IMPLICIT NONE        IMPLICIT NONE
# Line 22  C     *================================= Line 20  C     *=================================
20  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
21  C     === Routine arguments ===  C     === Routine arguments ===
22  C     curTime - Simulation time (s) starting from year 0  C     curTime - Simulation time (s) starting from year 0
23    C     iloop - loop counter for main loop (coupled periods)
24    C     aloop - loop counter for atm time steps (within a coupled per.)
25    C     wght0, wght1 - weights of the two months to average
26    C     intime0 - first of the two month to average
27    C     intime1 - latter of the two months to average
28    C     iftime - return true if time to do a file re-load
29  C     myThid - Thread no. that called this routine.  C     myThid - Thread no. that called this routine.
30        _RL  curTime          _RL  curTime  
31        INTEGER iloop        INTEGER iloop
# Line 49  C     &          349.5D0*86400.D0, 380.5 Line 53  C     &          349.5D0*86400.D0, 380.5
53        _RL secYr        _RL secYr
54        DATA secYr /31536000.D0/   !ignore externForcingCycle from data        DATA secYr /31536000.D0/   !ignore externForcingCycle from data
55        _RL  ifcyc     ! time in current year, in seconds        _RL  ifcyc     ! time in current year, in seconds
56        INTEGER mn        ! loop counter        INTEGER mn     ! loop counter
57    
58        iftime=.FALSE.        iftime=.FALSE.
59        ifcyc=mod(curTime,secYr)        ifcyc=mod(curTime,secYr)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22