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

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

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

Revision 1.2 - (hide annotations) (download)
Fri Feb 2 21:04:48 2001 UTC (23 years, 4 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint40pre3, checkpoint40pre1, checkpoint40pre7, checkpoint40pre6, checkpoint40pre9, checkpoint40pre8, checkpoint38, checkpoint40pre2, checkpoint40pre4, pre38tag1, c37_adj, pre38-close, checkpoint39, checkpoint37, checkpoint36, checkpoint35, checkpoint40pre5
Branch point for: pre38
Changes since 1.1: +31 -0 lines 
Merged changes from branch "branch-atmos-merge" into MAIN (checkpoint34)
 - substantial modifications to algorithm sequence (dynamics.F)
 - packaged OBCS, Shapiro filter, Zonal filter, Atmospheric Physics
1 adcroft 1.2 C $Header: /u/gcmpack/models/MITgcmUV/model/src/Attic/packages_init_fixed.F,v 1.1.2.1 2001/01/30 21:02:59 adcroft Exp $
2     C $Name: branch-atmos-merge-freeze $
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
  ViewVC Help
Powered by ViewVC 1.1.22