G.Delautier 19/09/2017 : declaration GCLOUD_SURF

[MNH-git_open_source-lfs.git] / src / MNH / radiations.f90

diff --git a/src/MNH/radiations.f90 b/src/MNH/radiations.f90
index b2de10d..a6373cf 100644 (file)
--- a/src/MNH/radiations.f90
+++ b/src/MNH/radiations.f90
@@ -619,6 +619,7 @@ REAL, DIMENSION(SIZE(PTHT,1),SIZE(PTHT,2),SIZE(PTHT,3)) :: ZDZPABST
 REAL :: ZMINVAL
 INTEGER, DIMENSION(3) :: IMINLOC
 INTEGER :: IINFO_ll
+LOGICAL, DIMENSION(SIZE(PTHT,1),SIZE(PTHT,2)) :: GCLOUD_SURF
 !
 !-------------------------------------------------------------------------
 !-------------------------------------------------------------------------