| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
54 |
CTRL_MAP_INI_GENARR |
integer igen_etan,igen_bdrag,igen_geoth |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
71 |
CTRL_MAP_INI_GENARR |
igen_geoth=0 |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
79 |
CTRL_MAP_INI_GENARR |
& igen_geoth=iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
91 |
CTRL_MAP_INI_GENARR |
if (igen_geoth.GT.0) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
92 |
CTRL_MAP_INI_GENARR |
& call CTRL_MAP_GENARR2D(geothermalFlux,igen_geoth,myThid) |