1 |
jmc |
1.3 |
C $Header: $ |
2 |
|
|
C $Name: $ |
3 |
heimbach |
1.1 |
|
4 |
|
|
C---------------------------------------- |
5 |
jmc |
1.3 |
C subroutine thsice_read_pickup |
6 |
heimbach |
1.1 |
C---------------------------------------- |
7 |
|
|
CADJ SUBROUTINE thsice_read_pickup INPUT = 1,2,3 |
8 |
|
|
CADJ SUBROUTINE thsice_read_pickup OUTPUT = |
9 |
|
|
|
10 |
heimbach |
1.2 |
C---------------------------------------- |
11 |
jmc |
1.3 |
C subroutine THSICE_DIAG_SUFX |
12 |
heimbach |
1.2 |
C---------------------------------------- |
13 |
|
|
CADJ SUBROUTINE THSICE_DIAG_SUFX INPUT = 1,2 |
14 |
|
|
CADJ SUBROUTINE THSICE_DIAG_SUFX OUTPUT = 1 |
15 |
|
|
|