pkg/autodiff/myactivefunction.F

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