128 |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
129 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
130 |
|
|
131 |
|
#ifndef EXCLUDE_KPP_DOUBLEDIFF |
132 |
|
diagName = 'KPPnuddt' |
133 |
|
diagTitle = 'Vertical double diffusion coefficient for heat' |
134 |
|
diagUnits = 'm^2/s ' |
135 |
|
diagCode = 'SM P UR ' |
136 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
137 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
138 |
|
|
139 |
|
diagName = 'KPPnudds' |
140 |
|
diagTitle = 'Vertical double diffusion coefficient for salt' |
141 |
|
diagUnits = 'm^2/s ' |
142 |
|
diagCode = 'SM P UR ' |
143 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
144 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
145 |
|
#endif /* ndef EXCLUDE_KPP_DOUBLEDIFF */ |
146 |
|
|
147 |
#ifdef ALLOW_SALT_PLUME |
#ifdef ALLOW_SALT_PLUME |
148 |
diagName = 'KPPpfrac' |
diagName = 'KPPpfrac' |
149 |
diagTitle = 'Salt plume flux fraction penetrating mixing layer' |
diagTitle = 'Salt plume flux fraction penetrating mixing layer' |