Таблица 2

Номер зоны

Год краевых условий в зоне

Характеристики

Месяц (или декада)

I

II

??

XII

1

III

Температура окружающей среды t?? °С

 

 

 

 

Термическое сопротивление R?? м2·°С/Вт (м2·ч·°С/ /ккал)

 

 

 

 

Коэффициент теплообмена ?? Вт/(м2·°С)?? ккал/(м2?? ??ч·°С)

 

 

 

 

2

I

Температура на поверхности грунта t?? °С

 

 

 

 

3

II

Теплопоток ?? кДж (ккал)

 

 

 

 

4

III

Температура окружающей среды t?? °С

 

 

 

 

Термическое сопротивление R?? м2·°С/Вт (м2·ч·°С/ /ккал)

 

 

 

 

Коэффициент теплообмена ?? Вт/(м2·°С)?? ккал/(м2?? ??ч·°С)

 

 

 

 

 

 

 

 

 

 

 

 

 

и т.д. для каждой выделенной зоны

После закрепления номеров за каждой зоной краевых условий верхней границы заполняется табл. 3. Каждое значениеэтой таблицы имеет вид

где KOL=0 если во всех элементах (i, j, K)?? где 1£iNI, а j, K фиксированы внутренние источники отсутствуют

KOL=1?? если внутренние источники присутствуют хотя бы в одном из элементов (i, j, K) где 1??i??NI?? а j, K фиксированы

NP - номер типа источника?? NP=1,2,...,9. Если источник отсутствует NP=1

MD - номер зоны краевых условий верхней границы в которой находится элементобласти исследования

MDK - номер зоны краевых условий нижней границы для соответствующего элементаобласти исследования.

Таблица 3

j

K

K=1

K=2

· · ·

K =NK

j=1

KL (1, 1)

KL (1, 2)

· · ·

KL (1, NK)

j=2

KL (2, 1)

KL (2, 2)

· · ·

KL (2, NK)

·

·

·

·

·

·

·

·

·

 

·

·

·

j=NJ

KL (NJ, 1)

KL (NJ, 2)

· · ·

KL (NJ, NK )

Для двухмерной задачи табл. 3 состоит из одного столбца для K=1 для одномерной из одного числа KL(1,1).

3.5. Физические и теплофизические свойства

Расчетная область может содержать до 10 литологических разностей?? характеризующихся следующими свойствами?? учитывающимися алгоритмом??

- плотность сухого грунта кг/м3??

- весовая влажность грунта доли единицы??

- удельная теплоемкость скелета кДж/(кг·°С)?? ккал/(кг·°С)??

- коэффициент теплопроводности грунта в талом состоянии Вт/(м?? ??°С)?? ккал/(м·ч·°С)??

U0 - температура начала фазовых переходов?? °С??

WW - количество незамерзшей воды в диапазоне отрицательных температур доли?? задаваемой кривой

где A, B, C - коэффициенты определяющие количество незамерзшей воды в данной литологической разности.

Все вышеуказанные свойства должны быть определены для каждой литологической разности по лабораторным данным справочным или нормативным документам. Они остаются неизменными для всего времени счета.

Составляется табл. 4. При этом каждой литологической разности присваивается постоянный номер от 1 до NSL где NSL  10.

Таблица 4

Номер литологической разности

кг/м3

ккал/(кг·°С)

доли

 Вт/(м·°С)??

ккал/(м·ч·°С)

 Вт/(м·°С)??

ккал/(м·ч·°С)

 °С

WW

доли

1

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

·

·

·

 

 

 

 

 

 

 

 

 

 

 

 

 

 

В графе WW помещается информация о незамерзшей воде в данном слое. Если известна кривая то есть уже известны коэффициенты A, B, C ее задающие то записываются значения коэффициентов. Если известны лабораторные данные то приводятся они. Например?? и так далее не менее трех значений. Если в расчете WW=0 то коэффициенты?? задающие кривую незамерзшей воды в данном слое будут равны.

После закрепления номеров за каждой литологической разностью заполняется табл. 5 структура которой повторяет табл. 1. Таблицей 5 за каждым элементом (i, j, K) ?? полученным при разбивке области исследования?? закрепляется номер той литологической разности которой он принадлежит.

Таблица 5

K=1

i

j

j =1

j =2

 

j =NJ

i=1

N (1, 1, 1)

N (1, 2, 1)

· · ·

N (1, NJ, 1)

i=2

N (2, 1, 1)

N (2, 2, 1)

· · ·

N (2, NJ, 1)

·

·

·

·

·

·

·

·

·

 

