/[MITgcm]/MITgcm/model/src/calc_grad_phi_surf.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_grad_phi_surf.F

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

revision 1.1 by jmc, Thu Mar 8 13:36:23 2001 UTC revision 1.2 by cnh, Wed Sep 26 18:09:13 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  C     /==========================================================\  CBOP
7  C     | S/R CALC_GRAD_PHI_SURF                                   |  C     !ROUTINE: CALC_GRAD_PHI_SURF
8  C     | o Calculate the gradient of the surface Potential anomaly|  C     !INTERFACE:
 C     \==========================================================/  
9        SUBROUTINE CALC_GRAD_PHI_SURF( bi, bj, iMin, iMax, jMin, jMax,        SUBROUTINE CALC_GRAD_PHI_SURF( bi, bj, iMin, iMax, jMin, jMax,
10       I                       etaFld,       I                       etaFld,
11       O                       phiSurfX, phiSurfY,       O                       phiSurfX, phiSurfY,
12       I                       myThid )       I                       myThid )
13    C     !DESCRIPTION: \bv
14    C     *==========================================================*
15    C     | S/R CALC_GRAD_PHI_SURF                                    
16    C     | o Calculate the gradient of the surface Potential anomaly
17    C     *==========================================================*
18    C     \ev
19    
20    C     !USES:
21        IMPLICIT NONE        IMPLICIT NONE
22  C     == Global variables ==  C     == Global variables ==
23  #include "SIZE.h"  #include "SIZE.h"
# Line 19  C     == Global variables == Line 26  C     == Global variables ==
26  #include "GRID.h"  #include "GRID.h"
27  #include "SURFACE.h"  #include "SURFACE.h"
28    
29    C     !INPUT/OUTPUT PARAMETERS:
30  C     == Routine Arguments ==  C     == Routine Arguments ==
31  C     etaFld             - free-surface r-anomaly (r unit).  C     etaFld             :: free-surface r-anomaly (r unit).
32  C     phiSurfX, phiSurfY - Gradient in the X and Y directions of surface  C     phiSurfX, phiSurfY :: Gradient in the X and Y directions of surface
33  C       Potentiel anomaly (atmos: =Geopotential ; ocean: =Pressure/rho)  C       Potentiel anomaly (atmos: =Geopotential ; ocean: =Pressure/rho)
34  C     bi,bj,iMin,iMax,jMin,jMax - Loop counters  C     bi,bj,iMin,iMax,jMin,jMax :: Loop counters
35  C     myThid - Instance number for this call of the routine.  C     myThid :: Instance number for this call of the routine.
36        INTEGER bi,bj,iMin,iMax,jMin,jMax        INTEGER bi,bj,iMin,iMax,jMin,jMax
37        _RL etaFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL etaFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
38        _RL phiSurfX(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL phiSurfX(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
39        _RL phiSurfY(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL phiSurfY(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
40        INTEGER myThid        INTEGER myThid
41    
42    C     !LOCAL VARIABLES:
43  C     == Local variables ==  C     == Local variables ==
44    C     i,j :: Loop counters
45        INTEGER i,j        INTEGER i,j
46    CEOP
47    
48  C     Zonal term  C     Zonal term
49        DO j=jMin,jMax        DO j=jMin,jMax
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22