Changeset 7525 for branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba

Timestamp:

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

Author:

sebastiaan.luyssaert

Message:

Fix for ticket #816

Location:

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba

Files:

• ioipslctrl.f90 (modified) (2 diffs)
• sechiba.f90 (modified) (3 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)
              !-
              !-

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/sechiba.f90

@@ -1052 +1052 @@
     ENDDO
     CALL xios_orchidee_send_field("TVeg",histvar/dt_sechiba)
-    CALL xios_orchidee_send_field("ACond",tq_cdrag)
 
 
@@ -1193 +1192 @@
        ENDDO
        CALL histwrite_p(hist_id, 'ECanop', kjit, histvar, kjpindex, index)
-       CALL histwrite_p(hist_id, 'ACond', kjit, tq_cdrag, kjpindex, index)
        CALL histwrite_p(hist_id, 'SnowFrac', kjit, vbeta1, kjpindex, index)
        !
@@ -1281 +1279 @@
           ENDDO
           CALL histwrite_p(hist2_id, 'ECanop', kjit, histvar, kjpindex, index)
-          CALL histwrite_p(hist2_id, 'ACond', kjit, tq_cdrag, kjpindex, index)
           CALL histwrite_p(hist2_id, 'SnowFrac', kjit, vbeta1, kjpindex, index)
           CALL histwrite_p(hist2_id, 'GPP', kjit, gpp, kjpindex*nvm, indexveg)