subroutine gfdl_sfc_layer::mflux2 |
( |
real(kind=kind_phys), dimension (ims :ime ), intent(out) | fxh, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(out) | fxe, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(out) | fxmx, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(out) | fxmy, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(inout) | cdm, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(out) | rib, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(out) | xxfh, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(inout) | zoc, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(inout) | mzoc, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(inout) | tstrc, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(in) | pspc, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(in) | pkmax, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(in) | wetc, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(in) | slwdc, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(in) | z1, |
|
|
integer, intent(in) | icoef_sf, |
|
|
integer, intent(in) | iwavecpl, |
|
|
logical, intent(in) | lcurr_sf, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(in) | alpha, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(in) | gamma, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(in) | xcur, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(in) | ycur, |
|
|
logical, intent(in) | pert_cd, |
|
|
integer, intent(in) | ens_random_seed, |
|
|
real(kind=kind_phys), intent(in) | ens_cdamp, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(in) | upc, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(in) | vpc, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(in) | tpc, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(in) | rpc, |
|
|
real(kind=kind_phys), intent(in) | dt, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(out) | wind10, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(out) | xxfh2, |
|
|
integer, intent(in) | ntsflg, |
|
|
real(kind=kind_phys), intent(in) | sfenth, |
|
|
real(kind=kind_phys), dimension (ims :ime ), intent(inout) | tzot, |
|
|
real(kind=kind_phys), intent(in) | ep2, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |
|
private |