Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by cnh, Sun Feb 4 14:38:51 2001 UTC | revision 1.4 by heimbach, Tue Apr 10 22:35:27 2001 UTC | |
---|---|---|
# | Line 68 C o Apply amplitude filter and norma | Line 68 C o Apply amplitude filter and norma |
68 | phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx) | phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx) |
69 | ENDDO | ENDDO |
70 | ELSE | ELSE |
71 | WRITE(0,*) 'Error: gridLoc = ',gridLoc | WRITE(*,*) 'Error: gridLoc = ',gridLoc |
72 | STOP 'Error: gridLoc has illegal value' | STOP 'Error: gridLoc has illegal value' |
73 | ENDIF | ENDIF |
74 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |