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

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

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

revision 1.1 by adcroft, Wed May 30 19:34:48 2001 UTC revision 1.2 by adcroft, Thu Sep 20 20:07:06 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "GAD_OPTIONS.h"  #include "GAD_OPTIONS.h"
5    
6    CBOP
7    C !ROUTINE: GAD_GRAD_X
8    
9    C !INTERFACE: ==========================================================
10        SUBROUTINE GAD_GRAD_X(        SUBROUTINE GAD_GRAD_X(
11       I           bi,bj,k,       I           bi,bj,k,
12       I           xA,       I           xA,
13       I           tracer,       I           tracer,
14       O           dTdx,       O           dTdx,
15       I           myThid )       I           myThid )
       IMPLICIT NONE  
16    
17  C     == GLobal variables ==  C !DESCRIPTION:
18    C Calculates the zonal gradient of a tracer: $\partial_x \theta$
19    
20    C !USES: ===============================================================
21          IMPLICIT NONE
22  #include "SIZE.h"  #include "SIZE.h"
23  #include "GRID.h"  #include "GRID.h"
24    
25  C     == Routine arguments ==  C !INPUT PARAMETERS: ===================================================
26    C  bi,bj                :: tile indices
27    C  k                    :: vertical level
28    C  tracer               :: tracer field
29    C  myThid               :: thread number
30        INTEGER bi,bj,k        INTEGER bi,bj,k
31        _RS xA    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RS xA    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
32        _RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
       _RL dTdx  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)  
33        INTEGER myThid        INTEGER myThid
34    
35  C     == Local variables ==  C !OUTPUT PARAMETERS: ==================================================
36    C  dTdx                 :: zonal gradient
37          _RL dTdx  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
38    
39    C !LOCAL VARIABLES: ====================================================
40    C  i,j                  :: loop indices
41        INTEGER i,j        INTEGER i,j
42    CEOP
43    
44  C     o Zonal tracer gradient  C     o Zonal tracer gradient
45        DO j=1-Oly,sNy+Oly        DO j=1-Oly,sNy+Oly
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22