Ignore:
Timestamp:
Apr 25, 2025, 2:21:02 PM (2 months ago)
Author:
amaison
Message:

Representation of heterogeneous continental subsurfaces with parameter or flux aggregation in the simplified surface model (bucket) for 1D case studies.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • TabularUnified LMDZ6/trunk/libf/phylmd/phyredem.f90

    r5481 r5627  
    3434                                du_gwd_rando, du_gwd_front, u10m, v10m, &
    3535                                treedrg, solswfdiff, delta_sal, ds_ns, dt_ns, &
    36                                 delta_sst, ratqs_inter_, dter, dser, dt_ds
     36                                delta_sst, ratqs_inter_, dter, dser, dt_ds,  &
     37                                frac_tersrf, z0m_tersrf, ratio_z0m_z0h_tersrf, &
     38                                albedo_tersrf, beta_tersrf, inertie_tersrf,  &
     39                                hcond_tersrf, tsurfi_tersrf, tsoili_tersrf, tsoil_depth, &
     40                                qsurf_tersrf, tsurf_tersrf, tsoil_tersrf, tsurf_new_tersrf, &
     41                                cdragm_tersrf, cdragh_tersrf, &
     42                                swnet_tersrf, lwnet_tersrf, fluxsens_tersrf, fluxlat_tersrf
    3743
    3844  USE geometry_mod, ONLY : longitude_deg, latitude_deg
     
    189195!  CALL put_field_srf2("treedrg","freinage arbres",treedrg(:,:,:))
    190196    CALL put_field(pass,"treedrg_ter","freinage arbres",treedrg(:,:,is_ter))
    191 
     197!AM
     198    CALL put_field_srf1(pass,"frac_tersrf","fraction sous surface", frac_tersrf(:,:))
     199    CALL put_field_srf1(pass,"z0m_tersrf","rugosite sous surface", z0m_tersrf(:,:))
     200    CALL put_field_srf1(pass,"ratio_z0m_z0h_tersrf","ratio rugosites sous surface", ratio_z0m_z0h_tersrf(:,:))
     201    CALL put_field_srf1(pass,"albedo_tersrf","albedo sous surface", albedo_tersrf(:,:))
     202    CALL put_field_srf1(pass,"beta_tersrf","beta sous surface", beta_tersrf(:,:))
     203    CALL put_field_srf1(pass,"inertie_tersrf","inertie sous surface", inertie_tersrf(:,:))
     204    CALL put_field_srf1(pass,"hcond_tersrf","conductivité thermique sous surface", hcond_tersrf(:,:))
     205    CALL put_field_srf1(pass,"tsurfi_tersrf","temperature surface sous surface initiale", tsurfi_tersrf(:,:))
     206    CALL put_field_srf2(pass,"Tsoili","temperature sol sous surface initiale", tsoili_tersrf(:,:,:))
     207    CALL put_field_srf2(pass,"tsoil_depth","profondeur temperature sol sous surface", tsoil_depth(:,:,:))
     208    CALL put_field_srf1(pass,"qsurf_tersrf","humidite surface sous surface", qsurf_tersrf(:,:))
     209    CALL put_field_srf1(pass,"tsurf_tersrf","temperature surface sous surface", tsurf_tersrf(:,:))
     210    CALL put_field_srf1(pass,"tsurf_new_tersrf","temperature surface sous surface", tsurf_new_tersrf(:,:))
     211    CALL put_field_srf1(pass,"cdragm_tersrf","coeff trainee quantite mouvement sous surface", cdragm_tersrf(:,:))
     212    CALL put_field_srf1(pass,"cdragh_tersrf","coeff trainee chaleur sous surface", cdragh_tersrf(:,:))
     213    CALL put_field_srf1(pass,"swnet_tersrf","shortwave net sous surface", swnet_tersrf(:,:))
     214    CALL put_field_srf1(pass,"lwnet_tersrf","longwave net sous surface", lwnet_tersrf(:,:))
     215    CALL put_field_srf1(pass,"fluxsens_tersrf","flux sensible sous surface", fluxsens_tersrf(:,:))
     216    CALL put_field_srf1(pass,"fluxlat_tersrf","flux latent sous surface", fluxlat_tersrf(:,:))
     217    CALL put_field_srf2(pass,"tsoil_tersrf","temperature sol sous surface", tsoil_tersrf(:,:,:))
    192218
    193219    CALL put_field_srf1(pass,"QS"  , "Humidite",qsurf(:,:))
Note: See TracChangeset for help on using the changeset viewer.