/[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.6 by jmc, Fri Sep 5 21:04:34 2014 UTC revision 1.7 by jmc, Wed Jan 21 14:35:16 2015 UTC
# Line 529  C         conversion from W/m^2/r_unit t Line 529  C         conversion from W/m^2/r_unit t
529          DO j=0,sNy+1          DO j=0,sNy+1
530            DO i=0,sNx+1            DO i=0,sNx+1
531              gT_arr(i,j) = gT_arr(i,j)              gT_arr(i,j) = gT_arr(i,j)
532       &         + frictionHeating(i,j,k,bi,bj)       &         + frictionHeating(i,j,k,bi,bj)*tmpFac
      &          *tmpFac*recip_rA(i,j,bi,bj)  
533       &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)       &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
534            ENDDO            ENDDO
535          ENDDO          ENDDO
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22