change_srf_frac_mod Module


Uses

  • module~~change_srf_frac_mod~2~~UsesGraph module~change_srf_frac_mod~2 change_srf_frac_mod module~clesphys_mod_h~2 clesphys_mod_h module~change_srf_frac_mod~2->module~clesphys_mod_h~2

Used by

  • module~~change_srf_frac_mod~2~~UsedByGraph module~change_srf_frac_mod~2 change_srf_frac_mod proc~physiq physiq proc~physiq->module~change_srf_frac_mod~2 proc~physiq~2 physiq proc~physiq~2->module~change_srf_frac_mod~2

Contents


Subroutines

public subroutine change_srf_frac(itime, dtime, jour, pctsrf, evap, z0m, z0h, agesno, alb_dir, alb_dif, tsurf, ustar, u10m, v10m, pbl_tke)

1) For each type of ocean (force, slab, couple) receive new fractions only if it's time
to modify (is_modified=true). Otherwise nothing is done (is_modified=false).

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: itime
real, intent(in) :: dtime Read more…
integer, intent(in) :: jour
real, intent(inout), DIMENSION(klon,nbsrf) :: pctsrf
real, intent(inout), DIMENSION(klon,nbsrf) :: evap
real, intent(inout), DIMENSION(klon,nbsrf+1) :: z0m
real, intent(inout), DIMENSION(klon,nbsrf+1) :: z0h
real, intent(inout), DIMENSION(klon,nbsrf) :: agesno
real, intent(inout), DIMENSION(klon,nsw,nbsrf) :: alb_dir
real, intent(inout), DIMENSION(klon,nsw,nbsrf) :: alb_dif
real, intent(inout), DIMENSION(klon,nbsrf) :: tsurf
real, intent(inout), DIMENSION(klon,nbsrf) :: ustar
real, intent(inout), DIMENSION(klon,nbsrf) :: u10m
real, intent(inout), DIMENSION(klon,nbsrf) :: v10m

REAL, DIMENSION(klon,klev+1,nbsrf), INTENT(INOUT) :: pbl_tke

real, intent(inout), DIMENSION(klon,klev+1,nbsrf+1) :: pbl_tke

jyg

Read more…