| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
891 |
NO PROCEDURE |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp |
|
./model/inc/PARAMS.h |
892 |
NO PROCEDURE |
_RL HeatCapacity_Cp |
|
./pkg/icefront/icefront_thermodynamics.F |
144 |
ICEFRONT_THERMODYNAMICS |
HeatFlux(I,J) = maskC(I,J,K,bi,bj) * HeatCapacity_Cp * |
|
./pkg/icefront/icefront_thermodynamics.F |
89 |
ICEFRONT_THERMODYNAMICS |
eps1 = rUnit2mass*HeatCapacity_Cp*ICEFRONTheatTransCoeff |
|
./pkg/icefront/icefront_thermodynamics.F |
92 |
ICEFRONT_THERMODYNAMICS |
eps5 = mass2rUnit/HeatCapacity_Cp |
|
./model/src/diags_oceanic_surf_flux.F |
101 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./model/src/diags_oceanic_surf_flux.F |
121 |
DIAGS_OCEANIC_SURF_FLUX |
& *HeatCapacity_Cp*rUnit2mass |
|
./model/src/diags_oceanic_surf_flux.F |
130 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*theta(i,j,ks,bi,bj)*HeatCapacity_Cp |
|
./model/src/diags_oceanic_surf_flux.F |
96 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./pkg/seaice/seaice_growth.F |
714 |
SEAICE_GROWTH |
& (HeatCapacity_Cp*rhoConst/QI) |
|
./pkg/seaice/seaice_growth.F |
719 |
SEAICE_GROWTH |
& (HeatCapacity_Cp*rhoConst/QI) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
171 |
SHELFICE_THERMODYNAMICS |
& *HeatCapacity_Cp*rUnit2mass |
|
./pkg/shelfice/shelfice_thermodynamics.F |
207 |
SHELFICE_THERMODYNAMICS |
eps1 = rUnit2mass*HeatCapacity_Cp*SHELFICEheatTransCoeff |
|
./pkg/shelfice/shelfice_thermodynamics.F |
209 |
SHELFICE_THERMODYNAMICS |
eps5 = rUnit2mass*HeatCapacity_Cp*SHELFICEsaltTransCoeff |
|
./pkg/shelfice/shelfice_thermodynamics.F |
250 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: Cp_W = ', HeatCapacity_Cp |
|
./pkg/shelfice/shelfice_thermodynamics.F |
275 |
SHELFICE_THERMODYNAMICS |
& - HeatCapacity_Cp*( thetaFreeze - rFac*tLoc(I,J) ) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
307 |
SHELFICE_THERMODYNAMICS |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./model/src/external_forcing_surf.F |
168 |
EXTERNAL_FORCING_SURF |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./pkg/thsice/thsice_readparms.F |
92 |
THSICE_READPARMS |
cpWater = HeatCapacity_Cp |
|
./pkg/timeave/timeave_surf_flux.F |
72 |
TIMEAVE_SURF_FLUX |
& *HeatCapacity_Cp*rUnit2mass |
|
./pkg/timeave/timeave_surf_flux.F |
82 |
TIMEAVE_SURF_FLUX |
& *theta(i,j,k,bi,bj)*HeatCapacity_Cp |
|
./model/src/ini_parms.F |
195 |
INI_PARMS |
& rhoConst, rhoConstFresh, buoyancyRelation, HeatCapacity_Cp, |
|
./model/src/ini_parms.F |
591 |
INI_PARMS |
IF ( HeatCapacity_Cp .LE. 0. ) THEN |
|
./model/src/ini_parms.F |
597 |
INI_PARMS |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
151 |
EXTERNAL_FORCING_SURF |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./model/src/set_defaults.F |
143 |
SET_DEFAULTS |
HeatCapacity_Cp = 3994. _d 0 |
|
./pkg/cost/cost_atlantic_heat.F |
190 |
COST_ATLANTIC_HEAT |
& sum*HeatCapacity_Cp*rhoConst/petawatt |
|
./pkg/ecco/cost_atlantic.F |
164 |
COST_ATLANTIC |
$ *HeatCapacity_Cp*rhoNil |
|
./pkg/ecco/cost_atlantic.F |
208 |
COST_ATLANTIC |
$ *HeatCapacity_Cp*rhoNil |
|
./pkg/ecco/cost_trans_merid.F |
205 |
COST_TRANS_MERID |
$ *HeatCapacity_Cp*rhoNil |
|
./pkg/ecco/cost_trans_zonal.F |
194 |
COST_TRANS_ZONAL |
$ *HeatCapacity_Cp*rhoNil |