programmer's documentation
 All Data Structures Files Functions Variables Typedefs Enumerations Enumerator Macros Modules Pages
Cooling tower parameters definition (usctdz.f90)

Introduction

The usctdz function allows one to define parameters for cooling towers.

Example

The following code block shows an example of definition of a cooling tower.

! The chosen model must be consistent with ippmod
! IMZECH = 0 - no model
! 1 - Merkels model
! 2 - Poppe's model
imzech = ippmod(iaeros)
! Define exchange zone
idimze = 2
ntypze = 2
neleze = 20
deltat = 10.0d0
teaueze = 36d0
qeaueze = 33737.d0
xap = 0.2d0
xnp = 0.5d0
surface = 5183.6d0
dgout = 0.005d0
call defct &
!=========
(idimze, '2 or 3', imzech, ntypze, neleze, &
deltat, teaueze, qeaueze, xap, xnp, surface, dgout)