Parent Directory | Revision Log | Revision Graph | Patch
revision 1.26 by adcroft, Mon May 24 15:42:23 1999 UTC | revision 1.27 by adcroft, Tue Mar 14 17:47:25 2000 UTC | |
---|---|---|
# | Line 171 C defaults to 0.51 but can be | Line 171 C defaults to 0.51 but can be |
171 | & rA(I-1,J,bi,bj)/deltaTMom/deltaTMom | & rA(I-1,J,bi,bj)/deltaTMom/deltaTMom |
172 | & ) | & ) |
173 | IF ( aC .EQ. 0. ) THEN | IF ( aC .EQ. 0. ) THEN |
174 | pC(I,J,bi,bj) = 0. _d 0 | pC(I,J,bi,bj) = 1. _d 0 |
175 | ELSE | ELSE |
176 | pC(I,J,bi,bj) = 1. _d 0 / aC | pC(I,J,bi,bj) = 1. _d 0 / aC |
177 | ENDIF | ENDIF |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |