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

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

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

revision 1.2 by jmc, Mon Aug 27 18:43:46 2001 UTC revision 1.3 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: INI_LINEAR_PHISURF
8    C     !INTERFACE:
9        SUBROUTINE INI_LINEAR_PHISURF( myThid )        SUBROUTINE INI_LINEAR_PHISURF( myThid )
 C     /==========================================================\  
 C     | SUBROUTINE INI_LINEAR_PHISURF                            |  
 C     | o Initialise the Linear Relation Phi_surf(eta)           |  
 C     |==========================================================|  
 C     | Presently: Initialise -Boyancy at surface level (Bo_surf)|  
 C     |  to setup the Linear relation: Phi_surf(eta)=Bo_surf*eta |  
 C     | Futur: might add other things for Non-Linear FreeSurface |  
 C     \==========================================================/  
       IMPLICIT NONE  
10    
11    C     !DESCRIPTION: \bv
12    C     *==========================================================*
13    C     | SUBROUTINE INI_LINEAR_PHISURF                            
14    C     | o Initialise the Linear Relation Phi_surf(eta)            
15    C     *==========================================================*
16    C     | Presently: Initialise -Boyancy at surface level (Bo_surf)
17    C     |  to setup the Linear relation: Phi_surf(eta)=Bo_surf*eta  
18    C     | Futur: might add other things for Non-Linear FreeSurface  
19    C     *==========================================================*
20    C     \ev
21    
22    C     !USES:
23          IMPLICIT NONE
24  C     === Global variables ===  C     === Global variables ===
25  #include "SIZE.h"  #include "SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 21  C     === Global variables === Line 28  C     === Global variables ===
28  #include "GRID.h"  #include "GRID.h"
29  #include "SURFACE.h"  #include "SURFACE.h"
30    
31    C     !INPUT/OUTPUT PARAMETERS:
32  C     === Routine arguments ===  C     === Routine arguments ===
33  C     myThid - Thread no. that called this routine.  C     myThid - Thread no. that called this routine.
34        INTEGER myThid        INTEGER myThid
35    
36    C     !LOCAL VARIABLES:
37  C     === Local variables ===  C     === Local variables ===
38  C     bi,bj  - Loop counters  C     bi,bj  - Loop counters
39  C     I,J,K  C     I,J,K
# Line 32  C     I,J,K Line 41  C     I,J,K
41        INTEGER bi, bj        INTEGER bi, bj
42        INTEGER I, J, K        INTEGER I, J, K
43        _RL     dPIdp        _RL     dPIdp
44    CEOP
45    
46  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
47    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22