/[MITgcm]/MITgcm/model/src/initialise_fixed.F
ViewVC logotype

Contents of /MITgcm/model/src/initialise_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.1 - (show annotations) (download)
Wed Apr 5 19:04:14 2000 UTC (24 years, 1 month ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint28, checkpoint27 
Restructered the calling tree between THE_MODEL_MAIN()
and DYNAMICS(). Two calling levels have been inserted
to better split the "fixed" initialization phase from
the main time-loop for easier connectivity with the adjoint
infrastructure.

The calling tree now looks like:

   the_model_main:
      initialise_fixed()
      the_main_loop()

   the_main_loop:
      initialise_varia()
      do i=1,nIters
         forward_step()
      enddo
      forward_step()

   forward_step:
      load_external_fields()
      dynamics()
      do_the_model_io()
      solve_for_pressure()
      do_gterm_blocking_exchanges()
      write_checkpoint()
1 C $Header: /u/gcmpack/models/MITgcmUV/model/src/initialise.F,v 1.14 2000/03/27 22:25:45 adcroft Exp $
2
3 #include "CPP_OPTIONS.h"
4
5 CStartOfInterface
6 SUBROUTINE INITIALISE_FIXED(myThid)
7 C /==========================================================\
8 C | SUBROUTINE INITIALISE_FIXED |
9 C | o Routine for setting fixed model arrays such as |
10 C | topography, grid, solver matrices, etc. |
11 C |==========================================================|
12 C | INITIALISE_FIXED is invoked at the start of the model to |
13 C | set fixed model arrays. It reads data from an input file |
14 C | and from various binary files. |
15 C | Each thread invokes an instance of this routine as does |
16 C | each process in a multi-process parallel environment like|
17 C | MPI. |
18 C \==========================================================/
19 IMPLICIT NONE
20
21 C == Global variables ==
22 #include "SIZE.h"
23 #include "EEPARAMS.h"
24 #include "PARAMS.h"
25
26 C == Routine arguments ==
27 INTEGER myThid
28 CEndOfInterface
29
30 C == Local variables ==
31 #ifdef ALLOW_OBCS
32 INTEGER bi,bj,K
33 #endif
34
35 C-- Set model parameters.
36 C Parameters are set to defaults and then updates are read from
37 C an input file called data.
38 CALL INI_PARMS( myThid )
39 _BARRIER
40
41 #ifdef ALLOW_OBCS
42 C-- Open boundaries positions
43 CALL INI_OBCS( myThid )
44 #endif
45 _BARRIER
46
47 C-- Set model grid.
48 C Variables defining model grid spacing are defined.
49 CALL INI_GRID( myThid )
50 _BARRIER
51
52 C-- Initialise map of depths
53 CALL INI_DEPTHS( myThid )
54 _BARRIER
55
56 C-- Derive masks, lopping factors and recipricols of quantities.
57 C Volumes and areas are set according to grid and depth map.
58 CALL INI_MASKS_ETC( myThid )
59 _BARRIER
60
61 #ifdef INCLUDE_LAT_CIRC_FFT_FILTER_CODE
62 C-- Latitude circle filter initialisation
63 CALL FILTER_LATCIRC_FFT_INIT(myThid)
64 _BARRIER
65 #endif
66
67 C-- Set coriolis operators
68 CALL INI_CORI( myThid )
69
70 C-- Set laplace operators for use in 2D conjugate gradient solver.
71 CALL INI_CG2D( myThid )
72
73 #ifdef ALLOW_NONHYDROSTATIC
74 C-- Set laplace operators for use in 3D conjugate gradient solver.
75 CALL INI_CG3D( myThid )
76 #endif
77
78 C-- Finally summarise the model cofiguration
79 CALL CONFIG_SUMMARY( myThid )
80
81 END
  ViewVC Help
Powered by ViewVC 1.1.22