/[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.19 - (show annotations) (download)
Fri Sep 10 12:19:29 2004 UTC (19 years, 8 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint57b_post, checkpoint56b_post, checkpoint57d_post, checkpoint55, checkpoint57, checkpoint56, checkpoint54f_post, checkpoint55i_post, checkpoint55c_post, checkpoint57a_post, checkpoint55g_post, checkpoint57c_post, checkpoint55d_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint55j_post, checkpoint55h_post, checkpoint57e_post, checkpoint55b_post, checkpoint55f_post, eckpoint57e_pre, checkpoint56a_post, checkpoint57f_pre, checkpoint56c_post, checkpoint57a_pre, checkpoint55a_post, checkpoint55e_post
Changes since 1.18: +27 -28 lines 
 o overhaul of IO so that we now have flags for MDSIO and/or MNC
   - all verification tests compile and run with linux_ia32_g77
   - defaults are compatible with current input files--nothing
     should change if you were not previously using MNC
   - MNC output has been added in numerous places (eg. timeave)
     but there are still a few writes not yet do-able with MNC
     (this is in progress)
   - flags now allow for either/or/both use of MDSIO and MNC and
     documentation will soon follow
   - numerous small formatting cleanups for ProTeX
1 C $Header: /u/gcmpack/MITgcm/model/src/ini_fields.F,v 1.18 2003/12/14 23:24:55 jmc Exp $
2 C $Name: $
3
4 #include "PACKAGES_CONFIG.h"
5 #include "CPP_OPTIONS.h"
6
7 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
8 CBOP
9 C !ROUTINE: INI_FIELDS
10
11 C !INTERFACE:
12 SUBROUTINE INI_FIELDS( myThid )
13
14 C !DESCRIPTION:
15 C Initial conditions of the model state variables are set here. For
16 C continuation runs a restart file will be used. For original runs
17 C custom rules can be included here.
18
19 C !USES:
20 IMPLICIT NONE
21 #include "SIZE.h"
22 #include "EEPARAMS.h"
23 #include "PARAMS.h"
24
25 C !INPUT PARAMETERS:
26 INTEGER myThid
27 CEOP
28
29 C Set model variables to initial/restart conditions
30 IF ( startTime .EQ. 0. .AND. nIter0 .EQ. 0
31 & .AND. pickupSuff .EQ. ' ' ) THEN
32 CALL INI_VEL( myThid )
33 CALL INI_THETA( myThid )
34 CALL INI_SALT( myThid )
35 CALL INI_PSURF( myThid )
36 CALL INI_PRESSURE( myThid )
37 #ifdef INCLUDE_EP_FORCING_CODE
38 CALL INI_EP( myThid )
39 #endif
40 IF (nonHydrostatic) CALL INI_PNH( myThid )
41 ELSE
42 IF ( nIter0 .EQ. 0 ) THEN
43 nIter0 = INT(startTime/deltaTClock )
44 ENDIF
45 CALL READ_CHECKPOINT( nIter0, myThid )
46
47 CEH3 IF (pickup_write_immed) THEN
48 CEH3 CALL WRITE_CHECKPOINT(
49 CEH3 & .TRUE., myCurrentTime, myCurrentIter, myThid)
50 CEH3 ENDIF
51
52 ENDIF
53
54 RETURN
55 END
  ViewVC Help
Powered by ViewVC 1.1.22