pkg/atm_compon_interf/cpl_output.F

46cf0794c0 Jean*0001 #include "CPP_EEOPTIONS.h"
                0002
                0003 CStartOfInterFace
                0004       SUBROUTINE CPL_OUTPUT( myTime, myIter, myThid )
                0005 C     *==========================================================*
                0006 C     | SUBROUTINE CPL_OUTPUT
                0007 C     | o Write CPL time-average output
                0008 C     | - Atmospheric version -
                0009 C     *==========================================================*
                0010 C     | Empty S/R for now.
                0011 C     *==========================================================*
                0012       IMPLICIT NONE
                0013
                0014 C     === Global variables ===
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
                0018
                0019 C     == Routine arguments ==
                0020 C     myTime - Current time of simulation ( s )
                0021 C     myIter - Iteration number
                0022 C     myThid - Number of this instance of the routine
                0023       _RL     myTime
                0024       INTEGER myIter
                0025       INTEGER myThid
                0026 CEndOfInterface
                0027
                0028 #ifdef COMPONENT_MODULE
                0029
                0030 C     == Local variables ==
                0031
                0032 #endif /* COMPONENT_MODULE */
                0033
                0034       RETURN
                0035       END