/[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.4 - (hide annotations) (download)
Wed Sep 26 18:09:16 2001 UTC (22 years, 7 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint44e_post, release1_p13_pre, checkpoint44f_post, checkpoint43a-release1mods, release1_p13, chkpt44d_post, release1_p8, release1_p9, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, release1_p7, checkpoint44e_pre, release1_b1, checkpoint43, release1_chkpt44d_post, release1_p11, release1-branch_tutorials, chkpt44a_post, checkpoint44h_pre, chkpt44c_pre, checkpoint45a_post, ecco_c44_e19, ecco_c44_e18, ecco_c44_e17, ecco_c44_e16, release1_p12, release1_p10, release1_p16, release1_p17, release1_p14, release1_p15, checkpoint44g_post, checkpoint45b_post, release1-branch-end, release1_final_v1, checkpoint44b_post, checkpoint45c_post, checkpoint44h_post, release1_p12_pre, chkpt44a_pre, ecco_c44_e20, ecco-branch-mod1, ecco-branch-mod2, ecco-branch-mod3, ecco-branch-mod4, ecco-branch-mod5, release1_beta1, checkpoint44b_pre, checkpoint42, checkpoint41, checkpoint44, checkpoint45, chkpt44c_post, checkpoint44f_pre, release1-branch_branchpoint
Branch point for: release1_final, release1-branch, release1, ecco-branch, release1_50yr, release1_coupled
Changes since 1.3: +22 -7 lines 
Bringing comments up to data and formatting for document extraction.
1 cnh 1.4 C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_init_fixed.F,v 1.3 2001/09/13 17:43:55 adcroft Exp $
2 adcroft 1.3 C $Name: $
3 adcroft 1.2
4     #include "CPP_OPTIONS.h"
5    
6 cnh 1.4 CBOP
7     C !ROUTINE: PACKAGES_INIT_FIXED
8     C !INTERFACE:
9 adcroft 1.2 SUBROUTINE PACKAGES_INIT_FIXED( myThid )
10 cnh 1.4
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 |-- OBCS_INIT_FIXED
22     C |
23     C |-- FLT_INIT
24    
25     C !USES:
26 adcroft 1.2 IMPLICIT NONE
27     C === Global variables ===
28     #include "SIZE.h"
29     #include "EEPARAMS.h"
30     #include "PARAMS.h"
31    
32 cnh 1.4 C !INPUT/OUTPUT PARAMETERS:
33 adcroft 1.2 C === Routine arguments ===
34     C myThid - Number of this instances
35     INTEGER myThid
36 cnh 1.4 CEOP
37 adcroft 1.2
38     C-- Initialize fixed arrays for OBCS
39     #ifdef ALLOW_OBCS
40     IF (useOBCS) THEN
41     CALL OBCS_INIT_FIXED( myThid )
42 adcroft 1.3 ENDIF
43     #endif
44     #ifdef ALLOW_FLT
45     C-- Initialise Float positions
46     IF (useFLT) then
47     CALL FLT_INIT(nIter0,startTime,myThid )
48     _BARRIER
49 adcroft 1.2 ENDIF
50     #endif
51    
52     RETURN
53     END
  ViewVC Help
Powered by ViewVC 1.1.22