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

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

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

revision 1.1 by adcroft, Fri Jun 29 17:14:49 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: INI_PNH
8    C     !INTERFACE:
9        SUBROUTINE INI_PNH( myThid )        SUBROUTINE INI_PNH( myThid )
 C     /==========================================================\  
 C     | SUBROUTINE INI_PNH                                       |  
 C     | o Set model initial non-hydrostatic pressure.            |  
 C     |==========================================================|  
 C     | There are several options for setting the initial        |  
 C     | surface displacement (r unit) field.                     |  
 C     |  1. Inline code                                          |  
 C     |  2. Two-dimensional data from a file.                    |  
 C     \==========================================================/  
       IMPLICIT NONE  
10    
11    C     !DESCRIPTION: \bv
12    C     *==========================================================*
13    C     | SUBROUTINE INI_PNH                                        
14    C     | o Set model initial non-hydrostatic pressure.            
15    C     *==========================================================*
16    C     | There are several options for setting the initial        
17    C     | surface displacement (r unit) field.                      
18    C     |  1. Inline code                                          
19    C     |  2. Two-dimensional data from a file.                    
20    C     *==========================================================*
21    C     \ev
22    
23    C     !USES:
24          IMPLICIT NONE
25  C     === Global variables ===  C     === Global variables ===
26  #include "SIZE.h"  #include "SIZE.h"
27  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 22  C     === Global variables === Line 29  C     === Global variables ===
29  #include "GRID.h"  #include "GRID.h"
30  #include "DYNVARS.h"  #include "DYNVARS.h"
31    
32    C     !INPUT/OUTPUT PARAMETERS:
33  C     == Routine arguments ==  C     == Routine arguments ==
34  C     myThid -  Number of this instance of INI_PSURF  C     myThid -  Number of this instance of INI_PSURF
35        INTEGER myThid        INTEGER myThid
36    
37    C     !LOCAL VARIABLES:
38  C     == Local variables ==  C     == Local variables ==
39        INTEGER bi,bj,I,J,K        INTEGER bi,bj,I,J,K
40    CEOP
41    
42  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
43    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22