Arguments
Type | Intent | Optional | Attributes | Name | |||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
real(kind=selected_real_kind), | intent(inout) | :: | dz | layer thickness [m] |
|||||||||||||||||||||||||||||||||||||
real(kind=selected_real_kind), | intent(inout) | :: | dt | time step [s] |
|||||||||||||||||||||||||||||||||||||
real(kind=selected_real_kind), | intent(inout) | :: | ustar | surface friction velocity [m/s] |
|||||||||||||||||||||||||||||||||||||
real(kind=selected_real_kind), | intent(inout) | :: | Tw | water temperature [C] |
|||||||||||||||||||||||||||||||||||||
real(kind=selected_real_kind), | intent(inout) | :: | S | salinity [g/kg] |
|||||||||||||||||||||||||||||||||||||
real(kind=selected_real_kind), | intent(inout) | :: | Ta | air temperature [C] |
|||||||||||||||||||||||||||||||||||||
real(kind=selected_real_kind), | intent(inout) | :: | precip | precipitation [mm?] |
|||||||||||||||||||||||||||||||||||||
real(kind=selected_real_kind), | intent(inout) | :: | Qsw | short wave radiation [W/m^2] |
|||||||||||||||||||||||||||||||||||||
private subroutine Qfluxes(T, qh, qe, qb)Arguments
|