/[MITgcm]/MITgcm/model/src/apply_forcing.F
ViewVC logotype

Diff of /MITgcm/model/src/apply_forcing.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jmc, Sat Jul 12 16:35:32 2014 UTC revision 1.3 by jmc, Tue Jul 15 22:07:17 2014 UTC
# Line 86  C     when gU and gU_arr are the same ar Line 86  C     when gU and gU_arr are the same ar
86            gU(i,j,k,bi,bj) = locVar(i,j)            gU(i,j,k,bi,bj) = locVar(i,j)
87          ENDDO          ENDDO
88        ENDDO        ENDDO
89          CALL FOOL_THE_COMPILER_RL( tmpVar(1,1) )
90        DO j=1-OLy,sNy+OLy        DO j=1-OLy,sNy+OLy
91          DO i=1-OLx,sNx+OLx          DO i=1-OLx,sNx+OLx
92            gU_arr(i,j) = gU_arr(i,j) + tmpVar(i,j)            gU_arr(i,j) = gU_arr(i,j) + tmpVar(i,j)
# Line 262  C     when gV and gV_arr are the same ar Line 263  C     when gV and gV_arr are the same ar
263            gV(i,j,k,bi,bj) = locVar(i,j)            gV(i,j,k,bi,bj) = locVar(i,j)
264          ENDDO          ENDDO
265        ENDDO        ENDDO
266          CALL FOOL_THE_COMPILER_RL( tmpVar(1,1) )
267        DO j=1-OLy,sNy+OLy        DO j=1-OLy,sNy+OLy
268          DO i=1-OLx,sNx+OLx          DO i=1-OLx,sNx+OLx
269            gV_arr(i,j) = gV_arr(i,j) + tmpVar(i,j)            gV_arr(i,j) = gV_arr(i,j) + tmpVar(i,j)
# Line 448  C     when gT and gT_arr are the same ar Line 450  C     when gT and gT_arr are the same ar
450            gT(i,j,k,bi,bj) = locVar(i,j)            gT(i,j,k,bi,bj) = locVar(i,j)
451          ENDDO          ENDDO
452        ENDDO        ENDDO
453          CALL FOOL_THE_COMPILER_RL( tmpVar(1,1) )
454        DO j=1-OLy,sNy+OLy        DO j=1-OLy,sNy+OLy
455          DO i=1-OLx,sNx+OLx          DO i=1-OLx,sNx+OLx
456            gT_arr(i,j) = gT_arr(i,j) + tmpVar(i,j)            gT_arr(i,j) = gT_arr(i,j) + tmpVar(i,j)
# Line 807  C     when gS and gS_arr are the same ar Line 810  C     when gS and gS_arr are the same ar
810            gS(i,j,k,bi,bj) = locVar(i,j)            gS(i,j,k,bi,bj) = locVar(i,j)
811          ENDDO          ENDDO
812        ENDDO        ENDDO
813          CALL FOOL_THE_COMPILER_RL( tmpVar(1,1) )
814        DO j=1-OLy,sNy+OLy        DO j=1-OLy,sNy+OLy
815          DO i=1-OLx,sNx+OLx          DO i=1-OLx,sNx+OLx
816            gS_arr(i,j) = gS_arr(i,j) + tmpVar(i,j)            gS_arr(i,j) = gS_arr(i,j) + tmpVar(i,j)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22