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

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

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

revision 1.1 by adcroft, Wed Sep 19 02:43:27 2001 UTC revision 1.2 by cnh, Wed Sep 26 18:09:15 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    CBOP
7    C     !ROUTINE: FREESURF_RESCALE_G
8    C     !INTERFACE:
9        SUBROUTINE FREESURF_RESCALE_G(        SUBROUTINE FREESURF_RESCALE_G(
10       I                     bi, bj, K,       I                     bi, bj, K,
11       U                     gTracer,       U                     gTracer,
12       I                     myThid )       I                     myThid )
13  C     /==========================================================\  C     !DESCRIPTION: \bv
14  C     | S/R FREESURF_RESCALE_G                                   |  C     *==========================================================*
15  C     | o Re-scale Gs to account for change in free-surface      |  C     | S/R FREESURF_RESCALE_G                                    
16  C     |   hieght. Only meaningful with non-linear free-surface.  |  C     | o Re-scale Gs to account for change in free-surface      
17  C     \==========================================================/  C     |   hieght. Only meaningful with non-linear free-surface.  
18        IMPLICIT NONE  C     *==========================================================*
19    C     \ev
20    
21    C     !USES:
22          IMPLICIT NONE
23  C     == Global variables ===  C     == Global variables ===
24  #include "SIZE.h"  #include "SIZE.h"
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 21  C     == Global variables === Line 27  C     == Global variables ===
27  #include "GRID.h"  #include "GRID.h"
28  #include "SURFACE.h"  #include "SURFACE.h"
29    
30    C     !INPUT/OUTPUT PARAMETERS:
31  C     == Routine Arguments ==  C     == Routine Arguments ==
32        INTEGER bi,bj,K        INTEGER bi,bj,K
33        _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)
# Line 28  C     == Routine Arguments == Line 35  C     == Routine Arguments ==
35  C     == Local variables ==  C     == Local variables ==
36        INTEGER i,j        INTEGER i,j
37        _RL ab15,ab05        _RL ab15,ab05
38    CEOP
39    
40  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
41    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22