pkg/ggl90/ggl90_init_fixed.F

57949a6522 Davi*0001 #include "GGL90_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: GGL90_INIT_FIXED
                0006 C !INTERFACE:
                0007       SUBROUTINE GGL90_INIT_FIXED( myThid )
                0008
31a3206180 Mart*0009 C     !DESCRIPTION: \bv
                0010 C     *================================================================*
                0011 C     | S/R GGL90_INIT_FIXED
                0012 C     | Initialize GGL90 variables that are kept fixed during the run.
                0013 C     *================================================================*
                0014 C     \ev
57949a6522 Davi*0015
                0016 C     !USES:
                0017       IMPLICIT NONE
                0018 #include "EEPARAMS.h"
                0019 #include "SIZE.h"
                0020 #include "PARAMS.h"
                0021 #include "GGL90.h"
                0022
                0023 C     !INPUT/OUTPUT PARAMETERS:
                0024 C     myThid ::  my Thread Id number
                0025       INTEGER myThid
                0026
                0027 C     !LOCAL VARIABLES:
                0028 C     === Local variables ===
cdafb98dea Mart*0029 #ifdef ALLOW_GGL90_SMOOTH
24ffd6fe01 Jean*0030       INTEGER i, j, bi, bj
                0031 #endif
31a3206180 Mart*0032 CEOP
57949a6522 Davi*0033
                0034 C#ifdef ALLOW_MNC
                0035 C      IF (useMNC) THEN
                0036 C        CALL GGL90_MNC_INIT( myThid )
                0037 C      ENDIF
                0038 C#endif /* ALLOW_MNC */
                0039
                0040 #ifdef ALLOW_DIAGNOSTICS
                0041       IF ( useDiagnostics ) THEN
                0042         CALL GGL90_DIAGNOSTICS_INIT( myThid )
                0043       ENDIF
                0044 #endif
                0045
004d5ee949 Davi*0046 #ifdef ALLOW_GGL90_SMOOTH
                0047       DO bj=myByLo(myThid),myByHi(myThid)
                0048        DO bi=myBxLo(myThid),myBxHi(myThid)
8e38f6ef91 Jean*0049         DO j=1-OLy,sNy+OLy
                0050          DO i=1-OLx,sNx+OLx
004d5ee949 Davi*0051           mskCor(i,j,bi,bj) = 1. _d 0
                0052          ENDDO
                0053         ENDDO
0320e25227 Mart*0054 C- for now, hide this call from OpenAD:
                0055 # if ( !(defined ALLOW_OPENAD) || (defined ALLOW_EXCH2) )
004d5ee949 Davi*0056         IF ( useCubedSphereExchange ) THEN
                0057           CALL FILL_CS_CORNER_TR_RL( 0, .FALSE.,
8e38f6ef91 Jean*0058      U                               mskCor(1-OLx,1-OLy,bi,bj),
0320e25227 Mart*0059      I                               bi, bj, myThid )
004d5ee949 Davi*0060         ENDIF
f13fe90a48 Patr*0061 # endif
004d5ee949 Davi*0062        ENDDO
                0063       ENDDO
0320e25227 Mart*0064 #endif /* ALLOW_GGL90_SMOOTH */
004d5ee949 Davi*0065
57949a6522 Davi*0066       RETURN
                0067       END