| File |
Line number |
Procedure |
Code |
|
./model/src/apply_forcing.F |
650 |
APPLY_FORCING_T |
& + geothermalFlux(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
217 |
INI_FORCING |
& geothermalFlux, 0, myThid ) |
|
./model/src/ini_forcing.F |
218 |
INI_FORCING |
CALL EXCH_XY_RS( geothermalFlux, myThid ) |
|
./model/src/ini_forcing.F |
221 |
INI_FORCING |
& 1,geothermalFlux,'geothermalFlux',myThid) |
|
./model/src/ini_forcing.F |
66 |
INI_FORCING |
geothermalFlux (i,j,bi,bj) = 0. _d 0 |
|
./model/inc/FFIELDS.h |
126 |
NO PROCEDURE |
COMMON /FFIELDS_geothermal/ geothermalFlux |
|
./model/inc/FFIELDS.h |
127 |
NO PROCEDURE |
_RS geothermalFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |