! source file: /sfs/fs6/home-geomar/smomw258/UVOK_1.1/Kiel_Feb_2019/source/mom/matrix.h !====================== include file "matrix.h" ========================== ! variables for extracting the matrix integer numtiles parameter (numtiles = km) character (10) :: tilename real tile(imt,km,jmw,numtiles) real Aexp(imt,km,jmw,numtiles) real Aimp(imt,km,jmw,numtiles) real dtmat, dtmatrix(km) common /MATRIX_FIELDS/ tile, Aexp, Aimp, dtmat, dtmatrix integer iTile(numtiles), ntilestart, ntileend integer stepCount integer expMatrixCounter, impMatrixCounter integer expMatrixWriteCount, impMatrixWriteCount real expMatrixWriteTime, impMatrixWriteTime common /MATRIX_PARAMS_I/iTile, ntilestart, ntileend, & stepCount, & expMatrixCounter, impMatrixCounter, & expMatrixWriteCount, impMatrixWriteCount common /MATRIX_PARAMS_R/ & expMatrixWriteTime, impMatrixWriteTime