| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_getrec.F |
105 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_atemp' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
114 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_sflux' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
123 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_aqh' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
132 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_precip' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
141 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_swflux' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
150 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_swdown' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
159 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_lwflux' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
168 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_lwdown' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
177 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_evap' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
186 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_snowprecip' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
195 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_apressure' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
204 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_runoff' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
213 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_tauu' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
222 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_uwind' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
231 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_tauv' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
240 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_vwind' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
249 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_obcsn' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
258 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_obcss' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
267 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_obcsw' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
276 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_obcse' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
285 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_sst' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
294 |
CTRL_GETREC |
else if ( thefield .eq. 'xx_sss' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
366 |
CTRL_GETREC |
& thefield |
|
./pkg/ctrl/ctrl_getrec.F |
56 |
CTRL_GETREC |
character*(*) thefield |
|
./pkg/ctrl/ctrl_getrec.F |
96 |
CTRL_GETREC |
if ( thefield .eq. 'xx_hflux' ) then |
|
./pkg/ctrl/ctrl_getrec.F |
9 |
CTRL_GETREC |
I thefield, |