clc_core_cp Subroutine

subroutine clc_core_cp(du, dt, dq, t1, q1, zu, zt, zq, P, n_it, mixte, coeffs, rugosm, rugosh)

! pas reutilise ds nvelle formulation...

!!! tv pas reutiliser ds nvelle formulation... !! rho pas reutiliser ds nvelle formulation....

!!!! le pas reutiliser ds nvelle formulation....

!! u = vitesse du vent 1 er niveau !!!!! u_N utilisée pour le calcul des premier calcul...

!!! initialisation des parametres et premier calcul de z_0 cd et ch

!!! pour l'initialisation on fixe z_0 a 10-4 !!! on calcul ensuite cd a 10 m d'après smith !!! calcul de cd pour core pur

!!!! !!!!! on calcul le premier z_0 !!!!! si regime stable calcul du ch

!!!!! si regime instable calcul du ch

!!!! calcul ensuite de ce

! def ! def

! def ! def ! def

! def

!!!!!!! début des itérations....

!! calcul du zeta pour connaitre le signe et donc en deduire le regime...

! si regime stable alors valeurs pr chi et psi

!!! si regime instable alors valeurs pr psi et chi !!!

!!! calcul de cd pour core pur

!!! c'est sur cette ligne la qu'il y a un bug... ou sur la ligne du u_N

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: du
real, intent(in) :: dt
real, intent(in) :: dq
real, intent(in) :: t1
real, intent(in) :: q1
real, intent(in) :: zu
real, intent(in) :: zt
real, intent(in) :: zq
real, intent(in) :: P
integer, intent(in) :: n_it
logical, intent(in) :: mixte
real, intent(out), DIMENSION(3) :: coeffs
real, intent(out) :: rugosm
real, intent(out) :: rugosh

Called by

proc~~clc_core_cp~~CalledByGraph proc~clc_core_cp clc_core_cp proc~cdrag cdrag proc~cdrag->proc~clc_core_cp proc~cdrag~2 cdrag proc~cdrag~2->proc~clc_core_cp proc~screenc screenc proc~screenc->proc~cdrag proc~surf_land_bucket_hetero~2 surf_land_bucket_hetero proc~surf_land_bucket_hetero~2->proc~cdrag proc~stdlevvarn~2 stdlevvarn proc~stdlevvarn~2->proc~cdrag proc~screencn screencn proc~stdlevvarn~2->proc~screencn proc~screencn->proc~cdrag proc~pbl_surface pbl_surface proc~pbl_surface->proc~cdrag proc~stdlevvarn stdlevvarn proc~pbl_surface->proc~stdlevvarn proc~stdlevvar stdlevvar proc~pbl_surface->proc~stdlevvar proc~surf_land surf_land proc~pbl_surface->proc~surf_land proc~surf_land_bucket_hetero surf_land_bucket_hetero proc~surf_land_bucket_hetero->proc~cdrag proc~stdlevvar~2 stdlevvar proc~stdlevvar~2->proc~cdrag proc~stdlevvar~2->proc~screenc proc~screencn~2 screencn proc~screencn~2->proc~cdrag proc~stdlevvarn->proc~cdrag proc~stdlevvarn->proc~screencn proc~pbl_surface~2 pbl_surface proc~pbl_surface~2->proc~cdrag proc~pbl_surface~2->proc~stdlevvarn proc~pbl_surface~2->proc~stdlevvar proc~pbl_surface~2->proc~surf_land proc~stdlevvar->proc~cdrag proc~stdlevvar->proc~screenc proc~screenc~2 screenc proc~screenc~2->proc~cdrag proc~physiq physiq proc~physiq->proc~pbl_surface proc~surf_land~2 surf_land proc~surf_land~2->proc~surf_land_bucket_hetero proc~surf_land->proc~surf_land_bucket_hetero proc~physiq~2 physiq proc~physiq~2->proc~pbl_surface proc~old_lmdz1d old_lmdz1d proc~old_lmdz1d->proc~physiq proc~call_physiq call_physiq proc~call_physiq->proc~physiq proc~call_physiq~2 call_physiq proc~call_physiq~2->proc~physiq proc~scm scm proc~scm->proc~physiq program~lmdz1d lmdz1d program~lmdz1d->proc~old_lmdz1d program~lmdz1d->proc~scm proc~calfis calfis proc~calfis->proc~call_physiq proc~leapfrog leapfrog proc~leapfrog->proc~calfis program~gcm~2 gcm program~gcm~2->proc~leapfrog

Contents