/[MITgcm]/MITgcm_contrib/osse/codemod/mom_fluxform.F
ViewVC logotype

Diff of /MITgcm_contrib/osse/codemod/mom_fluxform.F

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

revision 1.2 by afe, Wed Jun 23 19:56:48 2004 UTC revision 1.3 by afe, Thu Jun 24 17:52:38 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        IF (bUseCylindricalGrid) THEN        IF (usingCylindricalGrid) THEN
460           CALL MOM_U_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid)           CALL MOM_U_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid)
461           DO j=jMin,jMax           DO j=jMin,jMax
462            DO i=iMin,iMax            DO i=iMin,iMax
# Line 617  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 (bUseCylindricalGrid) THEN        IF (usingCylindricalGrid) THEN
621           CALL MOM_V_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid)           CALL MOM_V_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid)
622           DO j=jMin,jMax           DO j=jMin,jMax
623              DO i=iMin,iMax              DO i=iMin,iMax
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22