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

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

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

Revision 1.15 - (show annotations) (download)
Thu Jun 5 16:03:05 2003 UTC (20 years, 11 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint51o_pre, checkpoint51l_post, checkpoint51, checkpoint51f_post, checkpoint51d_post, checkpoint51n_post, checkpoint51j_post, checkpoint51n_pre, checkpoint51l_pre, checkpoint51b_pre, checkpoint51h_pre, branchpoint-genmake2, checkpoint51i_post, checkpoint51b_post, checkpoint51c_post, checkpoint50h_post, checkpoint50i_post, checkpoint51i_pre, checkpoint51e_post, checkpoint51o_post, checkpoint51f_pre, checkpoint51g_post, checkpoint51m_post, checkpoint51a_post
Branch point for: branch-genmake2, tg2-branch, checkpoint51n_branch
Changes since 1.14: +3 -2 lines 
New variable in PARM03: pickupSuff is a string that can be set to
indicate the suffix on pickup files. This allows us to avoid renaming
the temporary pickup files.
1 C $Header: /u/gcmpack/MITgcm/model/src/ini_fields.F,v 1.14 2002/09/18 16:38:02 mlosch Exp $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CBOP
7 C !ROUTINE: INI_FIELDS
8 C !INTERFACE:
9 SUBROUTINE INI_FIELDS( myThid )
10 C !DESCRIPTION: \bv
11 C *==========================================================*
12 C | SUBROUTINE INI_FIELDS
13 C | o Initialise model fields
14 C *==========================================================*
15 C | Initial conditions of the model state variables are
16 C | set here. For continuation runs a restart file will be
17 C | used. For original runs custom rules can be included
18 C | here.
19 C *==========================================================*
20 C \ev
21
22 C !USES:
23 IMPLICIT NONE
24 C === Global variables ===
25 #include "SIZE.h"
26 #include "EEPARAMS.h"
27 #include "PARAMS.h"
28
29 C !INPUT/OUTPUT PARAMETERS:
30 C == Routine arguments ==
31 C myThid - Number of this instance of INI_FIELDS
32 INTEGER myThid
33 CEOP
34
35 C-- Set model variables to initial/restart conditions
36 IF ( startTime .EQ. 0. .AND. nIter0 .EQ. 0
37 & .AND. pickupSuff .EQ. ' ' ) THEN
38 CALL INI_VEL( myThid )
39 CALL INI_THETA( myThid )
40 CALL INI_SALT( myThid )
41 CALL INI_PSURF( myThid )
42 CALL INI_PRESSURE( myThid )
43 #ifdef INCLUDE_EP_FORCING_CODE
44 CALL INI_EP( myThid )
45 #endif
46 IF (nonHydrostatic) CALL INI_PNH( myThid )
47 ELSE
48 IF ( nIter0 .EQ. 0 ) THEN
49 nIter0 = INT(startTime/deltaTClock )
50 ENDIF
51 CALL READ_CHECKPOINT( nIter0, myThid )
52 ENDIF
53
54 RETURN
55 END
  ViewVC Help
Powered by ViewVC 1.1.22