Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.10 by heimbach, Mon Sep 20 23:22:57 2004 UTC | revision 1.11 by mlosch, Fri Sep 24 14:31:16 2004 UTC | |
|---|---|---|
| # | Line 173 C-- Apply OBCS values to initial condi | Line 173 C-- Apply OBCS values to initial condi |
| 173 | ENDDO | ENDDO |
| 174 | ENDDO | ENDDO |
| 175 | ||
| 176 | IF (useOBCSprescribe) THEN | |
| 177 | C After applying the boundary conditions exchange the 3D-fields. | |
| 178 | C This is only necessary of the boudnary values have been read | |
| 179 | C from a file. | |
| 180 | CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) | |
| 181 | _EXCH_XYZ_R8( theta, myThid ) | |
| 182 | _EXCH_XYZ_R8( salt , myThid ) | |
| 183 | ENDIF | |
| 184 | ||
| 185 | #endif /* ALLOW_OBCS */ | #endif /* ALLOW_OBCS */ |
| 186 | ||
| 187 | RETURN | RETURN |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |