Parent Directory | Revision Log | Revision Graph | Patch
revision 1.2 by adcroft, Tue May 29 14:01:37 2001 UTC | revision 1.3 by adcroft, Tue Jul 31 15:01:33 2001 UTC | |
---|---|---|
# | Line 31 C == Local variables == | Line 31 C == Local variables == |
31 | _RL ab15,ab05 | _RL ab15,ab05 |
32 | ||
33 | C Adams-Bashforth timestepping weights | C Adams-Bashforth timestepping weights |
34 | ab15 = 1.+ tauAB | IF (myIter .EQ. 0) THEN |
35 | ab05 = -tauAB | ab15=1.0 |
36 | ab05=0.0 | |
37 | ELSE | |
38 | ab15=1.+tauAB | |
39 | ab05=-tauAB | |
40 | ENDIF | |
41 | ||
42 | C Step forward temperature | C Step forward temperature |
43 | DO j=jMin,jMax | DO j=jMin,jMax |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |