Changeset 5627 for LMDZ6/trunk/libf/phylmd/phyredem.f90
- Timestamp:
- Apr 25, 2025, 2:21:02 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified LMDZ6/trunk/libf/phylmd/phyredem.f90 ¶
r5481 r5627 34 34 du_gwd_rando, du_gwd_front, u10m, v10m, & 35 35 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 37 43 38 44 USE geometry_mod, ONLY : longitude_deg, latitude_deg … … 189 195 ! CALL put_field_srf2("treedrg","freinage arbres",treedrg(:,:,:)) 190 196 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(:,:,:)) 192 218 193 219 CALL put_field_srf1(pass,"QS" , "Humidite",qsurf(:,:))
Note: See TracChangeset
for help on using the changeset viewer.