Philippe 21/11/2019: minor: ADVEC_4TH_ORDER_ALGO: TPHALO2 dummy argument is no longer optional

src/MNH/advec_4th_order_aux.f90

@@ -21,7 +21,7 @@ REAL, DIMENSION(:,:,:), INTENT(OUT)   :: PMEANX, PMEANY ! fluxes
 REAL, DIMENSION(:,:,:), INTENT(IN)    :: PFIELDT  ! variable at t
 INTEGER,                INTENT(IN)    :: KGRID    ! C grid localisation
 !
-TYPE(HALO2_ll), OPTIONAL, POINTER :: TPHALO2      ! halo2 for the field at t
+TYPE(HALO2_ll), POINTER :: TPHALO2      ! halo2 for the field at t
 !
 END SUBROUTINE ADVEC_4TH_ORDER_ALGO
 !
@@ -95,9 +95,9 @@ END MODULE MODI_ADVEC_4TH_ORDER_AUX
 !!    MODIFICATIONS
 !!    -------------
 !!      Original   25/10/05
-!!      Modif
-!!      J.Escobar 21/03/2013: for HALOK comment all NHALO=1 test
-!!
+! J. Escobar  21/03/2013: for HALOK comment all NHALO=1 test
+! P. Wautelet 21/11/2019: TPHALO2 dummy argument is no longer optional
+!
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -126,7 +126,7 @@ REAL, DIMENSION(:,:,:), INTENT(OUT)   :: PMEANX, PMEANY ! fluxes
 REAL, DIMENSION(:,:,:), INTENT(IN)    :: PFIELDT  ! variable at t
 INTEGER,                INTENT(IN)    :: KGRID    ! C grid localisation
 !
-TYPE(HALO2_ll), OPTIONAL, POINTER :: TPHALO2      ! halo2 for the field at t
+TYPE(HALO2_ll), POINTER :: TPHALO2      ! halo2 for the field at t
 !
 !*       0.2   Declarations of local variables :
 !