·

·

·

i =Ni

N (Ni, 1, 1)

N (1, 2, 1)

· · ·

N (Ni, NJ, 1)

K=2

i

j

j =1

j =2

 

j =NJ

i=1

N (1, 1, 2)

N (1, 2, 2)

· · ·

N (1, NJ, 2)

i=2

N (2, 1, 2)

N (2, 2, 2)

· · ·

N (2, NJ, 2)

·

·

·

·

·

·

·

·

·

 

·

·

·

i =Ni

N (Ni, 1, 2)

N (Ni, 2, 2)

· · ·

N (Ni, NJ, 2)

и т.д.

K=NK

i

j

j =1

j =2

 

j =NJ

i=1

N (1, 1, K)

N (1, 2, K)

· · ·

N (1, NJ, NK)

i=2

N (2, 1, K)

N (2, 2, K)

· · ·

N (2, NJ, NK)

·

·

·

·

·

·

·

·

·

 

·

·

·

i =Ni

N (Ni, 1, K)

N (Ni, 2, K)

· · ·

N (Ni, NJ, NK)

Каждое значение N(i, j, K) в табл. 5 может быть только целым числом от 1 до NSL?? где NSL10 - число выделенных литологических разностей.

3.6. Дополнительные данные, необходимые для проведения расчета

Для проведения расчета необходимо также определить значение следующих величин?? задействованных алгоритмом.

Шаг по времени. Размеры элементов и шаг по времени связаны между собой следующим соотношением??

где ??t - шаг по времени?? ч

i - номер грунтовой разности??

NSL - число выделенных грунтовых разностей

- теплоемкость мерзлого грунта i-го слоя при  кДж/(м3·°С)?? ккал/(м3·°С)??

- количество незамерзшей воды доли??

- удельная теплоемкость сухого грунта кДж/(кг·°С)?? ккал/(кг·°С)??

- удельная теплоемкость льда кДж/(кг·°С)?? ккал/(кг·°С)??

- коэффициент объемного расширения ??=1,1;

- весовая влажность грунта доли??

- коэффициент теплопроводности мерзлого грунта?? Вт/(м·°С)?? ккал/ /(м·ч·°С)??

n - мерность области исследования?? 1£n3??

h - размер ребра элемента.

Шаг по времени может быть изменен в процессе счета NT раз?? где NT1.

Время измерения расчетного шага от начала расчета задается одномерным массивомразмерностью.

где- время измерения шага от начала счета в часах.

Отсчет происходит от моментов начала счета?? т.е. от 0.

Определяется Ткон (час) - время окончания решения задачи. Задаются Т1, Т2, Т3, ..., ТР - время выдачи результатов расчета на печать (в часах). Время последней выдачи результата TP обязательно меньше TКОН на один шаг по времени. В противном случае счет может прекратиться раньше чем будет получен последний результат.

Определяются интервалы через которые происходит очередная выдача результатов на печать.

и т.д.

Для последующего ввода в ЭВМ формируется одновременный массив HPRI размерностью INT. Размерность INT массива зависит от того с постоянным шагом выдаются результаты расчета или нет.

INT=2 - выдача производится с постоянным шагом

INT=P+1 - выдача производится с переменным шагом.

Если INT=2, то

Если INT=P+1, то

и т.д.

Задание печати распределения температур

Для удобства обработки информации получаемой в результате расчета фиксируются необходимые для анализа температурного режима «линии резервов» по которым выдается на печать распределение температур.

Положение «разрезов» параллельных плоскости ZOX задается координатойэлементов составляющих этот разрез.

Формируется массив целых чисел KP размерностью KW?? где KW - число выдаваемых на печать «разрезов» по направлению. Если по этому направлению ни одного разреза выдавать на печать не надо то KW=1 и KP(1)=0. В противном случаеи т.д.  где

Положение «разрезов» параллельных плоскости ZOY задается координатой j элементов?? составляющих этот разрез.

Формируется массив целых чисел jP размерностью jW где jW - число выдаваемых на печать «разрезов» по направлению. Если по этому направлению ни одного разреза выдавать на печать не надо то jW=1 и jP(1)=0. В противном случаеи т.д. где

Положение «разрезов» параллельных плоскости XOY задается координатой i элементов?? составляющих этот разрез.

Формируется массив целых чисел iP размерностью iW где iW - число выдаваемых на печать «разрезов» по направлению.

Если по этому направлению ни одного разреза выдавать на печать не надо?? тои. В противном случаеи т.д.  где.

4. ПРОВЕДЕНИЕ РАСЧЕТА

4.1. Вызов и загрузка программы в ЭВМ

Каждая из модификаций программы PROGNOZ состоит из нескольких модулей объединенных главной программой MAIN. Подпрограммы-модули GRUND, WNS, HF, FIND содержатся в личной библиотеке исходных модулей (или библиотеке загрузочных модулей).

Ниже приводится пример пакета вызова программы PROGNOZ-3S из библиотеки исходных модулей. Задание требует не менее 300 килобайт памяти и использует оптимизирующий транслятор (ФОРТРАН-ОП) системы ОС ЕС.

Здесь??

имя - биб - имя личной библиотеки исходных модулей

имя - тома - имя тома на которой размещена библиотека.

// JOB

// EXEC FORTHCLG

// FORT. SYSIN DD DDNAME=PKAR

//                DD DSN=<ИМЯ - БИБ>(GRUND),DISP=SHR,

//                          VOL=SER=<ИМЯ-ТОМА>,UNIT=SYSDA

//                DD DSN=<ИМЯ - БИБ>(WNS),DISP=SHR,

//                          VOL=SER=<ИМЯ-ТОМА>,UNIT=SYSDA

////              DD DSN=<ИМЯ - БИБ>(HF),DISP=SHR,

//                          VOL=SER=<ИМЯ-ТОМА>,UNIT=SYSDA

//                DD DSN=<ИМЯ - БИБ>(FIND),DISP=SHR,

//                          VOL=SER=<ИМЯ-ТОМА>,UNIT=SYSDA

// PKAP DD*

<текст программы MAIN на перфокартах>

<текст подпрограммы BLOCK DATA на перфокартах>

// GO. SYSIN DD*

<исходные данные>

/*

//

Текст подпрограммы для модификации PROGNOZ-3S приведен в обязательном приложении 3.

4.2. Составление программы MAIN и подпрограммы BLOCK DATA

Программа MAIN в модификациях PROGNOZ-3S и PROGNOZ-2S составляется для каждого варианта расчета. Пример программы MAIN для расчета контрольного примера (приложение 1) приведен в обязательном приложении 3.

Программа MAIN содержит обращение к основной подпрограмме GRUND алгоритма. Перед обращением к подпрограмме GRUND в MAIN должны быть определены все формальные аргументы подпрограммы?? приведенные в табл. 6.

Таблица 6

Идентификатор

Фактическое значение

NSL

Число выделенных литологических разностей (NSL10)

NI

Число элементов по направлению i, (NI100)

NJ

Число элементов по направлению j, (Nj100)

NK

Число элементов по направлению K, (NK100)

NT

Число изменений шага по времени (NT10)

LI

Число интервалов времени в периоде во время которых задаются средние значения характеристик внешней среды на верхней границе (Li36)

M

Число зон с различными краевыми условиями на верхней границе (M9)

M1

Число зон с различными краевыми условиями на нижней границе (M19)

TKON

Время окончания счета (в часах)

A1(NSL), B1(NSL)

Одномерные массивы размерностью NSL

C1(NSL)

Коэффициенты?? задающие кривую незамерзшей воды по слоям

N(NI,NJ,NK)

Трехмерный массив размерностью NINJ´NK

Номера слоев грунта в соответствующих элементах (см. табл. 5)

KL(NJ,NK)

Двухмерный массив размерностью NJNK

Массив номеров зон краевых условий по элементам верхней и нижней границ (см. табл. 3)

U(NI,NJ,NK)

Трехмерный массив размерностью NINJ´NK

Начальная температура грунта по элементам (см. табл. 1)

IW

Число выдаваемых на печать «разрезов» по направлению i (см. п.3.6)

JW

Число выдаваемых на печать «разрезов» по направлению j (см. п.3.6)

KW

Число выдаваемых на печать «разрезов» по направлению K (см. п.3.6)

INT

Размер массива HPRI (см. п.3.6.)

HPRI(INT)

Одномерный массив размерности INT

Задает интервалы выдачи на печать температуры грунта (час) (см. п.3.6.)

H(NI,NG,NK)

Трехмерный массив размерностью NINJ´NK

Значение энтальпии по элементам на текущем временном слое

UN(NI,NG,NK)

Трехмерный массив размерностью NINJ´NK

Температура грунта по элементам на следующем временном слое

HNDV(NI,NG,NK)

Трехмерный массив размерностью NINJ´NK

Значение энтальпии по элементам на следующем временном слое

Nsi

Nsi =1 если единица измерения количества теплоты - кДж

 

Nsi ¹1?? если единица измерения количества теплоты - ккал