G.Delautier 19/09/2017 : declaration GCLOUD_SURF MNH-52X
authorGaelle DELAUTIER <gaelle.delautier@meteo.fr>
Tue, 19 Sep 2017 09:10:40 +0000 (11:10 +0200)
committerGaelle DELAUTIER <gaelle.delautier@meteo.fr>
Tue, 19 Sep 2017 09:10:40 +0000 (11:10 +0200)
src/MNH/radiations.f90

index b2de10d..a6373cf 100644 (file)
@@ -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
 !
 !-------------------------------------------------------------------------
 !-------------------------------------------------------------------------