Parent Directory | Revision Log | Revision Graph | Patch
revision 1.165 by jmc, Sat Aug 3 01:38:17 2013 UTC | revision 1.166 by m_bates, Sun Sep 15 14:28:31 2013 UTC | |
---|---|---|
# | Line 116 C |-- CALC_GRAD_PHI_SURF | Line 116 C |-- CALC_GRAD_PHI_SURF |
116 | C | | C | |
117 | C |-- CALC_VISCOSITY | C |-- CALC_VISCOSITY |
118 | C | | C | |
119 | C |-- CALC_EDDY_STRESS | |
120 | C | | |
121 | C |-- CALC_PHI_HYD | C |-- CALC_PHI_HYD |
122 | C | | C | |
123 | C |-- MOM_FLUXFORM | C |-- MOM_FLUXFORM |
# | Line 419 C (copied) to a narrow strip outside | Line 421 C (copied) to a narrow strip outside |
421 | ENDIF | ENDIF |
422 | #endif /* ALLOW_OBCS */ | #endif /* ALLOW_OBCS */ |
423 | ||
424 | #ifdef ALLOW_EDDYPSI | |
425 | CALL CALC_EDDY_STRESS(bi,bj,myThid) | |
426 | #endif | |
427 | ||
428 | C-- Start of dynamics loop | C-- Start of dynamics loop |
429 | DO k=1,Nr | DO k=1,Nr |
430 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |