/[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.3 by jmc, Tue Jul 15 22:07:17 2014 UTC revision 1.4 by jmc, Fri Jul 25 18:52:41 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) )  C-    not needed since APPLY_FORCING_U is no longer called with argument gU
90    c     CALL FOOL_THE_COMPILER_RL( tmpVar(1,1) )
91        DO j=1-OLy,sNy+OLy        DO j=1-OLy,sNy+OLy
92          DO i=1-OLx,sNx+OLx          DO i=1-OLx,sNx+OLx
93            gU_arr(i,j) = gU_arr(i,j) + tmpVar(i,j)            gU_arr(i,j) = gU_arr(i,j) + tmpVar(i,j)
# Line 263  C     when gV and gV_arr are the same ar Line 264  C     when gV and gV_arr are the same ar
264            gV(i,j,k,bi,bj) = locVar(i,j)            gV(i,j,k,bi,bj) = locVar(i,j)
265          ENDDO          ENDDO
266        ENDDO        ENDDO
267        CALL FOOL_THE_COMPILER_RL( tmpVar(1,1) )  C-    not needed since APPLY_FORCING_V is no longer called with argument gV
268    c     CALL FOOL_THE_COMPILER_RL( tmpVar(1,1) )
269        DO j=1-OLy,sNy+OLy        DO j=1-OLy,sNy+OLy
270          DO i=1-OLx,sNx+OLx          DO i=1-OLx,sNx+OLx
271            gV_arr(i,j) = gV_arr(i,j) + tmpVar(i,j)            gV_arr(i,j) = gV_arr(i,j) + tmpVar(i,j)
# Line 450  C     when gT and gT_arr are the same ar Line 452  C     when gT and gT_arr are the same ar
452            gT(i,j,k,bi,bj) = locVar(i,j)            gT(i,j,k,bi,bj) = locVar(i,j)
453          ENDDO          ENDDO
454        ENDDO        ENDDO
455        CALL FOOL_THE_COMPILER_RL( tmpVar(1,1) )  C-    not needed since APPLY_FORCING_T is no longer called with argument gT
456    c     CALL FOOL_THE_COMPILER_RL( tmpVar(1,1) )
457        DO j=1-OLy,sNy+OLy        DO j=1-OLy,sNy+OLy
458          DO i=1-OLx,sNx+OLx          DO i=1-OLx,sNx+OLx
459            gT_arr(i,j) = gT_arr(i,j) + tmpVar(i,j)            gT_arr(i,j) = gT_arr(i,j) + tmpVar(i,j)
# Line 810  C     when gS and gS_arr are the same ar Line 813  C     when gS and gS_arr are the same ar
813            gS(i,j,k,bi,bj) = locVar(i,j)            gS(i,j,k,bi,bj) = locVar(i,j)
814          ENDDO          ENDDO
815        ENDDO        ENDDO
816        CALL FOOL_THE_COMPILER_RL( tmpVar(1,1) )  C-    not needed since APPLY_FORCING_S is no longer called with argument gS
817    c     CALL FOOL_THE_COMPILER_RL( tmpVar(1,1) )
818        DO j=1-OLy,sNy+OLy        DO j=1-OLy,sNy+OLy
819          DO i=1-OLx,sNx+OLx          DO i=1-OLx,sNx+OLx
820            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.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22