pkg/autodiff/dummy_in_dynamics.F

467a85a3d2 Patr*0001 #include "AUTODIFF_OPTIONS.h"
                0002
07957ea0b0 Jean*0003 CBOP
                0004 C     !ROUTINE: DUMMY_IN_DYNAMICS
                0005 C     !INTERFACE:
                0006       SUBROUTINE DUMMY_IN_DYNAMICS( myTime, myIter, myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE DUMMY_IN_DYNAMICS                             |
                0011 C     *==========================================================*
                0012 C     \ev
                0013
                0014 C     !USES:
467a85a3d2 Patr*0015       IMPLICIT NONE
                0016
07957ea0b0 Jean*0017 C     == Global variables ===
467a85a3d2 Patr*0018 #include "SIZE.h"
                0019 #include "EEPARAMS.h"
                0020 #include "PARAMS.h"
                0021
07957ea0b0 Jean*0022 C     !INPUT/OUTPUT PARAMETERS:
                0023 C     myTime :: time counter for this thread
                0024 C     myIter :: iteration counter for this thread
                0025 C     myThid :: Thread number for this instance of the routine.
                0026       _RL     myTime
                0027       INTEGER myIter
                0028       INTEGER myThid
467a85a3d2 Patr*0029
07957ea0b0 Jean*0030 C     !LOCAL VARIABLES:
                0031 CEOP
467a85a3d2 Patr*0032
07957ea0b0 Jean*0033       RETURN
                0034       END