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

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

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

revision 1.15 by jmc, Tue Dec 8 00:21:34 2009 UTC revision 1.16 by mlosch, Tue Dec 15 14:13:44 2009 UTC
# Line 257  C     Eastern boundary Line 257  C     Eastern boundary
257           CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr,           CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr,
258       &                OBEptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid )       &                OBEptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid )
259          ENDIF          ENDIF
260  # endif /* ALLOW_OBCS_WEST */  # endif /* ALLOW_OBCS_EAST */
261  # ifdef ALLOW_OBCS_WEST  # ifdef ALLOW_OBCS_WEST
262  C     Western boundary  C     Western boundary
263          IF ( OBWptrFile(iTr) .NE. ' '  ) THEN          IF ( OBWptrFile(iTr) .NE. ' '  ) THEN
# Line 345  C     Eastern boundary Line 345  C     Eastern boundary
345       &                        myIter, myThid )       &                        myIter, myThid )
346          ENDIF          ENDIF
347  # endif /* NONLIN_FRSURF */  # endif /* NONLIN_FRSURF */
348  #endif /* ALLOW_OBCS_WEST */  #endif /* ALLOW_OBCS_EAST */
349  #ifdef ALLOW_OBCS_WEST  #ifdef ALLOW_OBCS_WEST
350  C     Western boundary  C     Western boundary
351          IF ( OBWuFile .NE. ' '  ) THEN          IF ( OBWuFile .NE. ' '  ) THEN
# Line 434  C     Eastern boundary Line 434  C     Eastern boundary
434             CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr,             CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr,
435       &               OBEptr0(1-Oly,1,1,1,iTr), iRec0,myIter, myThid )       &               OBEptr0(1-Oly,1,1,1,iTr), iRec0,myIter, myThid )
436            ENDIF            ENDIF
437  # endif /* ALLOW_OBCS_WEST */  # endif /* ALLOW_OBCS_EAST */
438  # ifdef ALLOW_OBCS_WEST  # ifdef ALLOW_OBCS_WEST
439  C     Western boundary  C     Western boundary
440            IF ( OBWptrFile(iTr) .NE. ' '  ) THEN            IF ( OBWptrFile(iTr) .NE. ' '  ) THEN
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22