pkg/autodiff/autodiff_inadmode_set.F

2f0f89f640 Patr*0001 #include "AUTODIFF_OPTIONS.h"
                0002
a10c595eb6 Timo*0003       SUBROUTINE AUTODIFF_INADMODE_SET( myTime, myIter, myThid )
5127d1d91b Jean*0004 C     *==========================================================*
                0005 C     | SUBROUTINE AUTODIFF_INADMODE_SET
                0006 C     *==========================================================*
                0007
c59dd234b1 Jean*0008 C     !USES:
2f0f89f640 Patr*0009       IMPLICIT NONE
                0010 C     == Global variables ===
                0011 #include "SIZE.h"
                0012 #include "EEPARAMS.h"
                0013 #include "PARAMS.h"
                0014
c59dd234b1 Jean*0015 C     !INPUT/OUTPUT PARAMETERS:
                0016 C     myTime    :: Current time in simulation
                0017 C     myIter    :: Current iteration number
                0018 C     myThid    :: my Thread Id number
                0019       _RL     myTime
a10c595eb6 Timo*0020       INTEGER myIter
c59dd234b1 Jean*0021       INTEGER myThid
2f0f89f640 Patr*0022
5127d1d91b Jean*0023       RETURN
                0024       END