api_coupling.f

Go to the documentation of this file.

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!
      MODULE api_coupling
!
      USE api_instance_sis
      USE api_instance_t2d
      USE api_handle_var_t2d
      USE api_handle_var_sis

      IMPLICIT NONE
      PRIVATE

      PUBLIC :: save_charr_susp_cpl
      PUBLIC :: charr_or_susp_cpl
      PUBLIC :: set_var_sis_cpl
      PUBLIC :: set_var_t2d_cpl

      CONTAINS

!
      !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      SUBROUTINE save_charr_susp_cpl(INST_SIS, INST_T2D, IERR)
        TYPE(instance_sis),  INTENT(IN) :: inst_sis
        TYPE(instance_t2d),  INTENT(INOUT) :: INST_T2D
        INTEGER,             INTENT(OUT) :: IERR
!
        ierr = 0

        inst_t2d%CHARR_SIS = inst_sis%TEL%SIS_CPL%CHARR
        inst_t2d%SUSP_SIS = inst_sis%TEL%SIS_CPL%SUSP

      END SUBROUTINE save_charr_susp_cpl


      !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      SUBROUTINE charr_or_susp_cpl(INST_SIS, INST_T2D, CHARR_SUSP, IERR)
        TYPE(instance_sis),  INTENT(IN) :: INST_SIS
        TYPE(instance_t2d),  INTENT(INOUT) :: INST_T2D
        INTEGER,             INTENT(OUT) :: CHARR_SUSP
        INTEGER,             INTENT(OUT) :: IERR
        LOGICAL                          :: YES_CHARR
!
        ierr = 0
        charr_susp = 0

        IF(inst_t2d%SUSP_SIS.AND.inst_t2d%CHARR_SIS
     &                      .AND.inst_t2d%SIS%PERCOU.NE.1) THEN
          inst_t2d%LEOPRD_CHARR=inst_t2d%SIS%NIT+inst_t2d%SIS%PERCOU
        ELSE
          inst_t2d%LEOPRD_CHARR=inst_t2d%SIS%LEOPRD
        ENDIF

        inst_t2d%SUSP1=inst_t2d%SUSP_SIS
     &                      .AND.inst_t2d%SIS%PERCOU.EQ.1
        IF(inst_t2d%SUSP1.OR.(inst_t2d%CHARR_SIS
     &                   .AND.(inst_t2d%SIS%PERCOU*(inst_t2d%SIS%LT
     &                         /inst_t2d%SIS%PERCOU).EQ.inst_t2d%SIS%LT
     &                        ))) THEN
          charr_susp = 1
          yes_charr = .true.
        END IF

        IF(inst_t2d%SUSP_SIS.AND.inst_t2d%SIS%PERCOU.NE.1) THEN
          IF (yes_charr) THEN
            charr_susp = 3
          ELSE
            charr_susp = 2
          END IF
        END IF
      END SUBROUTINE charr_or_susp_cpl


      !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      SUBROUTINE set_var_sis_cpl(INST_T2D, CALL_TYPE, INST_SIS,IERR)
        TYPE(instance_t2d),  INTENT(IN) :: INST_T2D
        INTEGER,             INTENT(IN) :: CALL_TYPE
        TYPE(instance_sis),  INTENT(INOUT) :: INST_SIS
        INTEGER,             INTENT(OUT) :: IERR
