/[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.30 by heimbach, Thu Nov 24 00:06:38 2005 UTC revision 1.31 by heimbach, Thu Dec 8 15:44:34 2005 UTC
# Line 354  C--   Tendency is minus divergence of th Line 354  C--   Tendency is minus divergence of th
354    
355  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
356  C-- account for 3.D divergence of the flow in rStar coordinate:  C-- account for 3.D divergence of the flow in rStar coordinate:
357    # ifndef DISABLE_RSTAR_CODE
358          IF ( select_rStar.GT.0 ) THEN          IF ( select_rStar.GT.0 ) THEN
359           DO j=jMin,jMax           DO j=jMin,jMax
360            DO i=iMin,iMax            DO i=iMin,iMax
# Line 371  C-- account for 3.D divergence of the fl Line 372  C-- account for 3.D divergence of the fl
372            ENDDO            ENDDO
373           ENDDO           ENDDO
374          ENDIF          ENDIF
375    # endif /* DISABLE_RSTAR_CODE */
376  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
377    
378        ELSE        ELSE
# Line 542  C--   Tendency is minus divergence of th Line 544  C--   Tendency is minus divergence of th
544    
545  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
546  C-- account for 3.D divergence of the flow in rStar coordinate:  C-- account for 3.D divergence of the flow in rStar coordinate:
547    # ifndef DISABLE_RSTAR_CODE
548          IF ( select_rStar.GT.0 ) THEN          IF ( select_rStar.GT.0 ) THEN
549           DO j=jMin,jMax           DO j=jMin,jMax
550            DO i=iMin,iMax            DO i=iMin,iMax
# Line 559  C-- account for 3.D divergence of the fl Line 562  C-- account for 3.D divergence of the fl
562            ENDDO            ENDDO
563           ENDDO           ENDDO
564          ENDIF          ENDIF
565    # endif /* DISABLE_RSTAR_CODE */
566  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
567    
568        ELSE        ELSE
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22