pkg/thsice/thsice_do_exch.F

dc3432b742 Jean*0001 #include "THSICE_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: THSICE_DO_EXCH
                0005 C     !INTERFACE:
                0006       SUBROUTINE THSICE_DO_EXCH( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE THSICE_DO_EXCH
                0011 C     | o Apply Exchanges to THSICE variables when necessary
                0012 C     *==========================================================*
                0013 C     \ev
                0014 C     !USES:
                0015       IMPLICIT NONE
                0016
                0017 C     === Global variables ===
                0018 #include "EEPARAMS.h"
                0019 #include "SIZE.h"
                0020 #include "PARAMS.h"
                0021 #include "THSICE_PARAMS.h"
                0022 #include "THSICE_VARS.h"
                0023
                0024 C     !INPUT/OUTPUT PARAMETERS:
                0025 C     myThid ::  my thread Id number
                0026       INTEGER myThid
                0027 CEOP
                0028
                0029 #ifdef ALLOW_THSICE
                0030 C     !LOCAL VARIABLES:
                0031
                0032       CALL EXCH_XY_RL( iceMask, myThid )
                0033       IF ( useSEAICE .OR. thSIceAdvScheme.GT.0 ) THEN
                0034 C--   Exchange fields that are advected by seaice dynamics
                0035         CALL EXCH_XY_RL( iceHeight, myThid )
                0036         CALL EXCH_XY_RL( snowHeight, myThid )
                0037         CALL EXCH_XY_RL( Qice1, myThid )
                0038         CALL EXCH_XY_RL( Qice2, myThid )
                0039       ENDIF
                0040
                0041 #endif /* ALLOW_THSICE */
                0042
                0043       RETURN
                0044       END