Changeset 7525 for branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/ioipslctrl.f90

Timestamp:

2022-03-14T13:45:35+01:00 (2 years ago)

Author:

sebastiaan.luyssaert

Message:

Fix for ticket #816

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/ioipslctrl.f90 (modified) (2 diffs)

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/ioipslctrl.f90

@@ -1042 +1042 @@
           CALL histdef(hist_id, 'SubSnow','Snow sublimation','kg/m^2/s', &
                & iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
-          CALL histdef(hist_id, 'ACond', 'Aerodynamic conductance', 'm/s',  &
-               & iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
           IF ( do_floodplains ) THEN
              CALL histdef(hist_id, 'Qflood', 'Floodplain Evaporation', 'kg/m^2/s', &
@@ -1821 +1819 @@
              CALL histdef(hist2_id, 'SubSnow','Snow sublimation','kg/m^2/s', &
                   & iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(1), dt, dw2)
-             CALL histdef(hist2_id, 'ACond', 'Aerodynamic conductance', 'm/s',  &
-                  & iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(5), dt, dw2)
              !-
              !-