pkg/regrid/regrid_mnc_init.F

aa076db465 Ed H*0001 #include "REGRID_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C     !ROUTINE: REGRID_MNC_INIT
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE REGRID_MNC_INIT( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialize MNC lookup tables for REGRID.
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
                0018 #include "REGRID_SIZE.h"
                0019 #include "REGRID.h"
                0020 #ifdef ALLOW_MNC
51f3863fef Mart*0021 #include "MNC_COMMON.h"
aa076db465 Ed H*0022 #endif /* ALLOW_MNC */
                0023
                0024 C     !INPUT PARAMETERS:
                0025       INTEGER myThid
                0026 CEOP
                0027
                0028 C     !LOCAL VARIABLES:
                0029       INTEGER i, k, ndim
                0030 #ifdef ALLOW_MNC
                0031       INTEGER CW_MAX_LOC
                0032       PARAMETER ( CW_MAX_LOC = 6 )
                0033       INTEGER dim(CW_MAX_LOC), ib(CW_MAX_LOC), ie(CW_MAX_LOC)
                0034       CHARACTER*(MNC_MAX_CHAR) name
                0035       character*(MNC_MAX_CHAR) dn(CW_MAX_LOC)
                0036
                0037       IF (useMNC) THEN
                0038
                0039 C         DO i = 1,CW_MAX_LOC
                0040 C           dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
                0041 C           dim(i) = 0
                0042 C           ib(i) = 0
                0043 C           ie(i) = 0
                0044 C         ENDDO
                0045 C         dn(2)(1:1) = 'T'
                0046 C         dim(2)     = -1
                0047 C         ib(2)      =  1
                0048 C         ie(2)      =  1
                0049
                0050 C         DO k = 1,regrid_ngrids
                0051
                0052 C           name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
                0053 C           dn(1)(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
                0054 C           write(name,'(a,i3)') 'regrid_', k
                0055 C           write(dn(1),'(a,i3)') 'regrid_', k
                0056 C           dim(1) = REGRID_nout(k)
                0057 C           ib(1)  = 1
                0058 C           ie(1)  = REGRID_nout(k)
                0059
                0060 C           CALL MNC_CW_ADD_GNAME(name, ndim, dim, dn, ib, ie, myThid)
                0061
                0062 C         ENDDO
                0063
                0064       ENDIF
                0065
                0066 #endif /* ALLOW_MNC */
                0067
                0068       RETURN
                0069       END
                0070
                0071 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|