!
        ierr = 0

        IF (call_type.EQ.0) THEN
          inst_sis%CPL_T2D_SIS = .true.
          !INS
          inst_sis%TEL%LOOPCOUNT =>  inst_t2d%SIS%LT
          inst_sis%TEL%GRAPHCOUNT => inst_t2d%SIS%LEOPRD
          inst_sis%TEL%COMPLEO => inst_t2d%COMPLEO
          inst_sis%TEL%YAGOUT = inst_t2d%LEO
          inst_sis%TEL%LISTCOUNT => inst_t2d%SIS%LISPRD
          inst_sis%TEL%NIT => inst_t2d%SIS%NIT
          inst_sis%TEL%U => inst_t2d%SIS%U
          inst_sis%TEL%V => inst_t2d%SIS%V
          inst_sis%TEL%H => inst_t2d%SIS%H
          inst_sis%TEL%HN => inst_t2d%SIS%H
          inst_sis%TEL%HPROP => inst_t2d%SIS%H

          !OUTS
          inst_sis%TEL%ZF => inst_t2d%SIS%ZF
          inst_sis%TEL%UETCAR => inst_t2d%SIS%CF
          inst_sis%TEL%CF => inst_t2d%SIS%CF
          inst_sis%TEL%KS => inst_t2d%SIS%CHESTR

          inst_sis%TEL%SIS_CPL%NSIS_CFD = 1
          inst_sis%TEL%SIS_CPL%SISYPHE_CFD = .false.
          inst_sis%TEL%SIS_CPL%CONSTFLOW = .false.
          inst_sis%TEL%SIS_CPL%CHARR = .false.
          inst_sis%TEL%SIS_CPL%SUSP = .false.

          !INS
          inst_sis%TEL%CODE = 'TELEMAC2D               '
          inst_sis%TEL%PERICOU => inst_t2d%SIS%PERCOU
          inst_sis%TEL%U3D => inst_t2d%SIS%U
          inst_sis%TEL%V3D => inst_t2d%SIS%V
          inst_sis%TEL%T = inst_t2d%SIS%AT
          inst_sis%TEL%VISC => inst_t2d%SIS%VISC
          inst_sis%TEL%DT = inst_t2d%SIS%DT

          inst_sis%TEL%FLBOR => inst_t2d%SIS%FLBOR
          inst_sis%TEL%DM1 => inst_t2d%SIS%DM1
          inst_sis%TEL%UCONV => inst_t2d%SIS%USIS
          inst_sis%TEL%VCONV => inst_t2d%SIS%VSIS
          inst_sis%TEL%ZCONV => inst_t2d%SIS%ZCONV
          inst_sis%TEL%THETAW => inst_t2d%SIS%DIRMOY
          inst_sis%TEL%HW => inst_t2d%SIS%HM0
          inst_sis%TEL%TW => inst_t2d%SIS%TPR5
          inst_sis%TEL%UW => inst_t2d%SIS%ORBVEL

        ELSE IF (call_type.EQ.1) THEN
          inst_sis%TEL%HN => inst_t2d%SIS%HN
          inst_sis%TEL%HPROP => inst_t2d%SIS%HPROP

          inst_sis%TEL%LOOPCOUNT =>  inst_t2d%SIS%LT
          inst_sis%TEL%GRAPHCOUNT = inst_t2d%LEOPRD_CHARR

          inst_sis%TEL%T = inst_t2d%SIS%AT
          inst_sis%TEL%PERICOU = inst_t2d%SIS%PERCOU
          inst_sis%TEL%DT = inst_t2d%SIS%DT*inst_t2d%SIS%PERCOU

          inst_sis%TEL%SIS_CPL%CHARR = inst_t2d%CHARR_SIS
          inst_sis%TEL%SIS_CPL%SUSP = inst_t2d%SUSP1

          inst_sis%TEL%SOLSYS = inst_t2d%SIS%SOLSYS
        ELSE IF (call_type.EQ.2) THEN

          inst_sis%TEL%HN => inst_t2d%SIS%HN
          inst_sis%TEL%HPROP => inst_t2d%SIS%HPROP

          inst_sis%TEL%LOOPCOUNT =>  inst_t2d%SIS%LT
          inst_sis%TEL%GRAPHCOUNT = inst_t2d%SIS%LEOPRD

          inst_sis%TEL%T = inst_t2d%SIS%AT
          inst_sis%TEL%PERICOU = 1
          inst_sis%TEL%DT = inst_t2d%SIS%DT

          inst_sis%TEL%SIS_CPL%CHARR = inst_t2d%CHARR_TEL
          inst_sis%TEL%SIS_CPL%SUSP = inst_t2d%SUSP_SIS

          inst_sis%TEL%SOLSYS = inst_t2d%SIS%SOLSYS

        END IF

      END SUBROUTINE set_var_sis_cpl


      !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      SUBROUTINE set_var_t2d_cpl(INST_SIS, INST_T2D,IERR)
        TYPE(instance_sis),  INTENT(IN) :: INST_SIS
        TYPE(instance_t2d),  INTENT(INOUT) :: INST_T2D
        INTEGER,             INTENT(OUT) :: IERR
!
        ierr = 0
        inst_t2d%ZF     = inst_sis%TEL%ZF
        inst_t2d%CHESTR = inst_sis%TEL%KS
        inst_t2d%SIS%CF = inst_sis%TEL%CF

        inst_t2d%SIS%SIS_CPL%NSIS_CFD =inst_sis%TEL%SIS_CPL%NSIS_CFD
        inst_t2d%SIS%SIS_CPL%SISYPHE_CFD
     &                           = inst_sis%TEL%SIS_CPL%SISYPHE_CFD
        inst_t2d%SIS%SIS_CPL%CONSTFLOW = inst_sis%TEL%SIS_CPL%CONSTFLOW

        inst_t2d%SIS%SIS_CPL%CHARR = inst_t2d%CHARR_SIS
        inst_t2d%SIS%SIS_CPL%SUSP = inst_t2d%SUSP_SIS
      END SUBROUTINE set_var_t2d_cpl
      END MODULE api_coupling