pkg/regrid/regrid_init_fixed.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_INIT_FIXED
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE REGRID_INIT_FIXED( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialize REGRID variables that are kept fixed during the run.
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "EEPARAMS.h"
                0016 #include "SIZE.h"
                0017 #include "PARAMS.h"
                0018 #include "REGRID_SIZE.h"
                0019 #include "REGRID.h"
                0020
                0021 C     !INPUT/OUTPUT PARAMETERS:
                0022       INTEGER myThid
                0023 CEOP
                0024
                0025 C     !LOCAL VARIABLES:
                0026
                0027 #ifdef ALLOW_MNC
                0028       IF (useMNC) THEN
                0029         CALL REGRID_MNC_INIT( myThid )
                0030       ENDIF
                0031 #endif /* ALLOW_MNC */
                0032
                0033       RETURN
                0034       END