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

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

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

revision 1.3 by jmc, Tue Oct 19 02:43:06 2004 UTC revision 1.4 by heimbach, Thu Dec 8 15:44:34 2005 UTC
# Line 105  C-    Calculate vertical transports abov Line 105  C-    Calculate vertical transports abov
105  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
106  C---  Modify rTransU & rTransV when using r* coordinate:  C---  Modify rTransU & rTransV when using r* coordinate:
107        IF ( select_rStar.NE.0 ) THEN        IF ( select_rStar.NE.0 ) THEN
108    # ifndef DISABLE_RSTAR_CODE
109    
110         IF ( k.EQ.1) THEN         IF ( k.EQ.1) THEN
111  C-    Initialise dWtrans :  C-    Initialise dWtrans :
# Line 155  C-    Modify rTransU & rTransV : Line 156  C-    Modify rTransU & rTransV :
156    
157         ENDIF         ENDIF
158    
159    # endif /* DISABLE_RSTAR_CODE */
160        ENDIF        ENDIF
161    
162  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
163    
164        RETURN        RETURN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22