Parent Directory | Revision Log | Revision Graph | Patch
revision 1.11 by heimbach, Wed Jun 7 01:55:13 2006 UTC | revision 1.12 by dfer, Wed Jul 19 14:34:19 2006 UTC | |
---|---|---|
# | Line 127 cph _RL objf_state_final (snx,sny, | Line 127 cph _RL objf_state_final (snx,sny, |
127 | integer kLocOut | integer kLocOut |
128 | #endif | #endif |
129 | ||
130 | #if (defined (ALLOW_COST_TEST) || defined (ALLOW_COST_ATLANTIC_HEAT)) | #ifdef ALLOW_COST |
131 | COMMON /COST_MEAN_R/ | COMMON /COST_MEAN_R/ |
132 | & cMeanTheta, cMeanUVel, cMeanVVel | & cMeanTheta, cMeanUVel, cMeanVVel |
133 | _RL cMeanTheta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) | _RL cMeanTheta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |