/[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.3 - (hide annotations) (download)
Thu Sep 13 17:43:55 2001 UTC (22 years, 9 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint40
Changes since 1.2: +9 -2 lines 
Added package "flt".
 o pkg/flt
 o verification/flt_example
 o visualization of trajectories supplied
 o works but output not available to testscript
1 adcroft 1.3 C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_init_fixed.F,v 1.2 2001/02/02 21:04:48 adcroft Exp $
2     C $Name: $
3 adcroft 1.2
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 adcroft 1.3 ENDIF
28     #endif
29     #ifdef ALLOW_FLT
30     C-- Initialise Float positions
31     IF (useFLT) then
32     CALL FLT_INIT(nIter0,startTime,myThid )
33     _BARRIER
34 adcroft 1.2 ENDIF
35     #endif
36    
37     RETURN
38     END
  ViewVC Help
Powered by ViewVC 1.1.22