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

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

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

Revision 1.19 - (hide 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 edhill 1.19 C $Header: /u/gcmpack/MITgcm/model/src/ini_fields.F,v 1.18 2003/12/14 23:24:55 jmc Exp $
2 adcroft 1.10 C $Name: $
3 cnh 1.1
4 edhill 1.16 #include "PACKAGES_CONFIG.h"
5 cnh 1.4 #include "CPP_OPTIONS.h"
6 cnh 1.1
7 edhill 1.19 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
8 cnh 1.12 CBOP
9     C !ROUTINE: INI_FIELDS
10 edhill 1.19
11 cnh 1.12 C !INTERFACE:
12 cnh 1.1 SUBROUTINE INI_FIELDS( myThid )
13 edhill 1.19
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 cnh 1.12
19     C !USES:
20 adcroft 1.5 IMPLICIT NONE
21 cnh 1.1 #include "SIZE.h"
22     #include "EEPARAMS.h"
23     #include "PARAMS.h"
24    
25 edhill 1.19 C !INPUT PARAMETERS:
26 cnh 1.1 INTEGER myThid
27 cnh 1.12 CEOP
28 cnh 1.1
29 edhill 1.19 C Set model variables to initial/restart conditions
30 adcroft 1.15 IF ( startTime .EQ. 0. .AND. nIter0 .EQ. 0
31     & .AND. pickupSuff .EQ. ' ' ) THEN
32 edhill 1.19 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 heimbach 1.13 #ifdef INCLUDE_EP_FORCING_CODE
38 edhill 1.19 CALL INI_EP( myThid )
39 heimbach 1.13 #endif
40 edhill 1.19 IF (nonHydrostatic) CALL INI_PNH( myThid )
41 cnh 1.1 ELSE
42 edhill 1.19 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 heimbach 1.17 ENDIF
53 cnh 1.1
54     RETURN
55     END
  ViewVC Help
Powered by ViewVC 1.1.22