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

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

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

revision 1.1 by heimbach, Mon May 14 21:27:23 2001 UTC revision 1.2 by adcroft, Tue May 29 14:01:39 2001 UTC
# Line 61  C     READ E and W OB arrays Line 61  C     READ E and W OB arrays
61  #endif  #endif
62    
63  C     Fill in edge regions  C     Fill in edge regions
64        _EXCH_XZ_R4(OBNu , myThid)  c      _EXCH_XZ_R4(OBNu , myThid)
65        _EXCH_XZ_R4(OBNv , myThid)  c      _EXCH_XZ_R4(OBNv , myThid)
66        _EXCH_XZ_R4(OBNt , myThid)  c      _EXCH_XZ_R4(OBNt , myThid)
67        _EXCH_XZ_R4(OBNs , myThid)  c      _EXCH_XZ_R4(OBNs , myThid)
68        _EXCH_XZ_R4(OBSu , myThid)  c      _EXCH_XZ_R4(OBSu , myThid)
69        _EXCH_XZ_R4(OBSv , myThid)  c      _EXCH_XZ_R4(OBSv , myThid)
70        _EXCH_XZ_R4(OBSt , myThid)  c      _EXCH_XZ_R4(OBSt , myThid)
71        _EXCH_XZ_R4(OBSs , myThid)  c      _EXCH_XZ_R4(OBSs , myThid)
72  #ifdef ALLOW_NONHYDROSTATIC  c#ifdef ALLOW_NONHYDROSTATIC
73        _EXCH_XZ_R4(OBNw , myThid)  c      _EXCH_XZ_R4(OBNw , myThid)
74        _EXCH_XZ_R4(OBSw , myThid)  c      _EXCH_XZ_R4(OBSw , myThid)
75  #endif  c#endif
76    
77  C     Fill in edge regions  C     Fill in edge regions
78        _EXCH_YZ_R4(OBEu , myThid)  c      _EXCH_YZ_R4(OBEu , myThid)
79        _EXCH_YZ_R4(OBEv , myThid)  c      _EXCH_YZ_R4(OBEv , myThid)
80        _EXCH_YZ_R4(OBEt , myThid)  c      _EXCH_YZ_R4(OBEt , myThid)
81        _EXCH_YZ_R4(OBEs , myThid)  c      _EXCH_YZ_R4(OBEs , myThid)
82        _EXCH_YZ_R4(OBWu , myThid)  c      _EXCH_YZ_R4(OBWu , myThid)
83        _EXCH_YZ_R4(OBWv , myThid)  c      _EXCH_YZ_R4(OBWv , myThid)
84        _EXCH_YZ_R4(OBWt , myThid)  c      _EXCH_YZ_R4(OBWt , myThid)
85        _EXCH_YZ_R4(OBWs , myThid)  c      _EXCH_YZ_R4(OBWs , myThid)
86  #ifdef ALLOW_NONHYDROSTATIC  c#ifdef ALLOW_NONHYDROSTATIC
87        _EXCH_YZ_R4(OBEw , myThid)  c      _EXCH_YZ_R4(OBEw , myThid)
88        _EXCH_YZ_R4(OBWw , myThid)  c      _EXCH_YZ_R4(OBWw , myThid)
89  #endif  c#endif
90    
91  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
92        IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR.        IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22