diff --git a/src/MNH/modd_fieldn.f90 b/src/MNH/modd_fieldn.f90 index ad3288ed52c6e43f2986823e0f6c410a27d1796d..e5a933bbae17aa91b3be17c35e5ebb969dca0272 100644 --- a/src/MNH/modd_fieldn.f90 +++ b/src/MNH/modd_fieldn.f90 @@ -171,11 +171,6 @@ REAL, DIMENSION(:,:,:), POINTER :: XRCM=>NULL() REAL, DIMENSION(:,:), POINTER :: XFLUCTUNW=>NULL(),XFLUCTVNN=>NULL(),XFLUCTUTN=>NULL(),XFLUCTVTW=>NULL() REAL, DIMENSION(:,:), POINTER :: XFLUCTUNE=>NULL(),XFLUCTVNS=>NULL(),XFLUCTUTS=>NULL(),XFLUCTVTE=>NULL() REAL, DIMENSION(:,:), POINTER :: XFLUCTWTW=>NULL(),XFLUCTWTN=>NULL(),XFLUCTWTE=>NULL(),XFLUCTWTS=>NULL() -REAL, DIMENSION(:,:,:), POINTER :: XHLC_HRC=>NULL() -REAL, DIMENSION(:,:,:), POINTER :: XHLC_HCF=>NULL() -REAL, DIMENSION(:,:,:), POINTER :: XHLI_HRI=>NULL() -REAL, DIMENSION(:,:,:), POINTER :: XHLI_HCF=>NULL() - CONTAINS SUBROUTINE FIELD_GOTO_MODEL(KFROM, KTO)