/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_som_fill_cs_corner.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_som_fill_cs_corner.F

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

revision 1.2 by jmc, Fri May 9 21:43:16 2008 UTC revision 1.3 by jmc, Wed Oct 22 00:28:47 2008 UTC
# Line 60  C     myThid    :: my Thread Id. number Line 60  C     myThid    :: my Thread Id. number
60    
61  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
62  C     == Local variables ==  C     == Local variables ==
63          INTEGER selectDir
64  CEOP  CEOP
65    
66        IF (useCubedSphereExchange) THEN        IF (useCubedSphereExchange) THEN
67            CALL FILL_CS_CORNER_TR_RL( fill4dirX, .FALSE.,            IF ( fill4dirX ) THEN
68                selectDir = 1
69              ELSE
70                selectDir = 2
71              ENDIF
72              CALL FILL_CS_CORNER_TR_RL( selectDir, .FALSE.,
73       &                               sm_v , bi,bj, myThid )       &                               sm_v , bi,bj, myThid )
74            CALL FILL_CS_CORNER_TR_RL( fill4dirX, .FALSE.,            CALL FILL_CS_CORNER_TR_RL( selectDir, .FALSE.,
75       &                               sm_o , bi,bj, myThid )       &                               sm_o , bi,bj, myThid )
76            CALL FILL_CS_CORNER_AG_RL( fill4dirX, .TRUE.,            CALL FILL_CS_CORNER_AG_RL( fill4dirX, .TRUE.,
77       &                               sm_x , sm_y , bi,bj, myThid )       &                               sm_x , sm_y , bi,bj, myThid )
78            CALL FILL_CS_CORNER_TR_RL( fill4dirX, .FALSE.,            CALL FILL_CS_CORNER_TR_RL( selectDir, .FALSE.,
79       &                               sm_z , bi,bj, myThid )       &                               sm_z , bi,bj, myThid )
80            CALL FILL_CS_CORNER_AG_RL( fill4dirX, .FALSE.,            CALL FILL_CS_CORNER_AG_RL( fill4dirX, .FALSE.,
81       &                               sm_xx, sm_yy, bi,bj, myThid )       &                               sm_xx, sm_yy, bi,bj, myThid )
82            CALL FILL_CS_CORNER_TR_RL( fill4dirX, .FALSE.,            CALL FILL_CS_CORNER_TR_RL( selectDir, .FALSE.,
83       &                               sm_zz, bi,bj, myThid )       &                               sm_zz, bi,bj, myThid )
84            CALL FILL_CS_CORNER_TR_RL( fill4dirX, .TRUE.,            CALL FILL_CS_CORNER_TR_RL( selectDir, .TRUE.,
85       &                               sm_xy, bi,bj, myThid )       &                               sm_xy, bi,bj, myThid )
86            CALL FILL_CS_CORNER_AG_RL( fill4dirX, .TRUE.,            CALL FILL_CS_CORNER_AG_RL( fill4dirX, .TRUE.,
87       &                               sm_xz, sm_yz, bi,bj, myThid )       &                               sm_xz, sm_yz, bi,bj, myThid )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22