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

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

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

revision 1.3 by adcroft, Thu Sep 13 17:43:55 2001 UTC revision 1.5 by jmc, Sat Jun 15 03:28:39 2002 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: PACKAGES_INIT_FIXED
8    C     !INTERFACE:
9        SUBROUTINE PACKAGES_INIT_FIXED( myThid )        SUBROUTINE PACKAGES_INIT_FIXED( myThid )
 C     /==========================================================\  
 C     | SUBROUTINE PACKAGES_INIT_FIXED                           |  
 C     | o Does initialisation of package-related fixed fields    |  
 C     |==========================================================|  
 C     \==========================================================/  
       IMPLICIT NONE  
10    
11    C     !DESCRIPTION: \bv
12    C     *==========================================================*
13    C     | SUBROUTINE PACKAGES_INIT_FIXED                            
14    C     | o Does initialisation of package-related fixed fields    
15    C     *==========================================================*
16    C     \ev
17    
18    C     !CALLING SEQUENCE:
19    C     PACKAGES_INIT_FIXED
20    C       |
21    C       |-- GAD_INIT
22    C       |
23    C       |-- OBCS_INIT_FIXED
24    C       |
25    C       |-- FLT_INIT
26    
27    C     !USES:
28          IMPLICIT NONE
29  C     === Global variables ===  C     === Global variables ===
30  #include "SIZE.h"  #include "SIZE.h"
31  #include "EEPARAMS.h"  #include "EEPARAMS.h"
32  #include "PARAMS.h"  #include "PARAMS.h"
33    
34    C     !INPUT/OUTPUT PARAMETERS:
35  C     === Routine arguments ===  C     === Routine arguments ===
36  C     myThid -  Number of this instances  C     myThid -  Number of this instances
37        INTEGER myThid        INTEGER myThid
38    CEOP
39    
40    C--   Initialize fixed params for GAD
41          CALL GAD_INIT( myThid )
42    
43  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
44  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22