/[MITgcm]/MITgcm/pkg/cal/cal_stepsperday.F
ViewVC logotype

Diff of /MITgcm/pkg/cal/cal_stepsperday.F

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

revision 1.2 by edhill, Thu Oct 9 04:19:19 2003 UTC revision 1.3 by jmc, Tue Apr 3 15:20:29 2012 UTC
# Line 55  c     == local variables == Line 55  c     == local variables ==
55        integer final        integer final
56        integer finalsecs        integer finalsecs
57        integer ierr        integer ierr
58          integer modelstepsperday
59    
60  c     == end of interface ==  c     == end of interface ==
61    
# Line 67  c     == end of interface == Line 68  c     == end of interface ==
68        final       = modelenddate(1)        final       = modelenddate(1)
69    
70        if (present .lt. final) then        if (present .lt. final) then
71    C       modelstepsperday = cal_nStepDay(mythid)
72    C-jmc: inline Function "cal_nStepDay":
73            modelstepsperday = secondsperday/nint(modelstep)
74          numsteps = modelstepsperday -          numsteps = modelstepsperday -
75       &             int(presentsecs/modelstep)       &             int(presentsecs/modelstep)
76        else if (present .eq. final) then        else if (present .eq. final) then
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22