/[MITgcm]/MITgcm_contrib/ESMF/global_ocean.128x64x15/code/driver_init.F
ViewVC logotype

Diff of /MITgcm_contrib/ESMF/global_ocean.128x64x15/code/driver_init.F

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

revision 1.2 by cnh, Mon Feb 16 02:39:06 2004 UTC revision 1.3 by cnh, Sun Mar 28 05:47:26 2004 UTC
# Line 59  CEOP Line 59  CEOP
59        CALL COMP_OCN_PUSH_CONTEXT(1)        CALL COMP_OCN_PUSH_CONTEXT(1)
60    
61        myThid = 1        myThid = 1
62          CALL EEBOOT()
63  C     Read the import fields  C     Read the import fields
64        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
65         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
# Line 80  C     Read the import fields Line 81  C     Read the import fields
81         ENDDO         ENDDO
82        ENDDO        ENDDO
83    
       CALL EEBOOT()  
84        CALL INITIALISE_FIXED(    myThid )        CALL INITIALISE_FIXED(    myThid )
85        CALL INITIALISE_VARIA(    myThid )        CALL INITIALISE_VARIA(    myThid )
86        myCurrentTime = startTime        myCurrentTime = startTime
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22