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

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

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

Revision 1.2 - (show 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 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