pkg/mypackage/mypackage_calc_rhs.F

5b0902e193 Dimi*0001 #include "MYPACKAGE_OPTIONS.h"
                0002
                0003 CBOP
                0004 C !ROUTINE: MYPACKAGE_CALC_RHS
                0005
                0006 C !INTERFACE: ==========================================================
                0007       SUBROUTINE MYPACKAGE_CALC_RHS(
8bfe566349 Jean*0008      I                     myTime, myIter, myThid )
5b0902e193 Dimi*0009
                0010 C !DESCRIPTION:
                0011 C Calculate custom tendency terms outside k-loop in DO_OCEANIC_PHYS
                0012
                0013 C !USES: ===============================================================
                0014       IMPLICIT NONE
64811cb024 Jean*0015 C     == Global variables ===
8bfe566349 Jean*0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 c#include "PARAMS.h"
64811cb024 Jean*0019 C  put following include within #ifdef in case this file is copied to local
                0020 C  code dir but pkg/mypackage is not compiled (missing file MYPACKAGE.h).
                0021 c#ifdef ALLOW_MYPACKAGE
                0022 c# include "MYPACKAGE.h"
                0023 c#endif
5b0902e193 Dimi*0024
                0025 C !INPUT PARAMETERS: ===================================================
                0026 C myTime    :: Current time in simulation
                0027 C myIter    :: Current time-step number
                0028 C myThid    :: my Thread Id number
                0029       _RL     myTime
                0030       INTEGER myIter, myThid
                0031
                0032 C !OUTPUT PARAMETERS: ==================================================
                0033
64811cb024 Jean*0034 #ifdef ALLOW_MYPACKAGE
5b0902e193 Dimi*0035 C !LOCAL VARIABLES: ====================================================
8bfe566349 Jean*0036 C bi,bj     :: Tile indices
                0037       INTEGER bi, bj
5b0902e193 Dimi*0038 CEOP
                0039
8bfe566349 Jean*0040 C--   Loops on tile indices bi,bj
                0041       DO bj=myByLo(myThid),myByHi(myThid)
                0042        DO bi=myBxLo(myThid),myBxHi(myThid)
                0043
                0044 C--   Calculate custom tendency terms ...
                0045
                0046 C--   end bi,bj loops.
                0047        ENDDO
                0048       ENDDO
5b0902e193 Dimi*0049
64811cb024 Jean*0050 #endif /* ALLOW_MYPACKAGE */
                0051
5b0902e193 Dimi*0052       RETURN
                0053       END