Correction in init CALL (unused key) with SFXV9

932e8ed3 · WURTZ Jean · b4972bbf · 932e8ed3
Commit 932e8ed3 authored 2 years ago by WURTZ Jean
--- a/src/MNH/init_ground_paramn.f90
+++ b/src/MNH/init_ground_paramn.f90
@@ -221,7 +221,7 @@ ELSE
    ALLOCATE(YSV_SURF(ISV))
    YSV_SURF(:)     = HSV(:)
 ENDIF
-CALL INIT_SURF_ATM_n(YSURF_CUR,'MESONH',HINIT,.FALSE.,                  &
+CALL INIT_SURF_ATM_n(YSURF_CUR,'MESONH',HINIT,                          &
                     ILU,ISV,SIZE(PSW_BANDS),                           &
                     YSV_SURF,ZCO2,ZRHODREF,                            &
                     ZZENITH,ZAZIM,PSW_BANDS,ZDIR_ALB,ZSCA_ALB,         &