/[MITgcm]/MITgcm/pkg/ggl90/ggl90_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/ggl90/ggl90_init_fixed.F

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

revision 1.1 by dfer, Tue Oct 7 19:32:07 2008 UTC revision 1.2 by dfer, Fri Jan 30 02:23:56 2009 UTC
# Line 27  CEOP Line 27  CEOP
27    
28  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
29  C     === Local variables ===  C     === Local variables ===
30          INTEGER bi,bj
31          INTEGER  I, J
32    
33  C#ifdef ALLOW_MNC  C#ifdef ALLOW_MNC
34  C      IF (useMNC) THEN  C      IF (useMNC) THEN
# Line 40  C#endif /* ALLOW_MNC */ Line 42  C#endif /* ALLOW_MNC */
42        ENDIF        ENDIF
43  #endif  #endif
44    
45    #ifdef ALLOW_GGL90_SMOOTH
46          DO bj=myByLo(myThid),myByHi(myThid)
47           DO bi=myBxLo(myThid),myBxHi(myThid)
48            DO j=1-Oly,sNy+Oly
49             DO i=1-Olx,sNx+Olx
50              mskCor(i,j,bi,bj) = 1. _d 0
51             ENDDO
52            ENDDO
53            IF ( useCubedSphereExchange ) THEN
54              CALL FILL_CS_CORNER_TR_RL( 0, .FALSE.,
55         &                               mskCor, bi,bj, myThid )
56            ENDIF
57           ENDDO
58          ENDDO
59    #endif
60    
61        RETURN        RETURN
62        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22