/[MITgcm]/MITgcm/pkg/atm_compon_interf/atm_store_qshortwave.F
ViewVC logotype

Diff of /MITgcm/pkg/atm_compon_interf/atm_store_qshortwave.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22