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

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

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

revision 1.11 by adcroft, Tue Jun 5 15:30:53 2001 UTC revision 1.12 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  CStartOfInterface  CBOP
7    C     !ROUTINE: INI_CORI
8    C     !INTERFACE:
9        SUBROUTINE INI_CORI( myThid )        SUBROUTINE INI_CORI( myThid )
10  C     /==========================================================\  C     !DESCRIPTION: \bv
11  C     | SUBROUTINE INI_CORI                                      |  C     *==========================================================*
12  C     | o Initialise coriolis term.                              |  C     | SUBROUTINE INI_CORI                                      
13  C     \==========================================================/  C     | o Initialise coriolis term.                              
14        IMPLICIT NONE  C     *==========================================================*
15    C     \ev
16    
17  C     === Global variables ===  C     !USES:
18          IMPLICIT NONE
19    C     == Global variables ==
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23  #include "GRID.h"  #include "GRID.h"
24  #include "DYNVARS.h"  #include "DYNVARS.h"
25    
26    C     !INPUT/OUTPUT PARAMETERS:
27  C     == Routine arguments ==  C     == Routine arguments ==
28  C     myThid -  Number of this instance of INI_CORI  C     myThid -  Number of this instance of INI_CORI
29        INTEGER myThid        INTEGER myThid
 CEndOfInterface  
30    
31    C     !LOCAL VARIABLES:
32  C     == Local variables ==  C     == Local variables ==
33  C     bi,bj  - Loop counters  C     bi,bj  - Loop counters
34  C     I,J,K  C     I,J,K
# Line 30  C     facGrid - Factor for grid to meter Line 36  C     facGrid - Factor for grid to meter
36        INTEGER bi, bj        INTEGER bi, bj
37        INTEGER  I,  J, K        INTEGER  I,  J, K
38        _RL facGrid        _RL facGrid
39    CEOP
40    
41  C--   Initialise coriolis parameter  C--   Initialise coriolis parameter
42        IF     ( useConstantF ) THEN        IF     ( useConstantF ) THEN
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22