| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_getrec.F |
103 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_atemp' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
111 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_sflux' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
119 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_aqh' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
127 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_tauu' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
135 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_uwind' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
143 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_tauv' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
151 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_vwind' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
159 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_obcsn' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
167 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_obcss' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
175 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_obcsw' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
183 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_obcse' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
255 |
CTRL_GETREC |
& thefield |
|
./pkg/ctrl/ctrl_getrec.F |
55 |
CTRL_GETREC |
character*(*) thefield |
|
./pkg/ctrl/ctrl_getrec.F |
8 |
CTRL_GETREC |
I thefield, |
|
./pkg/ctrl/ctrl_getrec.F |
95 |
CTRL_GETREC |
if ( thefield .eq. 'xx_hflux' ) then |