/[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.18 by adcroft, Mon May 24 20:03:49 2004 UTC revision 1.19 by afe, Thu Jun 24 20:25:44 2004 UTC
# Line 455  C      o Non-hydrosatic metric terms Line 455  C      o Non-hydrosatic metric terms
455           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)
456          ENDDO          ENDDO
457         ENDDO         ENDDO
458                                                                                    
459          IF (usingCylindricalGrid) THEN
460             CALL MOM_U_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid)
461             DO j=jMin,jMax
462              DO i=iMin,iMax
463                 gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mTFacU*mT(i,j)
464              ENDDO
465           ENDDO
466          ENDIF
467                                                                                    
468        ENDIF        ENDIF
   
469  C--   Set du/dt on boundaries to zero  C--   Set du/dt on boundaries to zero
470        DO j=jMin,jMax        DO j=jMin,jMax
471         DO i=iMin,iMax         DO i=iMin,iMax
# Line 608  C      o Spherical polar grid metric ter Line 617  C      o Spherical polar grid metric ter
617          ENDDO          ENDDO
618         ENDDO         ENDDO
619        ENDIF        ENDIF
620          IF (usingCylindricalGrid) THEN
621             CALL MOM_V_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid)
622             DO j=jMin,jMax
623                DO i=iMin,iMax
624                   gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mTFacV*mT(i,j)
625                ENDDO
626             ENDDO
627          ENDIF
628    
629  C--   Set dv/dt on boundaries to zero  C--   Set dv/dt on boundaries to zero
630        DO j=jMin,jMax        DO j=jMin,jMax
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22