Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by jmc, Mon Dec 15 02:44:48 2003 UTC | revision 1.2 by jmc, Sun Apr 18 15:38:45 2004 UTC | |
---|---|---|
# | Line 54 c DO bi=myBxLo(myThid),myBxHi(myThi | Line 54 c DO bi=myBxLo(myThid),myBxHi(myThi |
54 | DO I=1,sNx | DO I=1,sNx |
55 | II = (sNx)*(J-1)+I | II = (sNx)*(J-1)+I |
56 | Qshortwave(I,J,bi,bj) = | Qshortwave(I,J,bi,bj) = |
57 | & Qshortwave(I,J,bi,bj) - SSR(II,myThid)*cplTimeFraction | & Qshortwave(I,J,bi,bj) - SSR(II,2,myThid)*cplTimeFraction |
58 | ENDDO | ENDDO |
59 | ENDDO | ENDDO |
60 | c ENDDO | c ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |