/[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.4 - (show annotations) (download)
Wed Sep 26 18:09:16 2001 UTC (22 years, 8 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 C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_init_fixed.F,v 1.3 2001/09/13 17:43:55 adcroft Exp $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CBOP
7 C !ROUTINE: PACKAGES_INIT_FIXED
8 C !INTERFACE:
9 SUBROUTINE PACKAGES_INIT_FIXED( myThid )
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 |-- OBCS_INIT_FIXED
22 C |
23 C |-- FLT_INIT
24
25 C !USES:
26 IMPLICIT NONE
27 C === Global variables ===
28 #include "SIZE.h"
29 #include "EEPARAMS.h"
30 #include "PARAMS.h"
31
32 C !INPUT/OUTPUT PARAMETERS:
33 C === Routine arguments ===
34 C myThid - Number of this instances
35 INTEGER myThid
36 CEOP
37
38 C-- Initialize fixed arrays for OBCS
39 #ifdef ALLOW_OBCS
40 IF (useOBCS) THEN
41 CALL OBCS_INIT_FIXED( myThid )
42 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 ENDIF
50 #endif
51
52 RETURN
53 END
  ViewVC Help
Powered by ViewVC 1.1.22