pkg/atm_compon_interf/cpl_init_fixed.F

3fd4b811ee Jean*0001 #include "ATM_CPL_OPTIONS.h"
6c5a9380b0 Ed H*0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
                0005 C     !ROUTINE: CPL_INIT_FIXED
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE CPL_INIT_FIXED( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Define MNC variables for use by the coupler.
9af33e3167 Jean*0012
6c5a9380b0 Ed H*0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
                0018
                0019 C     !INPUT PARAMETERS:
                0020       INTEGER myThid
                0021 CEOP
                0022
                0023 #ifdef ALLOW_MNC
                0024 C      IF (useMNC) THEN
                0025 C      ENDIF
                0026 #endif /* ALLOW_MNC */
                0027
9a4f5fc78a Jean*0028 #ifdef ALLOW_DIAGNOSTICS
                0029       IF ( useDiagnostics ) THEN
                0030         CALL CPL_DIAGNOSTICS_INIT( myThid )
                0031       ENDIF
                0032 #endif
                0033
6c5a9380b0 Ed H*0034       RETURN
                0035       END