/[MITgcm]/MITgcm/pkg/cal/cal_init_fixed.F
ViewVC logotype

Contents of /MITgcm/pkg/cal/cal_init_fixed.F

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


Revision 1.1 - (show annotations) (download)
Thu Apr 5 21:59:03 2012 UTC (12 years ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64o, checkpoint64a, checkpoint63r, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint64n, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint64b, checkpoint63m, checkpoint64e, checkpoint63q, checkpoint64d, checkpoint64c, checkpoint64g, checkpoint64f, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint63n, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint64i, checkpoint63o, checkpoint63p, checkpoint64h, checkpoint63s, checkpoint64k, checkpoint64, checkpoint65, checkpoint64j, checkpoint64m, checkpoint64l, HEAD
- move calendar setting & summary (previously in cal_readparams.F) into new
  S/R CAL_INIT_FIXED to be called later in the initialisation process, once
  length of the simulation is set (after SET_PARMS call); This is an atempt
  to fix Pb when, e.g.: pkg/longstep, modifies the length of the run.
- For safety: keep a reccord of pkg/cal parameter settings status
           to allow to STOP if one pkg/cal S/R is called too early.
- adjust list of vars stored in "cal.h" (add: TheCalendar & cal_setStatus;
         remove usingNoCalendar & calendarversion)

1 C $Header: /u/gcmpack/MITgcm/pkg/mypackage/mypackage_init_fixed.F,v 1.2 2006/08/07 21:13:52 edhill Exp $
2 C $Name: $
3
4 #include "CAL_OPTIONS.h"
5
6 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7 CBOP 0
8 C !ROUTINE: CAL_INIT_FIXED
9
10 C !INTERFACE:
11 SUBROUTINE CAL_INIT_FIXED( myThid )
12
13 C !DESCRIPTION:
14 C Initialise CAL variables that are kept fixed during the run.
15
16 C !USES:
17 IMPLICIT NONE
18 #include "SIZE.h"
19 #include "EEPARAMS.h"
20 #include "PARAMS.h"
21
22 C !INPUT/OUTPUT PARAMETERS:
23 C myThid :: my Thread Id number
24 INTEGER myThid
25 CEOP
26
27 C !LOCAL VARIABLES:
28 C === Local variables ===
29
30 #ifdef ALLOW_DEBUG
31 IF (debugMode) CALL DEBUG_ENTER('CAL_INIT_FIXED',myThid)
32 #endif
33
34 C Check consistency of the date specifications with the MITgcm
35 C startTime, endTime, and nTimeSteps, then set all the calendar
36 C parameters.
37 CALL CAL_SET(
38 I startTime, endTime, deltaTclock,
39 I nIter0, nEndIter, nTimeSteps,
40 I myThid )
41
42 CALL CAL_SUMMARY( myThid )
43
44 #ifdef ALLOW_DEBUG
45 IF (debugMode) CALL DEBUG_LEAVE('CAL_INIT_FIXED',myThid)
46 #endif
47
48 RETURN
49 END

  ViewVC Help
Powered by ViewVC 1.1.22