| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
204 |
ECCO_PHYS |
& *HeatCapacity_Cp*rhoConst |
|
./pkg/ecco/ecco_phys.F |
207 |
ECCO_PHYS |
& *HeatCapacity_Cp*rhoConst |
|
./pkg/exf/exf_mapfields.F |
159 |
EXF_MAPFIELDS |
& - HeatCapacity_Cp |
|
./pkg/exf/exf_mapfields.F |
177 |
EXF_MAPFIELDS |
& - HeatCapacity_Cp |
|
./pkg/exf/exf_mapfields.F |
189 |
EXF_MAPFIELDS |
& - HeatCapacity_Cp |
|
./pkg/exf/exf_mapfields.F |
199 |
EXF_MAPFIELDS |
& + HeatCapacity_Cp |
|
./pkg/exf/exf_mapfields.F |
214 |
EXF_MAPFIELDS |
& + HeatCapacity_Cp |
|
./model/inc/PARAMS.h |
983 |
NO PROCEDURE |
COMMON /PARM_A/ HeatCapacity_Cp |
|
./model/inc/PARAMS.h |
984 |
NO PROCEDURE |
_RL HeatCapacity_Cp |
|
./pkg/frazil/frazil_calc_rhs.F |
94 |
FRAZIL_CALC_RHS |
& * HeatCapacity_Cp * rUnit2mass |
|
./pkg/frazil/frazil_tendency_apply.F |
56 |
FRAZIL_TENDENCY_APPLY_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/icefront/icefront_thermodynamics.F |
103 |
ICEFRONT_THERMODYNAMICS |
eps1 = rUnit2mass*HeatCapacity_Cp*ICEFRONTheatTransCoeff(I,J) |
|
./pkg/icefront/icefront_thermodynamics.F |
107 |
ICEFRONT_THERMODYNAMICS |
eps5 = mass2rUnit/HeatCapacity_Cp |
|
./pkg/icefront/icefront_thermodynamics.F |
150 |
ICEFRONT_THERMODYNAMICS |
HeatFlux(I,J) = maskC(I,J,K,bi,bj) * HeatCapacity_Cp * |
|
./model/src/apply_forcing.F |
484 |
APPLY_FORCING_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/kpp/kpp_forcing_surf.F |
163 |
KPP_FORCING_SURF |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/kpp/kpp_forcing_surf.F |
234 |
KPP_FORCING_SURF |
& TTALPHA(I,J,k)* SPforcT(i,j,k) / HeatCapacity_Cp ) |
|
./pkg/kpp/kpp_transport_t.F |
68 |
KPP_TRANSPORT_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/layers/layers_thermodynamics.F |
63 |
LAYERS_CALC_RHS |
fluxfac(1) = 1.0/(HeatCapacity_Cp*rUnit2mass) |
|
./pkg/layers/layers_wsurf_tr.F |
76 |
LAYERS_WSURF_TR |
& tcor * HeatCapacity_Cp * rUnit2mass |
|
./model/src/config_summary.F |
284 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( HeatCapacity_Cp, INDEX_NONE, |
|
./model/src/diags_oceanic_surf_flux.F |
104 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./model/src/diags_oceanic_surf_flux.F |
126 |
DIAGS_OCEANIC_SURF_FLUX |
& *HeatCapacity_Cp*rUnit2mass |
|
./model/src/diags_oceanic_surf_flux.F |
135 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*theta(i,j,ks,bi,bj)*HeatCapacity_Cp |
|
./model/src/diags_oceanic_surf_flux.F |
99 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./model/src/external_forcing.F |
361 |
EXTERNAL_FORCING_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./model/src/external_forcing_surf.F |
77 |
EXTERNAL_FORCING_SURF |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/salt_plume/salt_plume_apply.F |
120 |
SALT_PLUME_APPLY |
ConvertFac = HeatCapacity_Cp*rhoConst |
|
./pkg/salt_plume/salt_plume_apply.F |
121 |
SALT_PLUME_APPLY |
recip_ConvertFac = mass2rUnit/HeatCapacity_Cp |
|
./model/src/forcing_surf_relax.F |
248 |
FORCING_SURF_RELAX |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
62 |
SALT_PLUME_FORCING_SURF |
& *HeatCapacity_Cp |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
70 |
SALT_PLUME_FORCING_SURF |
& - SPforcT1(i,j,bi,bj) * mass2rUnit / HeatCapacity_Cp |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
62 |
SALT_PLUME_TENDENCY_APPLY_T |
& /HeatCapacity_Cp |
|
./pkg/seaice/seaice_growth.F |
1059 |
SEAICE_GROWTH |
tmpscal2= - (HeatCapacity_Cp*rhoConst * recip_QI) |
|
./pkg/seaice/seaice_growth.F |
2273 |
SEAICE_GROWTH |
& HeatCapacity_Cp * temp_EvPrRn |
|
./pkg/seaice/seaice_growth.F |
2277 |
SEAICE_GROWTH |
& HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2279 |
SEAICE_GROWTH |
tmpscal1 = - tmpscal3*HeatCapacity_Cp* |
|
./pkg/seaice/seaice_growth.F |
2337 |
SEAICE_GROWTH |
& ( -SEAICE_lhFusion + HeatCapacity_Cp * ZERO ) |
|
./pkg/seaice/seaice_growth.F |
2341 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * temp_EvPrRn ) |
|
./pkg/seaice/seaice_growth.F |
2345 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2347 |
SEAICE_GROWTH |
tmpscal2= - tmpscal2*HeatCapacity_Cp* |
|
./pkg/seaice/seaice_growth.F |
2489 |
SEAICE_GROWTH |
& HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2616 |
SEAICE_GROWTH |
FWF2HFsiGlob=HeatCapacity_Cp * temp_EvPrRn * globalArea |
|
./pkg/seaice/seaice_growth.F |
2645 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * temp_EvPrRn ) |
|
./pkg/seaice/seaice_growth.F |
2649 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2652 |
SEAICE_GROWTH |
& HeatCapacity_Cp*(temp_EvPrRn - theta(I,J,kSurface,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
172 |
SHELFICE_THERMODYNAMICS |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/shelfice/shelfice_thermodynamics.F |
410 |
SHELFICE_THERMODYNAMICS |
& * HeatCapacity_Cp*rUnit2mass |
|
./pkg/shelfice/shelfice_thermodynamics.F |
458 |
SHELFICE_THERMODYNAMICS |
eps1 = rUnit2mass*HeatCapacity_Cp |
|
./pkg/shelfice/shelfice_thermodynamics.F |
462 |
SHELFICE_THERMODYNAMICS |
eps5 = rUnit2mass*HeatCapacity_Cp |
|
./pkg/shelfice/shelfice_thermodynamics.F |
512 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: Cp_W = ', HeatCapacity_Cp |
|
./pkg/shelfice/shelfice_thermodynamics.F |
547 |
SHELFICE_THERMODYNAMICS |
& - HeatCapacity_Cp*( thetaFreeze - rFac*tLoc(I,J) ) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
598 |
SHELFICE_THERMODYNAMICS |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./pkg/thsice/thsice_get_precip.F |
106 |
THSICE_GET_PRECIP |
qPrcRnO(i,j) = HeatCapacity_Cp*( |
|
./pkg/thsice/thsice_get_precip.F |
152 |
THSICE_GET_PRECIP |
qPrcRnO(i,j) = HeatCapacity_Cp* |
|
./pkg/thsice/thsice_map_exf.F |
115 |
THSICE_MAP_EXF |
qPrcRnO(i,j) = HeatCapacity_Cp |
|
./pkg/thsice/thsice_map_exf.F |
121 |
THSICE_MAP_EXF |
& + HeatCapacity_Cp |
|
./pkg/thsice/thsice_readparms.F |
113 |
THSICE_READPARMS |
cpWater = HeatCapacity_Cp |
|
./model/src/ini_parms.F |
199 |
INI_PARMS |
& HeatCapacity_Cp, celsius2K, atm_Cp, atm_Rd, atm_Rq, atm_Po, |
|
./model/src/ini_parms.F |
651 |
INI_PARMS |
IF ( HeatCapacity_Cp .LE. 0. ) THEN |
|
./pkg/timeave/timeave_surf_flux.F |
72 |
TIMEAVE_SURF_FLUX |
& *HeatCapacity_Cp*rUnit2mass |
|
./pkg/timeave/timeave_surf_flux.F |
81 |
TIMEAVE_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*theta(i,j,k,bi,bj)*HeatCapacity_Cp |
|
./verification/rotating_tank/code/apply_forcing.F |
491 |
APPLY_FORCING_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./verification/tidal_basin_2d/code/external_forcing.F |
244 |
EXTERNAL_FORCING_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./model/src/set_defaults.F |
174 |
SET_DEFAULTS |
HeatCapacity_Cp = 3994. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
80 |
EXTERNAL_FORCING_SURF |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
80 |
EXTERNAL_FORCING_SURF |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/atm2d/relax_add.F |
127 |
RELAX_ADD |
& * (HeatCapacity_Cp*rhoNil*drF(1))*nearIce |
|
./pkg/bulk_force/bulkf_forcing.F |
240 |
BULKF_FORCING |
& - HeatCapacity_Cp |
|
./pkg/bulk_force/bulkf_forcing.F |
258 |
BULKF_FORCING |
& *HeatCapacity_Cp*rhoConstFresh |
|
./pkg/cost/cost_atlantic_heat.F |
192 |
COST_ATLANTIC_HEAT |
& sum*HeatCapacity_Cp*rhoConst/petawatt |
|
./pkg/ecco/cost_gencost_seaicev4.F |
435 |
GET_EXCONC_DECONC |
const1=HeatCapacity_Cp*rhoNil*drF(1) |