39 |
|
|
40 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
41 |
|
|
42 |
C-- Add diagnostics to the (long) list |
C--- Add diagnostics to the (long) list of available diagnostics: |
43 |
|
|
44 |
|
C-- add diagnostics for viscosity coefficients: |
45 |
|
#ifdef ALLOW_MOM_VECINV |
46 |
|
diagName = 'VISCAH ' |
47 |
|
diagTitle = 'Harmonic Viscosity Coefficient in (m2/s) ' |
48 |
|
diagUnits = 'm^2/s ' |
49 |
|
diagCode = 'SM MR ' |
50 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
51 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
52 |
|
|
53 |
|
diagName = 'VISCA4 ' |
54 |
|
diagTitle = 'Biharmonic Viscosity Coefficient in (m4/s) ' |
55 |
|
diagUnits = 'm^4/s ' |
56 |
|
diagCode = 'SM MR ' |
57 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
58 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
59 |
|
#endif /* ALLOW_MOM_VECINV */ |
60 |
|
|
61 |
C-- add diagnostics of simple derivative quantities: |
C-- add diagnostics of simple derivative quantities: |
62 |
diagName = 'momKE ' |
diagName = 'momKE ' |