/[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.1.1.1 by cnh, Sun Feb 15 22:28:20 2004 UTC revision 1.2 by cnh, Mon Feb 16 02:39:06 2004 UTC
# Line 53  C     == Local variables == Line 53  C     == Local variables ==
53        INTEGER myThid        INTEGER myThid
54        INTEGER myCurrentIter        INTEGER myCurrentIter
55        _RL     myCurrentTime        _RL     myCurrentTime
56          INTEGER I,J,K,bi,bj
57  CEOP  CEOP
58    
59        CALL COMP_OCN_PUSH_CONTEXT(1)        CALL COMP_OCN_PUSH_CONTEXT(1)
60    
61          myThid = 1
62  C     Read the import fields  C     Read the import fields
63        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
64         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
# Line 79  C     Read the import fields Line 81  C     Read the import fields
81        ENDDO        ENDDO
82    
83        CALL EEBOOT()        CALL EEBOOT()
       myThid = 1  
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.1.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22