pkg/matrix/matrix_output.F

5d0c92356b Jean*0001 #include "MATRIX_OPTIONS.h"
0bd1f1cd5b Sama*0002
                0003 CBOP
                0004 C     !ROUTINE: MATRIX_OUTPUT
                0005
                0006 C     !INTERFACE:
8f6dc1243d Jean*0007       SUBROUTINE MATRIX_OUTPUT(
5d0c92356b Jean*0008      I                  myTime, myIter, myThid )
0bd1f1cd5b Sama*0009
                0010 C     !DESCRIPTION:
                0011 C     This is the controlling routine for MATRIX output. It is
                0012 C     called from DO_THE_MODEL_IO.
                0013
                0014 C     !USES:
                0015       IMPLICIT NONE
                0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 #include "PARAMS.h"
                0019
                0020 C     !INPUT PARAMETERS:
                0021 C     myTime    :: model time
5d0c92356b Jean*0022 C     myIter    :: time-step number
0bd1f1cd5b Sama*0023 C     myThid    :: thread number
5d0c92356b Jean*0024       _RL myTime
0bd1f1cd5b Sama*0025       INTEGER myIter
                0026       INTEGER myThid
                0027 CEOP
                0028
                0029 #ifdef ALLOW_MATRIX
                0030 C     !LOCAL VARIABLES:
8f6dc1243d Jean*0031
5d0c92356b Jean*0032       IF ( myIter.EQ.nIter0 ) THEN
8f6dc1243d Jean*0033 C       Write grid info for pkg/matrix
0bd1f1cd5b Sama*0034         CALL MATRIX_WRITE_GRID( myThid )
5d0c92356b Jean*0035       ELSE
                0036 C       Write matrix to file
                0037         CALL MATRIX_WRITE_TENDENCY( myTime, myIter, myThid )
0bd1f1cd5b Sama*0038       ENDIF
8f6dc1243d Jean*0039
0bd1f1cd5b Sama*0040 #endif /* ALLOW_MATRIX */
                0041
                0042       RETURN
                0043       END