| File |
Line number |
Procedure |
Code |
|
./model/inc/FFIELDS.h |
130 |
NO PROCEDURE |
COMMON /FFIELDS_geothermal/ geothermalFlux |
|
./model/inc/FFIELDS.h |
131 |
NO PROCEDURE |
_RS geothermalFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/apply_forcing.F |
664 |
APPLY_FORCING_T |
& + geothermalFlux(i,j,bi,bj) |
|
./model/src/ini_ffields.F |
60 |
INI_FFIELDS |
geothermalFlux (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
144 |
INI_FORCING |
& geothermalFlux, 0, myThid ) |
|
./model/src/ini_forcing.F |
145 |
INI_FORCING |
CALL EXCH_XY_RS( geothermalFlux, myThid ) |
|
./model/src/ini_forcing.F |
148 |
INI_FORCING |
& 1,geothermalFlux,'geothermalFlux',myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
130 |
NO PROCEDURE |
COMMON /FFIELDS_geothermal/ geothermalFlux |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
131 |
NO PROCEDURE |
_RS geothermalFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
130 |
NO PROCEDURE |
COMMON /FFIELDS_geothermal/ geothermalFlux |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
131 |
NO PROCEDURE |
_RS geothermalFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
92 |
CTRL_MAP_INI_GENARR |
& call CTRL_MAP_GENARR2D(geothermalFlux,igen_geoth,myThid) |
|
./pkg/ecco/cost_gencost_customize.F |
151 |
COST_GENCOST_CUSTOMIZE |
& geothermalFlux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |