/[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.5 - (show annotations) (download)
Sat Jun 15 03:28:39 2002 UTC (21 years, 11 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint47e_post, checkpoint46l_post, checkpoint46g_pre, checkpoint47c_post, checkpoint46f_post, checkpoint46b_post, checkpoint46l_pre, checkpoint48b_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint47a_post, checkpoint48d_pre, checkpoint47i_post, checkpoint47d_post, checkpoint46d_pre, checkpoint48d_post, checkpoint45d_post, checkpoint46j_pre, checkpoint46a_post, checkpoint47g_post, checkpoint46j_post, checkpoint46k_post, checkpoint48a_post, checkpoint47j_post, branch-exfmods-tag, checkpoint46e_pre, checkpoint48c_post, checkpoint46b_pre, checkpoint46c_pre, checkpoint46, checkpoint47b_post, checkpoint46h_pre, checkpoint46m_post, checkpoint46a_pre, checkpoint46g_post, checkpoint47f_post, checkpoint46i_post, checkpoint46c_post, checkpoint46e_post, checkpoint47, checkpoint48, checkpoint46h_post, checkpoint47h_post, checkpoint46d_post
Branch point for: branch-exfmods-curt
Changes since 1.4: +6 -1 lines 
Add new flags:
* T,S forcing outside Adams-Bashforh
* temp,salt Advection and Forcing (turn on/off)
* for each tracer: internal flag for multiDimAdvection & A-B
1 C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.4 2001/09/26 18:09:16 cnh 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 |-- GAD_INIT
22 C |
23 C |-- OBCS_INIT_FIXED
24 C |
25 C |-- FLT_INIT
26
27 C !USES:
28 IMPLICIT NONE
29 C === Global variables ===
30 #include "SIZE.h"
31 #include "EEPARAMS.h"
32 #include "PARAMS.h"
33
34 C !INPUT/OUTPUT PARAMETERS:
35 C === Routine arguments ===
36 C myThid - Number of this instances
37 INTEGER myThid
38 CEOP
39
40 C-- Initialize fixed params for GAD
41 CALL GAD_INIT( myThid )
42
43 C-- Initialize fixed arrays for OBCS
44 #ifdef ALLOW_OBCS
45 IF (useOBCS) THEN
46 CALL OBCS_INIT_FIXED( myThid )
47 ENDIF
48 #endif
49 #ifdef ALLOW_FLT
50 C-- Initialise Float positions
51 IF (useFLT) then
52 CALL FLT_INIT(nIter0,startTime,myThid )
53 _BARRIER
54 ENDIF
55 #endif
56
57 RETURN
58 END
  ViewVC Help
Powered by ViewVC 1.1.22