/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_fluxform.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_fluxform.F

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

revision 1.19 by afe, Thu Jun 24 20:25:44 2004 UTC revision 1.20 by afe, Thu Oct 21 21:14:02 2004 UTC
# Line 456  C      o Non-hydrosatic metric terms Line 456  C      o Non-hydrosatic metric terms
456          ENDDO          ENDDO
457         ENDDO         ENDDO
458                                                                                                                                                                    
459          ENDIF
460        IF (usingCylindricalGrid) THEN        IF (usingCylindricalGrid) THEN
461           CALL MOM_U_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid)           CALL MOM_U_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid)
462           DO j=jMin,jMax           DO j=jMin,jMax
# Line 463  C      o Non-hydrosatic metric terms Line 464  C      o Non-hydrosatic metric terms
464               gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mTFacU*mT(i,j)               gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mTFacU*mT(i,j)
465            ENDDO            ENDDO
466         ENDDO         ENDDO
       ENDIF  
467                                                                                                                                                                    
468        ENDIF        ENDIF
469  C--   Set du/dt on boundaries to zero  C--   Set du/dt on boundaries to zero
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22