surf_land_mod Module




Contents


Subroutines

public subroutine surf_land(itime, dtime, date0, jour, knon, knindex, rlon, rlat, yrmu0, debut, lafin, zlev, ccanopy, swnet, lwnet, albedo, tsurf, p1lay, cdragh, cdragm, precip_rain, precip_snow, precip_bs, temp_air, spechum, AcoefH, AcoefQ, BcoefH, BcoefQ, AcoefU, AcoefV, BcoefU, BcoefV, pref, u1, v1, gustiness, rugoro, pctsrf, lwdown_m, q2m, t2m, snow, qsol, agesno, tsoil, z0m, z0h, SFRWL, alb_dir_new, alb_dif_new, evap, fluxsens, fluxlat, fluxbs, qsurf, tsurf_new, dflux_s, dflux_l, flux_u1, flux_v1, veget, lai, height, tsurf_tersrf, tsoil_tersrf, qsurf_tersrf, tsurf_new_tersrf, cdragm_tersrf, cdragh_tersrf, swnet_tersrf, lwnet_tersrf, fluxsens_tersrf, fluxlat_tersrf)

Choice between call to vegetation model (ok_veget=true) or simple calculation below

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: itime
real, intent(in) :: dtime
real, intent(in) :: date0
integer, intent(in) :: jour
integer, intent(in) :: knon
integer, intent(in), DIMENSION(klon) :: knindex
real, intent(in), DIMENSION(klon) :: rlon
real, intent(in), DIMENSION(klon) :: rlat
real, intent(in), DIMENSION(klon) :: yrmu0
logical, intent(in) :: debut
logical, intent(in) :: lafin
real, intent(inout), DIMENSION(klon) :: zlev
real, intent(in), DIMENSION(klon) :: ccanopy
real, intent(in), DIMENSION(klon) :: swnet
real, intent(in), DIMENSION(klon) :: lwnet
real, intent(in), DIMENSION(klon) :: albedo
real, intent(in), DIMENSION(klon) :: tsurf
real, intent(in), DIMENSION(klon) :: p1lay
real, intent(in), DIMENSION(klon) :: cdragh
real, intent(in), DIMENSION(klon) :: cdragm
real, intent(in), DIMENSION(klon) :: precip_rain
real, intent(in), DIMENSION(klon) :: precip_snow
real, intent(in), DIMENSION(klon) :: precip_bs
real, intent(in), DIMENSION(klon) :: temp_air
real, intent(in), DIMENSION(klon) :: spechum
real, intent(in), DIMENSION(klon) :: AcoefH
real, intent(in), DIMENSION(klon) :: AcoefQ
real, intent(in), DIMENSION(klon) :: BcoefH
real, intent(in), DIMENSION(klon) :: BcoefQ
real, intent(in), DIMENSION(klon) :: AcoefU
real, intent(in), DIMENSION(klon) :: AcoefV
real, intent(in), DIMENSION(klon) :: BcoefU
real, intent(in), DIMENSION(klon) :: BcoefV
real, intent(in), DIMENSION(klon) :: pref
real, intent(in), DIMENSION(klon) :: u1
real, intent(in), DIMENSION(klon) :: v1
real, intent(in), DIMENSION(klon) :: gustiness
real, intent(in), DIMENSION(klon) :: rugoro
real, intent(in), DIMENSION(klon,nbsrf) :: pctsrf
real, intent(in), DIMENSION(klon) :: lwdown_m
real, intent(in), DIMENSION(klon) :: q2m
real, intent(in), DIMENSION(klon) :: t2m
real, intent(inout), DIMENSION(klon) :: snow
real, intent(inout), DIMENSION(klon) :: qsol
real, intent(inout), DIMENSION(klon) :: agesno
real, intent(inout), DIMENSION(klon, nsoilmx) :: tsoil
real, intent(out), DIMENSION(klon) :: z0m
real, intent(out), DIMENSION(klon) :: z0h
real, intent(in), DIMENSION(6) :: SFRWL
real, intent(out), DIMENSION(klon,nsw) :: alb_dir_new
real, intent(out), DIMENSION(klon,nsw) :: alb_dif_new
real, intent(out), DIMENSION(klon) :: evap
real, intent(out), DIMENSION(klon) :: fluxsens
real, intent(out), DIMENSION(klon) :: fluxlat
real, intent(out), DIMENSION(klon) :: fluxbs
real, intent(out), DIMENSION(klon) :: qsurf
real, intent(out), DIMENSION(klon) :: tsurf_new
real, intent(out), DIMENSION(klon) :: dflux_s
real, intent(out), DIMENSION(klon) :: dflux_l
real, intent(out), DIMENSION(klon) :: flux_u1
real, intent(out), DIMENSION(klon) :: flux_v1
real, intent(out), DIMENSION(klon,nvm_lmdz) :: veget
real, intent(out), DIMENSION(klon,nvm_lmdz) :: lai
real, intent(out), DIMENSION(klon,nvm_lmdz) :: height
real, intent(in), DIMENSION(klon, nbtersrf) :: tsurf_tersrf Read more…
real, intent(inout), DIMENSION(klon, nsoilmx, nbtersrf) :: tsoil_tersrf Read more…
real, intent(out), DIMENSION(klon, nbtersrf) :: qsurf_tersrf
real, intent(out), DIMENSION(klon, nbtersrf) :: tsurf_new_tersrf
real, intent(out), DIMENSION(klon, nbtersrf) :: cdragm_tersrf
real, intent(out), DIMENSION(klon, nbtersrf) :: cdragh_tersrf
real, intent(out), DIMENSION(klon, nbtersrf) :: swnet_tersrf
real, intent(out), DIMENSION(klon, nbtersrf) :: lwnet_tersrf
real, intent(out), DIMENSION(klon, nbtersrf) :: fluxsens_tersrf
real, intent(out), DIMENSION(klon, nbtersrf) :: fluxlat_tersrf Read more…