From ad0f77981457476dfeb508b764212862716b6f95 Mon Sep 17 00:00:00 2001 From: Gaelle Tanguy <gaelle.tanguy@meteo.fr> Date: Thu, 30 Jan 2014 14:29:43 +0000 Subject: [PATCH] Christine 30/01/2014 : manque LEI --- src/MNH/ini_posprofilern.f90 | 2 ++ src/MNH/ini_surfstationn.f90 | 2 ++ 2 files changed, 4 insertions(+) diff --git a/src/MNH/ini_posprofilern.f90 b/src/MNH/ini_posprofilern.f90 index ab11d5241..77d9e7338 100644 --- a/src/MNH/ini_posprofilern.f90 +++ b/src/MNH/ini_posprofilern.f90 @@ -198,6 +198,7 @@ ALLOCATE(TPROFILER%MER10M (ISTORE,NUMBPROFILER)) ALLOCATE(TPROFILER%RN (ISTORE,NUMBPROFILER)) ALLOCATE(TPROFILER%H (ISTORE,NUMBPROFILER)) ALLOCATE(TPROFILER%LE (ISTORE,NUMBPROFILER)) +ALLOCATE(TPROFILER%LEI (ISTORE,NUMBPROFILER)) ALLOCATE(TPROFILER%GFLUX (ISTORE,NUMBPROFILER)) ALLOCATE(TPROFILER%LW (ISTORE,NUMBPROFILER)) ALLOCATE(TPROFILER%SW (ISTORE,NUMBPROFILER)) @@ -228,6 +229,7 @@ TPROFILER%RN = XUNDEF TPROFILER%H = XUNDEF TPROFILER%LE = XUNDEF TPROFILER%GFLUX = XUNDEF +TPROFILER%LEI = XUNDEF TPROFILER%LW = XUNDEF TPROFILER%SW = XUNDEF TPROFILER%TKE_DISS = XUNDEF diff --git a/src/MNH/ini_surfstationn.f90 b/src/MNH/ini_surfstationn.f90 index 38749ecae..eba99ef5f 100644 --- a/src/MNH/ini_surfstationn.f90 +++ b/src/MNH/ini_surfstationn.f90 @@ -196,6 +196,7 @@ ALLOCATE(TSTATION%RN (ISTORE,NUMBSTAT)) ALLOCATE(TSTATION%H (ISTORE,NUMBSTAT)) ALLOCATE(TSTATION%LE (ISTORE,NUMBSTAT)) ALLOCATE(TSTATION%GFLUX (ISTORE,NUMBSTAT)) +ALLOCATE(TSTATION%LEI (ISTORE,NUMBSTAT)) ALLOCATE(TSTATION%SW (ISTORE,NUMBSTAT)) ALLOCATE(TSTATION%LW (ISTORE,NUMBSTAT)) ALLOCATE(TSTATION%DSTAOD (ISTORE,NUMBSTAT)) @@ -222,6 +223,7 @@ TSTATION%RN = XUNDEF TSTATION%H = XUNDEF TSTATION%LE = XUNDEF TSTATION%GFLUX = XUNDEF +TSTATION%LEI = XUNDEF TSTATION%SW = XUNDEF TSTATION%LW = XUNDEF TSTATION%DSTAOD = XUNDEF -- GitLab