pkg/autodiff/dummy_for_etan.F

52dd931a85 Timo*0001 #include "AUTODIFF_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: DUMMY_FOR_ETAN
                0005 C     !INTERFACE:
                0006       SUBROUTINE DUMMY_FOR_ETAN( myTime, myIter, myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE DUMMY_FOR_ETAN                                |
                0011 C     *==========================================================*
                0012 C     \ev
                0013
                0014 C     !USES:
                0015       IMPLICIT NONE
                0016
                0017 C     == Global variables ===
                0018 #include "SIZE.h"
                0019 #include "EEPARAMS.h"
                0020 #include "PARAMS.h"
                0021
                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
                0029
                0030 C     !LOCAL VARIABLES:
                0031 CEOP
                0032
                0033       RETURN
                0034       END