/[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.5 - (hide annotations) (download)
Sat Jun 15 03:28:39 2002 UTC (22 years 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 jmc 1.5 C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.4 2001/09/26 18:09:16 cnh 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 jmc 1.5 C |-- GAD_INIT
22     C |
23 cnh 1.4 C |-- OBCS_INIT_FIXED
24     C |
25     C |-- FLT_INIT
26    
27     C !USES:
28 adcroft 1.2 IMPLICIT NONE
29     C === Global variables ===
30     #include "SIZE.h"
31     #include "EEPARAMS.h"
32     #include "PARAMS.h"
33    
34 cnh 1.4 C !INPUT/OUTPUT PARAMETERS:
35 adcroft 1.2 C === Routine arguments ===
36     C myThid - Number of this instances
37     INTEGER myThid
38 cnh 1.4 CEOP
39 jmc 1.5
40     C-- Initialize fixed params for GAD
41     CALL GAD_INIT( myThid )
42 adcroft 1.2
43     C-- Initialize fixed arrays for OBCS
44     #ifdef ALLOW_OBCS
45     IF (useOBCS) THEN
46     CALL OBCS_INIT_FIXED( myThid )
47 adcroft 1.3 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 adcroft 1.2 ENDIF
55     #endif
56    
57     RETURN
58     END
  ViewVC Help
Powered by ViewVC 1.1.22