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

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

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

revision 1.19 by edhill, Fri Sep 10 12:19:29 2004 UTC revision 1.20 by jmc, Wed Apr 6 18:29:53 2005 UTC
# Line 27  C     !INPUT PARAMETERS: Line 27  C     !INPUT PARAMETERS:
27  CEOP  CEOP
28    
29  C     Set model variables to initial/restart conditions  C     Set model variables to initial/restart conditions
30        IF ( startTime .EQ. 0. .AND.  nIter0 .EQ. 0        IF ( startTime .EQ. baseTime .AND.  nIter0 .EQ. 0
31       &     .AND. pickupSuff .EQ. ' ' ) THEN       &     .AND. pickupSuff .EQ. ' ' ) THEN
32          CALL INI_VEL( myThid )          CALL INI_VEL( myThid )
33          CALL INI_THETA( myThid )          CALL INI_THETA( myThid )
# Line 39  C     Set model variables to initial/res Line 39  C     Set model variables to initial/res
39  #endif  #endif
40          IF (nonHydrostatic) CALL INI_PNH( myThid )          IF (nonHydrostatic) CALL INI_PNH( myThid )
41        ELSE        ELSE
42          IF ( nIter0 .EQ. 0 ) THEN  c       IF ( nIter0 .EQ. 0 ) THEN
43            nIter0 = INT(startTime/deltaTClock )  c         nIter0 = INT(startTime/deltaTClock )
44          ENDIF  c       ENDIF
45          CALL READ_CHECKPOINT( nIter0, myThid )          CALL READ_CHECKPOINT( nIter0, myThid )
46    
47  CEH3        IF (pickup_write_immed) THEN  CEH3        IF (pickup_write_immed) THEN
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22