Philippe 14/11/2016: minor: removed unused IO arguments
authorPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Mon, 14 Nov 2016 09:47:26 +0000 (10:47 +0100)
committerJuan Escobar <escj@aero.obs-mip.fr>
Thu, 17 Nov 2016 17:08:24 +0000 (18:08 +0100)
src/MNH/modeln.f90

index 08911c4..d2f5edd 100644 (file)
@@ -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,                  &