clcdrag Subroutine

subroutine clcdrag(knon, nsrf, paprs, pplay, u1, v1, t1, q1, tsurf, qsurf, rugos, pcfm, pcfh)

Uses

  • proc~~clcdrag~2~~UsesGraph proc~clcdrag~2 clcdrag module~yomcst_mod_h yomcst_mod_h proc~clcdrag~2->module~yomcst_mod_h module~yoethf_mod_h yoethf_mod_h proc~clcdrag~2->module~yoethf_mod_h module~dimphy~3 dimphy proc~clcdrag~2->module~dimphy~3 module~indice_sol_mod indice_sol_mod proc~clcdrag~2->module~indice_sol_mod module~clesphys_mod_h~2 clesphys_mod_h proc~clcdrag~2->module~clesphys_mod_h~2

$ IF (zri(i) .ge. 0.) THEN ! situation stable $ PB zcfh1(i) = zcdn(i) * FRIH $ PB zcfh1(i) = f_cdrag_stable * zcdn(i) * FRIH $ PB $PB zcfh2(i) = zcdn(i)amax1((1.-3.0cbzri(i)zucf),f_ri_cd_min)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: knon
integer, intent(in) :: nsrf
real, intent(in), DIMENSION(klon,klev+1) :: paprs
real, intent(in), DIMENSION(klon,klev) :: pplay
real, intent(in), DIMENSION(klon) :: u1
real, intent(in), DIMENSION(klon) :: v1
real, intent(in), DIMENSION(klon) :: t1
real, intent(in), DIMENSION(klon) :: q1
real, intent(in), DIMENSION(klon) :: tsurf
real, intent(in), DIMENSION(klon) :: qsurf
real, intent(in), DIMENSION(klon) :: rugos
real, intent(out), DIMENSION(klon) :: pcfm

$PB REAL, PARAMETER :: ckap=0.35, cb=5.0, cc=5.0, cd=5.0, cepdu2=(0.1)**2
real, intent(out), DIMENSION(klon) :: pcfh

$PB REAL, PARAMETER :: ckap=0.35, cb=5.0, cc=5.0, cd=5.0, cepdu2=(0.1)**2

Calls

proc~~clcdrag~2~~CallsGraph proc~clcdrag~2 clcdrag proc~abort_physic abort_physic proc~clcdrag~2->proc~abort_physic amax1 amax1 proc~clcdrag~2->amax1 histclo histclo proc~abort_physic->histclo proc~mpi_abort MPI_ABORT proc~abort_physic->proc~mpi_abort restclo restclo proc~abort_physic->restclo getin_dump getin_dump proc~abort_physic->getin_dump proc~lmdz_mpi_wrapper_abort lmdz_mpi_wrapper_abort proc~mpi_abort->proc~lmdz_mpi_wrapper_abort

Contents