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

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

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


Revision 1.1 - (hide annotations) (download)
Thu Apr 5 21:59:03 2012 UTC (12 years, 1 month 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 jmc 1.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