pkg/matrix/matrix_write_grid.F

5d0c92356b Jean*0001 #include "MATRIX_OPTIONS.h"
a9544d2f65 Sama*0002
                0003       SUBROUTINE MATRIX_WRITE_GRID( myThid )
                0004
                0005       IMPLICIT NONE
5d0c92356b Jean*0006
a9544d2f65 Sama*0007 #include "SIZE.h"
                0008 #include "EEPARAMS.h"
                0009 #include "PARAMS.h"
                0010 #include "GRID.h"
5d0c92356b Jean*0011
a9544d2f65 Sama*0012       INTEGER myThid
5d0c92356b Jean*0013
a9544d2f65 Sama*0014 #ifdef ALLOW_MATRIX
                0015
                0016 C     local variables:
                0017
                0018       IF (useMatrix) THEN
                0019         CALL WRITE_FLD_XY_RS( 'DXF',' ',DXF,0,myThid)
                0020         CALL WRITE_FLD_XY_RS( 'DYF',' ',DYF,0,myThid)
5d0c92356b Jean*0021       ENDIF
                0022
a9544d2f65 Sama*0023 #endif /* ALLOW_MATRIX */
5d0c92356b Jean*0024       RETURN
a9544d2f65 Sama*0025       END