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

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

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

revision 1.2 by cnh, Sun Feb 22 02:56:19 2004 UTC revision 1.3 by cnh, Mon Mar 29 12:52:59 2004 UTC
# Line 74  CEOP Line 74  CEOP
74        CALL COMP_OCN_PUSH_CONTEXT(1)        CALL COMP_OCN_PUSH_CONTEXT(1)
75    
76        myThid = 1        myThid = 1
77        CLOSE(errorMessageUnit)  !cnhdbg      CLOSE(errorMessageUnit)
78        CLOSE(standardMessageUnit)  !cnhdbg      CLOSE(standardMessageUnit)
79  !     myProcessStr  = '0000'  !     myProcessStr  = '0000'
80        WRITE(fNam,'(A,A)') 'STDOUT.', myProcessStr(1:4)  !cnhdbg      WRITE(fNam,'(A,A)') 'STDOUT.', myProcessStr(1:4)
81        OPEN(standardMessageUnit,FILE=fNam,STATUS='old',POSITION='append')  !cnhdbg      OPEN(standardMessageUnit,FILE=fNam,STATUS='old',POSITION='append')
82        WRITE(fNam,'(A,A)') 'STDERR.', myProcessStr(1:4)  !cnhdbg      WRITE(fNam,'(A,A)') 'STDERR.', myProcessStr(1:4)
83        OPEN(errorMessageUnit,FILE=fNam,STATUS='old',POSITION='append')  !cnhdbg      OPEN(errorMessageUnit,FILE=fNam,STATUS='old',POSITION='append')
84        WRITE(msgBuf,*) 'Entering OCN driver_run'  !cnhdbg      WRITE(msgBuf,*) 'Entering OCN driver_run'
85        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,  !cnhdbg      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
86       &                    SQUEEZE_RIGHT , 1)  !cnhdbg     &                    SQUEEZE_RIGHT , 1)
87    
88  C     Extract the import fields  C     Extract the import fields
89        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
# Line 108  C     Extract the import fields Line 108  C     Extract the import fields
108    
109    
110  C     myThid = 1  C     myThid = 1
111  C     myCurrentTime = startTime+startStep*deltaTClock        myCurrentTime = startTime
112  C     myCurrentIter = nIter0+startStep        myCurrentIter = nIter0
113  C     myThid        = 1  C     myThid        = 1
114  C     nTimesteps    = stopStep-startStep  C     nTimesteps    = 1
115    
116        CALL MONITOR( myCurrentIter, myCurrentTime, myThid )        CALL MONITOR( myCurrentIter, myCurrentTime, myThid )
117    
# Line 141  C     Fill the export fields Line 141  C     Fill the export fields
141         ENDDO         ENDDO
142        ENDDO        ENDDO
143    
144        CLOSE(errorMessageUnit)  !cnhdbg      CLOSE(errorMessageUnit)
145        CLOSE(standardMessageUnit)  !cnhdbg      CLOSE(standardMessageUnit)
146        CALL COMP_OCN_POP_CONTEXT(1)        CALL COMP_OCN_POP_CONTEXT(1)
147    
148        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22