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 |
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 |