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:
b7411f1a84 Jean*0011 C     Initialise non evolving (fixed) coupling interface package,
                0012 C     Atmospheric version
9af33e3167 Jean*0013
6c5a9380b0 Ed H*0014 C     !USES:
                0015       IMPLICIT NONE
                0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 #include "PARAMS.h"
                0019
                0020 C     !INPUT PARAMETERS:
                0021       INTEGER myThid
                0022 CEOP
                0023
9a4f5fc78a Jean*0024 #ifdef ALLOW_DIAGNOSTICS
                0025       IF ( useDiagnostics ) THEN
                0026         CALL CPL_DIAGNOSTICS_INIT( myThid )
                0027       ENDIF
                0028 #endif
                0029
6c5a9380b0 Ed H*0030       RETURN
                0031       END