/[MITgcm]/MITgcm/pkg/obcs/obcs_init_variables.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_init_variables.F

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

revision 1.7 by jmc, Mon Dec 15 20:22:20 2003 UTC revision 1.8 by adcroft, Tue Jul 6 18:25:52 2004 UTC
# Line 28  C     myThid -  Number of this instance Line 28  C     myThid -  Number of this instance
28  C     == Local variables ==  C     == Local variables ==
29        INTEGER bi, bj        INTEGER bi, bj
30        INTEGER I, J, K        INTEGER I, J, K
       CHARACTER*(10) suff  
       INTEGER prec  
31    
32        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
33         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
# Line 86  C     == Local variables == Line 84  C     == Local variables ==
84         ENDDO         ENDDO
85        ENDDO            ENDDO    
86    
 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  
 C jmc: here is the logical place to read OBCS-pickup files  
 C      but a) without Orlanski: pass the test 1+1=2 without reading pickup.  
 C          b) with Orlanski: 1+1=2 fail even with this bit of code  
       IF ( nIter0.NE.0 ) THEN  
         prec = precFloat64  
         IF (pickupSuff.EQ.' ') THEN  
          WRITE(suff,'(I10.10)') nIter0  
         ELSE  
          WRITE(suff,'(A10)') pickupSuff  
         ENDIF  
 c       CALL OBCS_READ_CHECKPOINT(prec, nIter0, suff, myThid)  
       ENDIF  
 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  
   
87  C--   Apply OBCS values to initial conditions for consistancy  C--   Apply OBCS values to initial conditions for consistancy
88        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
89         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22