Skip to content
Snippets Groups Projects
Commit 60c071be authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan
Browse files

Juan 20/03/2023:ZSOLVER/get_halo.f90, missing INIT_HALO_D, in some case, in GET_HALO2_DF

parent b727a9ae
No related branches found
Tags PACK-MNH-V5-5-OPENACC-FFT-1-02_IA_CORSE
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/ZSOLVER/get_halo.f90
+ 2
− 0
View file @ 60c071be
...@@ -2320,6 +2320,8 @@ character(len=*), optional, intent(in) :: HNAME ! Name of the field to be added ...@@ -2320,6 +2320,8 @@ character(len=*), optional, intent(in) :: HNAME ! Name of the field to be added
! !
REAL , DIMENSION(:,:) , POINTER , CONTIGUOUS :: ZH2F_EAST,ZH2F_WEST,ZH2F_NORTH,ZH2F_SOUTH REAL , DIMENSION(:,:) , POINTER , CONTIGUOUS :: ZH2F_EAST,ZH2F_WEST,ZH2F_NORTH,ZH2F_SOUTH
! !
CALL INIT_HALO_D()
!
ZH2F_EAST => TP_PSRC_HALO2F_ll%HALO2%EAST ZH2F_EAST => TP_PSRC_HALO2F_ll%HALO2%EAST
ZH2F_WEST => TP_PSRC_HALO2F_ll%HALO2%WEST ZH2F_WEST => TP_PSRC_HALO2F_ll%HALO2%WEST
ZH2F_NORTH => TP_PSRC_HALO2F_ll%HALO2%NORTH ZH2F_NORTH => TP_PSRC_HALO2F_ll%HALO2%NORTH
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme