programmer's documentation
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)