pkg/exf/exf_adjoint_snapshots.F

e21e05ebab Patr*0001 #include "EXF_OPTIONS.h"
98238efc8b Patr*0002
5459551853 Jean*0003 CBOP
                0004 C     !ROUTINE: EXF_ADJOINT_SNAPSHOTS
                0005 C     !INTERFACE:
                0006       SUBROUTINE EXF_ADJOINT_SNAPSHOTS(
                0007      I               iwhen, myTime, myIter, myThid )
                0008
                0009 C     !DESCRIPTION: \bv
                0010 C     *==========================================================*
e21e05ebab Patr*0011 C     | SUBROUTINE EXF_ADJOINT_SNAPSHOTS                         |
5459551853 Jean*0012 C     *==========================================================*
                0013 C     Forward version of EXF Adjoint-variable output subroutine:
                0014 C     does nothing to forward variables version (empty S/R) but
                0015 C     argument list matters (for ADM and TLM version and calls)
                0016 C     *==========================================================*
                0017 C     | SUBROUTINE EXF_ADJOINT_SNAPSHOTS                         |
                0018 C     *==========================================================*
                0019 C     \ev
98238efc8b Patr*0020
5459551853 Jean*0021 C     !USES:
                0022       IMPLICIT NONE
                0023 C     == Global variables ===
98238efc8b Patr*0024 #include "SIZE.h"
                0025 #include "EEPARAMS.h"
                0026 #include "PARAMS.h"
                0027
5459551853 Jean*0028 C     !INPUT/OUTPUT PARAMETERS:
                0029 C     iwhen  :: indicates where this S/R is called from
                0030 C     myIter :: Iteration counter for this thread
                0031 C     myTime :: Time counter for this thread
                0032 C     myThid :: Thread number for this instance of the routine.
                0033       INTEGER iwhen
                0034       _RL     myTime
                0035       INTEGER myIter
                0036       INTEGER myThid
                0037
                0038 C     !LOCAL VARIABLES:
                0039 C     msgBuf :: Error message buffer
                0040 c     CHARACTER*(MAX_LEN_MBUF) msgBuf
                0041 CEOP
                0042
                0043       RETURN
                0044       END