pkg/autodiff/autodiff_inadmode_unset_g.F

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