pkg/streamice/streamice_dump.F

5ca83cd8f7 Dani*0001 #include "STREAMICE_OPTIONS.h"
16cc32c739 Mart*0002 #ifdef ALLOW_AUTODIFF
                0003 # include "AUTODIFF_OPTIONS.h"
                0004 #endif
                0005 #include "AD_CONFIG.h"
5ca83cd8f7 Dani*0006
                0007 CBOP
                0008 C     !ROUTINE: streamice_dump
                0009 C     !INTERFACE:
                0010       subroutine streamice_dump( mytime, myiter, myThid )
                0011
                0012 C     !DESCRIPTION: \bv
                0013 C     *==========================================================*
                0014 C     | SUBROUTINE streamice_dump                          |
                0015 C     *==========================================================*
                0016 C     \ev
                0017
                0018 C     !USES:
                0019       IMPLICIT NONE
                0020
                0021 C     == Global variables ===
                0022 #include "SIZE.h"
                0023 #include "EEPARAMS.h"
                0024 #include "PARAMS.h"
                0025 #include "STREAMICE.h"
                0026 #include "GRID.h"
                0027
                0028       LOGICAL  DIFFERENT_MULTIPLE
                0029       EXTERNAL DIFFERENT_MULTIPLE
                0030       INTEGER  IO_ERRCOUNT
                0031       EXTERNAL IO_ERRCOUNT
                0032
                0033 C     !INPUT/OUTPUT PARAMETERS:
                0034 C     == Routine arguments ==
                0035 C     myIter - iteration counter for this thread
                0036 C     myTime - time counter for this thread
                0037 C     myThid - Thread number for this instance of the routine.
                0038       integer myThid
                0039       integer myiter
                0040       _RL     mytime
                0041
                0042 #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_ADMTLM))
                0043
                0044 C     !LOCAL VARIABLES:
                0045 c     == local variables ==
                0046 C     suff - Hold suffix part of a filename
                0047 C     beginIOErrCount - Begin and end IO error counts
                0048 C     endIOErrCount
                0049 C     msgBuf - Error message buffer
                0050       CHARACTER*(MAX_LEN_FNAM) suff
                0051       INTEGER beginIOErrCount
                0052       INTEGER endIOErrCount
                0053       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0054
                0055 c     == end of interface ==
                0056 CEOP
                0057
                0058
                0059 #endif /* ALLOW_ADJOINT_RUN */
                0060
                0061       RETURN
                0062       END