| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_get_gen.F |
102 |
CTRL_GET_GEN |
ilgen=ilnblnk( xx_gen_file ) |
|
./pkg/ctrl/ctrl_get_gen.F |
104 |
CTRL_GET_GEN |
& xx_gen_file(1:ilgen), '.', optimcycle |
|
./pkg/ctrl/ctrl_get_gen.F |
119 |
CTRL_GET_GEN |
if ( xx_gen_file .EQ. xx_tauu_file .OR. |
|
./pkg/ctrl/ctrl_get_gen.F |
120 |
CTRL_GET_GEN |
& xx_gen_file .EQ. xx_tauv_file ) |
|
./pkg/ctrl/ctrl_get_gen.F |
132 |
CTRL_GET_GEN |
if ( xx_gen_file .EQ. xx_tauu_file .OR. |
|
./pkg/ctrl/ctrl_get_gen.F |
133 |
CTRL_GET_GEN |
& xx_gen_file .EQ. xx_tauv_file ) |
|
./pkg/ctrl/ctrl_get_gen.F |
143 |
CTRL_GET_GEN |
& ( xx_gen_file .EQ. xx_tauu_file .OR. |
|
./pkg/ctrl/ctrl_get_gen.F |
144 |
CTRL_GET_GEN |
& xx_gen_file .EQ. xx_tauv_file ) ) then |
|
./pkg/ctrl/ctrl_get_gen.F |
149 |
CTRL_GET_GEN |
if ( xx_gen_file .EQ. xx_tauu_file .OR. |
|
./pkg/ctrl/ctrl_get_gen.F |
150 |
CTRL_GET_GEN |
& xx_gen_file .EQ. xx_tauv_file ) then |
|
./pkg/ctrl/ctrl_get_gen.F |
42 |
CTRL_GET_GEN |
character*(MAX_LEN_FNAM) xx_gen_file |
|
./pkg/ctrl/ctrl_get_gen.F |
8 |
CTRL_GET_GEN |
I xx_gen_file, xx_genstartdate, xx_genperiod, |