diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90 index 08911c4e1a22dbb68a132cead29c91d0d486f736..d2f5eddb8afad5b9114f6e50b5590b4507e3bc41 100644 --- a/src/MNH/modeln.f90 +++ b/src/MNH/modeln.f90 @@ -1780,8 +1780,8 @@ IF (CELEC /= 'NONE' .AND. (CCLOUD(1:3) == 'ICE')) THEN CALL MNHGET_SURF_PARAM_n (PSEA=ZSEA(:,:),PTOWN=ZTOWN(:,:)) CALL RESOLVED_ELEC_n (CCLOUD, CSCONV, CMF_CLOUD, & NRR, NSPLITR, IMI, KTCOUNT, OEXIT, & - CLBCX, CLBCY, YFMFILE, CLUOUT, CRAD, CTURBDIM, & - GCLOSE_OUT, LSUBG_COND, LSIGMAS,VSIGQSAT,CSUBG_AUCV, & + CLBCX, CLBCY, CRAD, CTURBDIM, & + LSUBG_COND, LSIGMAS,VSIGQSAT,CSUBG_AUCV, & XTSTEP, XZZ, XRHODJ, XRHODREF, XEXNREF, & XPABST, XTHT, XRTHS, XWT, XRT, XRRS, & XSVT, XRSVS, XCIT, & @@ -1794,8 +1794,8 @@ IF (CELEC /= 'NONE' .AND. (CCLOUD(1:3) == 'ICE')) THEN ELSE CALL RESOLVED_ELEC_n (CCLOUD, CSCONV, CMF_CLOUD, & NRR, NSPLITR, IMI, KTCOUNT, OEXIT, & - CLBCX, CLBCY, YFMFILE, CLUOUT, CRAD, CTURBDIM, & - GCLOSE_OUT, LSUBG_COND, LSIGMAS,VSIGQSAT, CSUBG_AUCV, & + CLBCX, CLBCY, CRAD, CTURBDIM, & + LSUBG_COND, LSIGMAS,VSIGQSAT, CSUBG_AUCV, & XTSTEP, XZZ, XRHODJ, XRHODREF, XEXNREF, & XPABST, XTHT, XRTHS, XWT, & XRT, XRRS, XSVT, XRSVS, XCIT, &