Using the following code if you wanted to replace āGā with āAā.
CODE
: 2,6 s/G/A/gc
if (k .LT. ground) then cay(i,j,k) = ( 1.0-sigmaG*dt / (2.0*epsG) ) / & (1.0 + sigmaG*dt/(2.0*epsG) ) cby(i,j,k) = (dt/epsG) / ( 1.0+sigmaG*dt / (2.0*epsG) ) endif
This searches from line 2 through 6 and prompts you every time to make the changes.