Parent Directory | Revision Log | Revision Graph
Merge from branch pre38: o essential mods for cubed sphere o debugged atmosphere, dynamcis + physics (aim) o new packages (mom_vecinv, mom_fluxform, ...)
1 | adcroft | 1.2 | *** ../../../model/src/dynamics.F Tue May 22 10:17:58 2001 |
2 | --- ./dynamics.F Tue May 29 09:44:11 2001 | ||
3 | *************** | ||
4 | *** 543,548 **** | ||
5 | --- 543,558 ---- | ||
6 | C-- end of thermodynamic k loop (Nr:1) | ||
7 | ENDDO | ||
8 | |||
9 | + Ccs- | ||
10 | + ENDDO | ||
11 | + ENDDO | ||
12 | + IF (staggerTimeStep.AND.useCubedSphereExchange) THEN | ||
13 | + _EXCH_XYZ_R8(gTnm1,myThid) | ||
14 | + _EXCH_XYZ_R8(gSnm1,myThid) | ||
15 | + ENDIF | ||
16 | + DO bj=myByLo(myThid),myByHi(myThid) | ||
17 | + DO bi=myBxLo(myThid),myBxHi(myThid) | ||
18 | + Ccs- | ||
19 | |||
20 | #ifdef ALLOW_AUTODIFF_TAMC | ||
21 | C? Patrick? What about this one? |
ViewVC Help | |
Powered by ViewVC 1.1.22 |