/[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.1 by adcroft, Tue Jan 30 21:02:59 2001 UTC revision 1.2 by adcroft, Fri Feb 2 21:04:48 2001 UTC
# Line 0  Line 1 
1    C $Header$
2    C $Name$
3    
4    #include "CPP_OPTIONS.h"
5    
6          SUBROUTINE PACKAGES_INIT_FIXED( myThid )
7    C     /==========================================================\
8    C     | SUBROUTINE PACKAGES_INIT_FIXED                           |
9    C     | o Does initialisation of package-related fixed fields    |
10    C     |==========================================================|
11    C     \==========================================================/
12          IMPLICIT NONE
13    
14    C     === Global variables ===
15    #include "SIZE.h"
16    #include "EEPARAMS.h"
17    #include "PARAMS.h"
18    
19    C     === Routine arguments ===
20    C     myThid -  Number of this instances
21          INTEGER myThid
22    
23    C--   Initialize fixed arrays for OBCS
24    #ifdef ALLOW_OBCS
25          IF (useOBCS) THEN
26           CALL OBCS_INIT_FIXED( myThid )
27          ENDIF
28    #endif
29    
30          RETURN
31          END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22