pkg/mypackage/mypackage_calc_rhs.F

C $Header:  $
C $Name:  $

#include "MYPACKAGE_OPTIONS.h"

CBOP
C !ROUTINE: MYPACKAGE_CALC_RHS

C !INTERFACE: ==========================================================
      SUBROUTINE MYPACKAGE_CALC_RHS(
     I        bi, bj, myTime, myIter, myThid )

C !DESCRIPTION:
C Calculate custom tendency terms outside k-loop in DO_OCEANIC_PHYS

C !USES: ===============================================================
      IMPLICIT NONE

C !INPUT PARAMETERS: ===================================================
C bi,bj     :: Tile indices
C myTime    :: Current time in simulation
C myIter    :: Current time-step number
C myThid    :: my Thread Id number
      INTEGER bi, bj
      _RL     myTime
      INTEGER myIter, myThid

C !OUTPUT PARAMETERS: ==================================================

C !LOCAL VARIABLES: ====================================================
CEOP

C- Calculate custom tendency terms ...

      RETURN
      END
1	C $Header: $
2	C $Name: $
3
4	#include "MYPACKAGE_OPTIONS.h"
5
6	CBOP
7	C !ROUTINE: MYPACKAGE_CALC_RHS
8
9	C !INTERFACE: ==========================================================
10	SUBROUTINE MYPACKAGE_CALC_RHS(
11	I bi, bj, myTime, myIter, myThid )
12
13	C !DESCRIPTION:
14	C Calculate custom tendency terms outside k-loop in DO_OCEANIC_PHYS
15
16	C !USES: ===============================================================
17	IMPLICIT NONE
18
19	C !INPUT PARAMETERS: ===================================================
20	C bi,bj :: Tile indices
21	C myTime :: Current time in simulation
22	C myIter :: Current time-step number
23	C myThid :: my Thread Id number
24	INTEGER bi, bj
25	_RL myTime
26	INTEGER myIter, myThid
27
28	C !OUTPUT PARAMETERS: ==================================================
29
30	C !LOCAL VARIABLES: ====================================================
31	CEOP
32
33	C- Calculate custom tendency terms ...
34
35	RETURN
36	END