/[MITgcm]/MITgcm/pkg/frazil/frazil_tendency_apply.F
ViewVC logotype

Diff of /MITgcm/pkg/frazil/frazil_tendency_apply.F

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

revision 1.1 by dimitri, Fri Mar 2 01:45:23 2012 UTC revision 1.2 by dimitri, Sat Mar 3 16:04:38 2012 UTC
# Line 35  CEOP Line 35  CEOP
35  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
36        INTEGER i, j        INTEGER i, j
37    
38        IF ( myPa_applyTendT ) THEN        DO j=jMin,jMax
39          DO j=jMin,jMax         DO i=iMin,iMax
40           DO i=iMin,iMax          gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj)
41            gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj)       &       + maskC(i,j,k,bi,bj) * FrazilForcingT(i,j,k,bi,bj)
42       &     + maskC(i,j,k,bi,bj) * frazil_TendT(i,j,k,bi,bj)       &       * recip_Cp * mass2rUnit * recip_drF(k)
43           ENDDO       &       * _recip_hFacC(i,j,k,bi,bj)
44          ENDDO         ENDDO
45        ENDIF        ENDDO
46  #endif /* ALLOW_FRAZIL */  #endif /* ALLOW_FRAZIL */
47    
48        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22