pkg/aim_compon_interf/cpl_write_diags.F

C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/cpl_write_diags.F,v 1.1 2003/12/15 02:44:48 jmc Exp $
C $Name:  $

#include "CPP_EEOPTIONS.h"

CStartOfInterFace
      SUBROUTINE CPL_WRITE_DIAGS( myTime, myIter, myThid )
C     /==========================================================\
C     | SUBROUTINE CPL_WRITE_DIAGS                               |
C     | o Calculate CPL diagnostics                              |
C     | - Atmospheric version -                                  |
C     |==========================================================|
C     | Empty S/R for now.                                       |
C     \==========================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     == Routine arguments ==
C     myTime - Current time of simulation ( s )
C     myIter - Iteration number
C     myThid - Number of this instance of the routine
      _RL     myTime
      INTEGER myIter
      INTEGER myThid
CEndOfInterface

#ifdef COMPONENT_MODULE

C     == Local variables ==

#endif /* COMPONENT_MODULE */

      RETURN
      END


1	jmc	1.2	C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/cpl_write_diags.F,v 1.1 2003/12/15 02:44:48 jmc Exp $
2	jmc	1.1	C $Name: $
3
4			#include "CPP_EEOPTIONS.h"
5
6			CStartOfInterFace
7			SUBROUTINE CPL_WRITE_DIAGS( myTime, myIter, myThid )
8			C /==========================================================\
9			C \| SUBROUTINE CPL_WRITE_DIAGS \|
10			C \| o Calculate CPL diagnostics \|
11			C \| - Atmospheric version - \|
12			C \|==========================================================\|
13			C \| Empty S/R for now. \|
14			C \==========================================================/
15			IMPLICIT NONE
16
17			C === Global variables ===
18			#include "SIZE.h"
19			#include "EEPARAMS.h"
20			#include "PARAMS.h"
21
22			C == Routine arguments ==
23			C myTime - Current time of simulation ( s )
24			C myIter - Iteration number
25			C myThid - Number of this instance of the routine
26			_RL myTime
27			INTEGER myIter
28			INTEGER myThid
29			CEndOfInterface
30
31			#ifdef COMPONENT_MODULE
32
33			C == Local variables ==
34
35			#endif /* COMPONENT_MODULE */
36
37			RETURN
38			END
39
40
41