pkg/cal/cal_intsteps.F

C $Header: /u/gcmpack/MITgcm/pkg/cal/cal_intsteps.F,v 1.2 2003/10/09 04:19:19 edhill Exp $
C $Name:  $

#include "CAL_OPTIONS.h"

      integer function cal_IntSteps(
     I                               mythid
     &                             )

c     ==================================================================
c     FUNCTION cal_IntSteps
c     ==================================================================
c
c     o Return the number of model timesteps are to be made by the 
c       current model integration.
c
c              
c     started: Christian Eckert eckert@mit.edu  01-May-2000
c
c     changed: 
c
c     ==================================================================
c     FUNCTION cal_IntSteps
c     ==================================================================

      implicit none

c     == global variables ==

#include "cal.h"

c     == routine arguments ==

      integer mythid

c     == local variables ==

c     == end of interface ==

      cal_IntSteps = modelintsteps

      return
      end
1	C $Header: /u/gcmpack/MITgcm/pkg/cal/cal_intsteps.F,v 1.2 2003/10/09 04:19:19 edhill Exp $
2	C $Name: $
3
4	#include "CAL_OPTIONS.h"
5
6	integer function cal_IntSteps(
7	I mythid
8	& )
9
10	c ==================================================================
11	c FUNCTION cal_IntSteps
12	c ==================================================================
13	c
14	c o Return the number of model timesteps are to be made by the
15	c current model integration.
16	c
17	c
18	c started: Christian Eckert eckert@mit.edu 01-May-2000
19	c
20	c changed:
21	c
22	c ==================================================================
23	c FUNCTION cal_IntSteps
24	c ==================================================================
25
26	implicit none
27
28	c == global variables ==
29
30	#include "cal.h"
31
32	c == routine arguments ==
33
34	integer mythid
35
36	c == local variables ==
37
38	c == end of interface ==
39
40	cal_IntSteps = modelintsteps
41
42	return
43	end