Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=r64), | intent(in), | dimension(maxlay2) | :: | theta | ||
real(kind=r64), | intent(in), | dimension(MaxGap) | :: | gap | ||
real(kind=r64), | intent(inout), | dimension(maxlay1) | :: | hgas | ||
real(kind=r64), | intent(inout), | dimension(maxlay1) | :: | hcgas | ||
real(kind=r64), | intent(inout), | dimension(maxlay1) | :: | hrgas | ||
real(kind=r64), | intent(in), | dimension(maxlay1, maxgas) | :: | frct | ||
integer, | intent(in), | dimension(maxlay1, maxgas) | :: | iprop | ||
real(kind=r64), | intent(in), | dimension(maxlay1) | :: | pressure | ||
integer, | intent(in), | dimension(maxlay1) | :: | nmix | ||
real(kind=r64), | intent(in), | dimension(maxgas) | :: | xwght | ||
real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgcon | ||
real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgvis | ||
real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgcp | ||
integer, | intent(in) | :: | nlayer | |||
real(kind=r64), | intent(in) | :: | width | |||
real(kind=r64), | intent(in) | :: | height | |||
real(kind=r64), | intent(in) | :: | angle | |||
real(kind=r64), | intent(in) | :: | Tout | |||
real(kind=r64), | intent(in) | :: | Tin | |||
real(kind=r64), | intent(in), | dimension(maxlay) | :: | Atop | ||
real(kind=r64), | intent(in), | dimension(maxlay) | :: | Abot | ||
real(kind=r64), | intent(in), | dimension(maxlay) | :: | Al | ||
real(kind=r64), | intent(in), | dimension(maxlay) | :: | Ar | ||
real(kind=r64), | intent(in), | dimension(maxlay) | :: | Ah | ||
real(kind=r64), | intent(in), | dimension(maxlay1) | :: | vvent | ||
real(kind=r64), | intent(in), | dimension(maxlay1) | :: | tvent | ||
integer, | intent(in), | dimension(maxlay) | :: | LayerType | ||
real(kind=r64), | intent(inout), | dimension(maxlay1) | :: | Tgaps | ||
real(kind=r64), | intent(out), | dimension(maxlay1) | :: | qv | ||
integer, | intent(inout) | :: | nperr | |||
character(len=*), | intent(inout) | :: | ErrorMessage | |||
real(kind=r64), | intent(out), | dimension(maxlay1) | :: | vfreevent |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in), | dimension(maxgas) | :: | iprop | ||
real(kind=r64), | intent(in), | dimension(maxgas) | :: | frct | ||
real(kind=r64), | intent(in) | :: | press | |||
integer, | intent(in) | :: | nmix | |||
real(kind=r64), | intent(in), | dimension(maxgas) | :: | xwght | ||
real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgcon | ||
real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgvis | ||
real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgcp | ||
real(kind=r64), | intent(in) | :: | s | |||
real(kind=r64), | intent(in) | :: | H | |||
real(kind=r64), | intent(in) | :: | hc | |||
real(kind=r64), | intent(in) | :: | forcedspeed | |||
real(kind=r64), | intent(in) | :: | Tinlet | |||
real(kind=r64), | intent(out) | :: | Toutlet | |||
real(kind=r64), | intent(in) | :: | Tav | |||
real(kind=r64), | intent(out) | :: | hcv | |||
real(kind=r64), | intent(out) | :: | qv | |||
integer, | intent(inout) | :: | nperr | |||
character(len=*), | intent(inout) | :: | ErrorMessage |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in), | dimension(maxgas) | :: | iprop1 | ||
real(kind=r64), | intent(in), | dimension(maxgas) | :: | frct1 | ||
real(kind=r64), | intent(in) | :: | press1 | |||
integer, | intent(in) | :: | nmix1 | |||
integer, | intent(in), | dimension(maxgas) | :: | iprop2 | ||
real(kind=r64), | intent(in), | dimension(maxgas) | :: | frct2 | ||
real(kind=r64), | intent(in) | :: | press2 | |||
integer, | intent(in) | :: | nmix2 | |||
real(kind=r64), | intent(in), | dimension(maxgas) | :: | xwght | ||
real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgcon | ||
real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgvis | ||
real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgcp | ||
real(kind=r64), | intent(inout) | :: | Atop | |||
real(kind=r64), | intent(inout) | :: | Abot | |||
real(kind=r64), | intent(in) | :: | Al | |||
real(kind=r64), | intent(in) | :: | Ar | |||
real(kind=r64), | intent(in) | :: | Ah | |||
real(kind=r64), | intent(in) | :: | s1 | |||
real(kind=r64), | intent(in) | :: | s2 | |||
real(kind=r64), | intent(in) | :: | H | |||
real(kind=r64), | intent(in) | :: | L | |||
real(kind=r64), | intent(in) | :: | angle | |||
real(kind=r64), | intent(in) | :: | hc1 | |||
real(kind=r64), | intent(in) | :: | hc2 | |||
real(kind=r64), | intent(out) | :: | speed1 | |||
real(kind=r64), | intent(out) | :: | speed2 | |||
real(kind=r64), | intent(inout) | :: | Tgap1 | |||
real(kind=r64), | intent(inout) | :: | Tgap2 | |||
real(kind=r64), | intent(in) | :: | Tav1 | |||
real(kind=r64), | intent(in) | :: | Tav2 | |||
real(kind=r64), | intent(out) | :: | hcv1 | |||
real(kind=r64), | intent(out) | :: | hcv2 | |||
real(kind=r64), | intent(out) | :: | qv1 | |||
real(kind=r64), | intent(out) | :: | qv2 | |||
integer, | intent(inout) | :: | nperr | |||
character(len=*), | intent(inout) | :: | ErrorMessage |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in), | dimension(maxgas) | :: | iprop1 | ||
real(kind=r64), | intent(in), | dimension(maxgas) | :: | frct1 | ||
real(kind=r64), | intent(in) | :: | press1 | |||
integer, | intent(in) | :: | nmix1 | |||
integer, | intent(in), | dimension(maxgas) | :: | iprop2 | ||
real(kind=r64), | intent(in), | dimension(maxgas) | :: | frct2 | ||
real(kind=r64), | intent(in) | :: | press2 | |||
integer, | intent(in) | :: | nmix2 | |||
real(kind=r64), | intent(in), | dimension(maxgas) | :: | xwght | ||
real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgcon | ||
real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgvis | ||
real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgcp | ||
real(kind=r64), | intent(inout) | :: | Atop | |||
real(kind=r64), | intent(inout) | :: | Abot | |||
real(kind=r64), | intent(in) | :: | Al | |||
real(kind=r64), | intent(in) | :: | Ar | |||
real(kind=r64), | intent(inout) | :: | Ah | |||
real(kind=r64), | intent(in) | :: | s | |||
real(kind=r64), | intent(in) | :: | H | |||
real(kind=r64), | intent(in) | :: | L | |||
real(kind=r64), | intent(in) | :: | angle | |||
real(kind=r64) | :: | forcedspeed | ||||
real(kind=r64), | intent(in) | :: | hc | |||
real(kind=r64), | intent(in) | :: | Tenv | |||
real(kind=r64), | intent(in) | :: | Tav | |||
real(kind=r64), | intent(inout) | :: | Tgap | |||
real(kind=r64), | intent(out) | :: | hcv | |||
real(kind=r64), | intent(out) | :: | qv | |||
integer, | intent(inout) | :: | nperr | |||
character(len=*), | intent(inout) | :: | ErrorMessage | |||
real(kind=r64), | intent(out) | :: | speed |