/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_dump.F
ViewVC logotype

Contents of /MITgcm_contrib/dgoldberg/streamice/streamice_dump.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Fri Jul 27 21:07:13 2012 UTC (12 years, 11 months ago) by heimbach
Branch: MAIN
Enable transient I/O

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

  ViewVC Help
Powered by ViewVC 1.1.22