dgoldberg/streamice/streamice_dump.F

C $Header: /u/gcmpack/MITgcm/pkg/streamice/streamice_ad_dump.F,v 1.6 2009/08/27 18:00:01 jmc Exp $
C $Name:  $

#include "AD_CONFIG.h"
#include "PACKAGES_CONFIG.h"
#include "STREAMICE_OPTIONS.h"

CBOP
C     !ROUTINE: streamice_dump
C     !INTERFACE:
      subroutine streamice_dump( mytime, myiter, myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE streamice_dump                          |
C     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE

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

      LOGICAL  DIFFERENT_MULTIPLE
      EXTERNAL DIFFERENT_MULTIPLE
      INTEGER  IO_ERRCOUNT
      EXTERNAL IO_ERRCOUNT

C     !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
C     myIter - iteration counter for this thread
C     myTime - time counter for this thread
C     myThid - Thread number for this instance of the routine.
      integer myThid
      integer myiter
      _RL     mytime

#if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_ADMTLM))

C     !LOCAL VARIABLES:
c     == local variables ==
C     suff - Hold suffix part of a filename
C     beginIOErrCount - Begin and end IO error counts
C     endIOErrCount
C     msgBuf - Error message buffer
      CHARACTER*(MAX_LEN_FNAM) suff
      INTEGER beginIOErrCount
      INTEGER endIOErrCount
      CHARACTER*(MAX_LEN_MBUF) msgBuf

c     == end of interface ==
CEOP


#endif /* ALLOW_ADJOINT_RUN */

      RETURN
      END
1	heimbach	1.1	C $Header: /u/gcmpack/MITgcm/pkg/streamice/streamice_ad_dump.F,v 1.6 2009/08/27 18:00:01 jmc Exp $
2			C $Name: $
3
4			#include "AD_CONFIG.h"
5			#include "PACKAGES_CONFIG.h"
6			#include "STREAMICE_OPTIONS.h"
7
8			CBOP
9			C !ROUTINE: streamice_dump
10			C !INTERFACE:
11			subroutine streamice_dump( mytime, myiter, myThid )
12
13			C !DESCRIPTION: \bv
14			C ==========================================================
15			C \| SUBROUTINE streamice_dump \|
16			C ==========================================================
17			C \ev
18
19			C !USES:
20			IMPLICIT NONE
21
22			C == Global variables ===
23			#include "SIZE.h"
24			#include "EEPARAMS.h"
25			#include "PARAMS.h"
26			#include "STREAMICE.h"
27			#include "GRID.h"
28
29			LOGICAL DIFFERENT_MULTIPLE
30			EXTERNAL DIFFERENT_MULTIPLE
31			INTEGER IO_ERRCOUNT
32			EXTERNAL IO_ERRCOUNT
33
34			C !INPUT/OUTPUT PARAMETERS:
35			C == Routine arguments ==
36			C myIter - iteration counter for this thread
37			C myTime - time counter for this thread
38			C myThid - Thread number for this instance of the routine.
39			integer myThid
40			integer myiter
41			_RL mytime
42
43			#if (defined (ALLOW_ADJOINT_RUN) \|\| defined (ALLOW_ADMTLM))
44
45			C !LOCAL VARIABLES:
46			c == local variables ==
47			C suff - Hold suffix part of a filename
48			C beginIOErrCount - Begin and end IO error counts
49			C endIOErrCount
50			C msgBuf - Error message buffer
51			CHARACTER*(MAX_LEN_FNAM) suff
52			INTEGER beginIOErrCount
53			INTEGER endIOErrCount
54			CHARACTER*(MAX_LEN_MBUF) msgBuf
55
56			c == end of interface ==
57			CEOP
58
59
60			#endif /* ALLOW_ADJOINT_RUN */
61
62			RETURN
63			END