| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_mapfields.F |
156 |
EXF_MAPFIELDS |
& - HeatCapacity_Cp |
|
./pkg/exf/exf_mapfields.F |
174 |
EXF_MAPFIELDS |
& - HeatCapacity_Cp |
|
./pkg/exf/exf_mapfields.F |
186 |
EXF_MAPFIELDS |
& - HeatCapacity_Cp |
|
./pkg/exf/exf_mapfields.F |
196 |
EXF_MAPFIELDS |
& + HeatCapacity_Cp |
|
./pkg/exf/exf_mapfields.F |
211 |
EXF_MAPFIELDS |
& + HeatCapacity_Cp |
|
./model/inc/PARAMS.h |
926 |
NO PROCEDURE |
COMMON /PARM_A/ HeatCapacity_Cp |
|
./model/inc/PARAMS.h |
927 |
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 * |
|
./pkg/kpp/kpp_forcing_surf.F |
160 |
KPP_FORCING_SURF |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/kpp/kpp_forcing_surf.F |
231 |
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 |
|
./model/src/apply_forcing.F |
474 |
APPLY_FORCING_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/layers/layers_thermodynamics.F |
56 |
LAYERS_CALC_RHS |
fluxfac(1) = 1.0/(HeatCapacity_Cp*rUnit2mass) |
|
./model/src/config_summary.F |
262 |
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 |
|
./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 |
|
./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 |
|
./model/src/external_forcing.F |
361 |
EXTERNAL_FORCING_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
62 |
SALT_PLUME_TENDENCY_APPLY_T |
& /HeatCapacity_Cp |
|
./model/src/external_forcing_surf.F |
77 |
EXTERNAL_FORCING_SURF |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./model/src/forcing_surf_relax.F |
248 |
FORCING_SURF_RELAX |
tmpFac = HeatCapacity_Cp*rUnit2mass |
|
./pkg/seaice/seaice_growth.F |
1041 |
SEAICE_GROWTH |
tmpscal2= - (HeatCapacity_Cp*rhoConst * recip_QI) |
|
./pkg/seaice/seaice_growth.F |
2235 |
SEAICE_GROWTH |
& HeatCapacity_Cp * temp_EvPrRn |
|
./pkg/seaice/seaice_growth.F |
2239 |
SEAICE_GROWTH |
& HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2241 |
SEAICE_GROWTH |
tmpscal1 = - tmpscal3*HeatCapacity_Cp* |
|
./pkg/seaice/seaice_growth.F |
2299 |
SEAICE_GROWTH |
& ( -SEAICE_lhFusion + HeatCapacity_Cp * ZERO ) |
|
./pkg/seaice/seaice_growth.F |
2303 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * temp_EvPrRn ) |
|
./pkg/seaice/seaice_growth.F |
2307 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2309 |
SEAICE_GROWTH |
tmpscal2= - tmpscal2*HeatCapacity_Cp* |
|
./pkg/seaice/seaice_growth.F |
2449 |
SEAICE_GROWTH |
& HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2576 |
SEAICE_GROWTH |
FWF2HFsiGlob=HeatCapacity_Cp * temp_EvPrRn * globalArea |
|
./pkg/seaice/seaice_growth.F |
2605 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * temp_EvPrRn ) |
|
./pkg/seaice/seaice_growth.F |
2609 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2612 |
SEAICE_GROWTH |
& HeatCapacity_Cp*(temp_EvPrRn - theta(I,J,kSurface,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
155 |
SHELFICE_THERMODYNAMICS |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/shelfice/shelfice_thermodynamics.F |
352 |
SHELFICE_THERMODYNAMICS |
& * HeatCapacity_Cp*rUnit2mass |
|
./pkg/shelfice/shelfice_thermodynamics.F |
400 |
SHELFICE_THERMODYNAMICS |
eps1 = rUnit2mass*HeatCapacity_Cp |
|
./pkg/shelfice/shelfice_thermodynamics.F |
404 |
SHELFICE_THERMODYNAMICS |
eps5 = rUnit2mass*HeatCapacity_Cp |
|
./pkg/shelfice/shelfice_thermodynamics.F |
454 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: Cp_W = ', HeatCapacity_Cp |
|
./pkg/shelfice/shelfice_thermodynamics.F |
489 |
SHELFICE_THERMODYNAMICS |
& - HeatCapacity_Cp*( thetaFreeze - rFac*tLoc(I,J) ) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
536 |
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 |
|
./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 |
|
./model/src/ini_parms.F |
190 |
INI_PARMS |
& HeatCapacity_Cp, celsius2K, atm_Cp, atm_Rd, atm_Rq, atm_Po, |
|
./model/src/ini_parms.F |
611 |
INI_PARMS |
IF ( HeatCapacity_Cp .LE. 0. ) THEN |
|
./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 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
74 |
EXTERNAL_FORCING_SURF |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
74 |
EXTERNAL_FORCING_SURF |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./model/src/set_defaults.F |
169 |
SET_DEFAULTS |
HeatCapacity_Cp = 3994. _d 0 |
|
./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_atlantic.F |
169 |
COST_ATLANTIC |
$ *HeatCapacity_Cp*rhoNil |
|
./pkg/ecco/cost_atlantic.F |
217 |
COST_ATLANTIC |
$ *HeatCapacity_Cp*rhoNil |
|
./pkg/ecco/cost_gencost_seaicev4.F |
432 |
COST_GENCOST_SEAICEV4 |
& HeatCapacity_Cp*rhoNil*drF(1) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
435 |
COST_GENCOST_SEAICEV4 |
& - (epsilonTemp*HeatCapacity_Cp*rhoNil*drF(1))) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
459 |
COST_GENCOST_SEAICEV4 |
& HeatCapacity_Cp*rhoNil*drF(1) ) |
|
./pkg/ecco/cost_trans_merid.F |
208 |
COST_TRANS_MERID |
$ *HeatCapacity_Cp*rhoNil |
|
./pkg/ecco/cost_trans_zonal.F |
197 |
COST_TRANS_ZONAL |
$ *HeatCapacity_Cp*rhoNil |