pkg/autodiff/myactivefunction_ad.F

fe8c2f0d13 Patr*0001 #include "PACKAGES_CONFIG.h"
                0002 #include "CPP_OPTIONS.h"
                0003
                0004 CBOP
                0005 C     !INTERFACE:
9f5240b52a Jean*0006       SUBROUTINE admyActiveFunction(
                0007      &     mytmp3d, myThid, admytmp3d, admyactivetmp )
fe8c2f0d13 Patr*0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     *==========================================================*
                0011 C     \ev
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 C     == Global variables ===
                0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 #include "PARAMS.h"
                0019
                0020 C     !INPUT/OUTPUT PARAMETERS:
                0021 C     myThid - Thread number for this instance of the routine.
                0022 C     myIter - Iteration number
                0023 C     myTime - Current time of simulation ( s )
                0024       _RL     mytmp3d(sNx,sNy,Nr,nSx,nSy)
                0025       _RL     admytmp3d(sNx,sNy,Nr,nSx,nSy)
                0026       _RL     admyactivetmp
                0027       INTEGER myThid
                0028
                0029 C     !LOCAL VARIABLES:
                0030 CEOP
                0031
                0032 cph   Do nothing and nothing will be done
                0033
                0034       RETURN
                0035       END