/[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.17 by jmc, Sun Jan 31 20:25:49 2010 UTC revision 1.18 by jmc, Thu Dec 9 03:47:40 2010 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "OBCS_OPTIONS.h"  #include "OBCS_OPTIONS.h"
5    
6    C--  File obcs_external_fields_load.F: Routines to read of OBC fields from files
7    C--   Contents
8    C--   o OBCS_EXTERNAL_FIELDS_LOAD
9    C--   o OBCS_EXTERNAL_FIELDS_INTERP_XZ
10    C--   o OBCS_EXTERNAL_FIELDS_INTERP_YZ
11    
12    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
13  CBOP  CBOP
14  C     !ROUTINE: OBCS_EXTERNAL_FIELDS_LOAD  C     !ROUTINE: OBCS_EXTERNAL_FIELDS_LOAD
15  C     !INTERFACE:  C     !INTERFACE:
# Line 391  C     Northern boundary Line 399  C     Northern boundary
399          ENDIF          ENDIF
400  # ifdef ALLOW_NONHYDROSTATIC  # ifdef ALLOW_NONHYDROSTATIC
401          IF ( OBNwFile .NE. ' '  ) THEN          IF ( OBNwFile .NE. ' '  ) THEN
402           CALL READ_REC_YZ_RL( OBNwFile,fp,Nr,OBNw0,iRec0,myIter,myThid )           CALL READ_REC_XZ_RL( OBNwFile,fp,Nr,OBNw0,iRec0,myIter,myThid )
403          ENDIF          ENDIF
404  # endif /* ALLOW_NONHYDROSTATIC */  # endif /* ALLOW_NONHYDROSTATIC */
405  # ifdef NONLIN_FRSURF  # ifdef NONLIN_FRSURF
# Line 417  C     Southern boundary Line 425  C     Southern boundary
425          ENDIF          ENDIF
426  # ifdef ALLOW_NONHYDROSTATIC  # ifdef ALLOW_NONHYDROSTATIC
427          IF ( OBSwFile .NE. ' '  ) THEN          IF ( OBSwFile .NE. ' '  ) THEN
428           CALL READ_REC_YZ_RL( OBSwFile,fp,Nr,OBSw0,iRec0,myIter,myThid )           CALL READ_REC_XZ_RL( OBSwFile,fp,Nr,OBSw0,iRec0,myIter,myThid )
429          ENDIF          ENDIF
430  # endif /* ALLOW_NONHYDROSTATIC */  # endif /* ALLOW_NONHYDROSTATIC */
431  # ifdef NONLIN_FRSURF  # ifdef NONLIN_FRSURF
# Line 619  C     end if (usePTRACERS) Line 627  C     end if (usePTRACERS)
627        RETURN        RETURN
628        END        END
629    
630    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
631  CBOP  CBOP
632  C     !ROUTINE: OBCS_EXTERNAL_FIELDS_INTERP_XZ  C     !ROUTINE: OBCS_EXTERNAL_FIELDS_INTERP_XZ
633  C     !INTERFACE:  C     !INTERFACE:
# Line 667  CEOP Line 676  CEOP
676    
677        RETURN        RETURN
678        END        END
679    
680    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
681  CBOP  CBOP
682  C     !ROUTINE: OBCS_EXTERNAL_FIELDS_INTERP_YZ  C     !ROUTINE: OBCS_EXTERNAL_FIELDS_INTERP_YZ
683  C     !INTERFACE:  C     !INTERFACE:
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22