37 |
_RL phxFac,phyFac, psFac |
_RL phxFac,phyFac, psFac |
38 |
|
|
39 |
C Adams-Bashforth timestepping weights |
C Adams-Bashforth timestepping weights |
40 |
Caja IF (myIter .EQ. 0) THEN |
IF (myIter .EQ. 0) THEN |
41 |
Caja ab15=1.0 |
ab15=1.0 |
42 |
Caja ab05=0.0 |
ab05=0.0 |
43 |
Caja ELSE |
ELSE |
44 |
ab15=1.5+abeps |
ab15=1.5+abeps |
45 |
ab05=-0.5-abeps |
ab05=-0.5-abeps |
46 |
Caja ENDIF |
ENDIF |
47 |
|
|
48 |
C Step forward zonal velocity (store in Gu) |
C Step forward zonal velocity (store in Gu) |
49 |
psFac = pfFacMom*(1. _d 0 - implicSurfPress) |
psFac = pfFacMom*(1. _d 0 - implicSurfPress) |