Juan 25/11/2015: some interface update PACK-MNH-V5-2--0-06_PREPLL
authorJuan Escobar <juan.escobar@aero.obs-mip.fr>
Wed, 25 Nov 2015 10:39:51 +0000 (10:39 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/LIB/SURCOUCHE/src/extern_usersurc_ll.f90
src/LIB/SURCOUCHE/src/modi_init_ll.f90
src/MNH/spawn_model2.f90

index 1443c32..ba51210 100644 (file)
 !
        END SUBROUTINE INIT_LB_ll
 !
+!     #######################
+      SUBROUTINE SET_LB_FIELD_ll(HLBTYPE, PFIELD, PLBXFIELD, PLBYFIELD, IIB, IJB, IIE, IJE, &
+        SHIFTWEST, SHIFTEAST, SHIFTSOUTH, SHIFTNORTH )
+!     #######################
+!
+  USE MODE_LB_ll, ONLY : E_SET_LB_FIELD_ll => SET_LB_FIELD_ll
+!
+  CHARACTER(LEN=*),INTENT(IN) :: HLBTYPE ! LB type : 'LB','LBU'
+  REAL, DIMENSION(:,:,:), INTENT(IN)  :: PFIELD      ! field on the whole domain (or subdomain)
+  REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PLBXFIELD    ! LB field - X direction
+  REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PLBYFIELD    ! LB field - Y direction
+  !beginning and end of the local physical subdomain
+  INTEGER, INTENT(IN)   :: IIB            ! indice I Beginning in x direction
+  INTEGER, INTENT(IN)   :: IJB            ! indice J Beginning in y direction
+  INTEGER, INTENT(IN)   :: IIE            ! indice I End       in x direction
+  INTEGER, INTENT(IN)   :: IJE            ! indice J End       in y direction
+  INTEGER, INTENT(IN)   :: SHIFTWEST, SHIFTEAST, SHIFTSOUTH, SHIFTNORTH ! shifting applied to the indices copied from PFIELD in each direction
+                                                                        ! it is used for LBXUM et LBXVM
+                                                                        ! I do not know why...
+!
+  CALL E_SET_LB_FIELD_ll(HLBTYPE, PFIELD, PLBXFIELD, PLBYFIELD, IIB, IJB, IIE, IJE, &
+        SHIFTWEST, SHIFTEAST, SHIFTSOUTH, SHIFTNORTH )
+!
+       END SUBROUTINE SET_LB_FIELD_ll
+!
 !!     ###################################
        FUNCTION LNORTH_ll( K, HSPLITTING )
 !!     ###################################
index b2c3ce2..ecf09a1 100644 (file)
@@ -146,6 +146,27 @@ INTERFACE
 !
        END SUBROUTINE INIT_LB_ll
 !
+!      #######################
+       SUBROUTINE SET_LB_FIELD_ll(HLBTYPE, PFIELD, PLBXFIELD, PLBYFIELD, IIB, IJB, IIE, IJE, &
+        SHIFTWEST, SHIFTEAST, SHIFTSOUTH, SHIFTNORTH )
+  !
+  CHARACTER(LEN=*),INTENT(IN) :: HLBTYPE ! LB type : 'LB','LBU'
+  REAL, DIMENSION(:,:,:), INTENT(IN)  :: PFIELD      ! field on the whole domain (or subdomain)
+  REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PLBXFIELD    ! LB field - X direction
+  REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PLBYFIELD    ! LB field - Y direction
+  !beginning and end of the local physical subdomain
+  INTEGER, INTENT(IN)   :: IIB            ! indice I Beginning in x direction
+  INTEGER, INTENT(IN)   :: IJB            ! indice J Beginning in y direction
+  INTEGER, INTENT(IN)   :: IIE            ! indice I End       in x direction
+  INTEGER, INTENT(IN)   :: IJE            ! indice J End       in y direction
+  INTEGER, INTENT(IN)   :: SHIFTWEST, SHIFTEAST, SHIFTSOUTH, SHIFTNORTH ! shifting applied to the indices copied from PFIELD in each direction
+                                                                        ! it is used for LBXUM et LBXVM
+                                                                        ! I do not know why...
+  !
+!      #######################
+!
+       END SUBROUTINE SET_LB_FIELD_ll
+!
 !      ###################################
         SUBROUTINE INI_PARA_ll( KINFO_ll )
 !      ###################################
index e7bb19e..e1b859d 100644 (file)
@@ -272,7 +272,7 @@ USE MODD_ADVFRC_n
 USE MODD_RELFRC_n
 USE MODD_2D_FRC
 !
-USE MODE_LB_ll, ONLY : SET_LB_FIELD_ll
+!USE MODE_LB_ll, ONLY : SET_LB_FIELD_ll
 USE MODI_GET_SIZEX_LB
 USE MODI_GET_SIZEY_LB
 !