| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_getrec.F |
106 |
CTRL_GETREC |
if ( thefield .eq. 'xx_obcsn' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
115 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_obcss' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
124 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_obcsw' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
133 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_obcse' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
143 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_hflux' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
152 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_atemp' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
161 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_sflux' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
170 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_aqh' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
179 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_precip' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
188 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_swflux' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
197 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_swdown' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
206 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_lwflux' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
215 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_lwdown' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
224 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_evap' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
233 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_snowprecip' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
242 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_apressure' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
251 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_runoff' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
260 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_tauu' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
269 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_uwind' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
278 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_tauv' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
287 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_vwind' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
296 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_sst' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
305 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_sss' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
378 |
CTRL_GETREC |
& thefield |
|
./pkg/ctrl/ctrl_getrec.F |
54 |
CTRL_GETREC |
character*(*) thefield |
|
./pkg/ctrl/ctrl_getrec.F |
7 |
CTRL_GETREC |
I thefield, |