/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_som_advect.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_som_advect.F

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

revision 1.2 by jmc, Tue Feb 12 20:32:34 2008 UTC revision 1.3 by jmc, Fri May 9 21:43:16 2008 UTC
# Line 66  C  gTracer           :: tendency array Line 66  C  gTracer           :: tendency array
66        _RL smTr   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM)        _RL smTr   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM)
67        _RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
68    
 #ifdef GAD_ALLOW_SOM_ADVECT  
69  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
70  C  maskUp        :: 2-D array mask for W points  C  maskUp        :: 2-D array mask for W points
71  C  i,j,k         :: loop indices  C  i,j,k         :: loop indices
# Line 643  C--   End of k loop for vertical flux Line 642  C--   End of k loop for vertical flux
642  C--   end of if not.implicitAdvection block  C--   end of if not.implicitAdvection block
643        ENDIF        ENDIF
644    
 #endif /* GAD_ALLOW_SOM_ADVECT */  
   
645        RETURN        RETURN
646        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22