| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_readparms.F |
389 |
EXF_READPARMS |
atempconst = celsius2K |
|
./model/inc/PARAMS.h |
1002 |
NO PROCEDURE |
_RL celsius2K |
|
./model/inc/PARAMS.h |
999 |
NO PROCEDURE |
& celsius2K, |
|
./model/src/config_summary.F |
288 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( celsius2K, INDEX_NONE, 'celsius2K =', |
|
./pkg/seaice/seaice_budget_ocean.F |
80 |
SEAICE_BUDGET_OCEAN |
TMELT = celsius2K |
|
./pkg/seaice/seaice_budget_ocean.F |
95 |
SEAICE_BUDGET_OCEAN |
atempLoc (I,J) = MAX(celsius2K+MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
734 |
SEAICE_GROWTH |
TmixLoc(i,j) = theta(i,j,kSurface,bi,bj)+celsius2K |
|
./pkg/seaice/seaice_reg_ridge.F |
225 |
SEAICE_REG_RIDGE |
TICES(I,J,IT,bi,bj)=celsius2K |
|
./pkg/seaice/seaice_solve4temp.F |
196 |
SEAICE_SOLVE4TEMP |
TMELT = celsius2K |
|
./pkg/seaice/seaice_solve4temp.F |
242 |
SEAICE_SOLVE4TEMP |
atempLoc (I,J) = MAX( celsius2K+MIN_ATEMP, ATEMP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_solve4temp.F |
246 |
SEAICE_SOLVE4TEMP |
& + SEAICE_tempFrz0 + celsius2K |
|
./pkg/seaice/seaice_solve4temp.F |
442 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = MAX( celsius2K+MIN_TICE, tsurfLoc(I,J) ) |
|
./pkg/thsice/thsice_readparms.F |
135 |
THSICE_READPARMS |
Tf0kel = celsius2K |
|
./pkg/thsice/thsice_slab_ocean.F |
115 |
THSICE_SLAB_OCEAN |
& ) - celsius2K |
|
./model/src/ini_parms.F |
199 |
INI_PARMS |
& HeatCapacity_Cp, celsius2K, atm_Cp, atm_Rd, atm_Rq, atm_Po, |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
206 |
AIM_SURF_BC |
oceTfreez = celsius2K - 1.9 _d 0 |
|
./model/src/set_defaults.F |
272 |
SET_DEFAULTS |
celsius2K = 273.15 _d 0 |
|
./pkg/aim_v23/aim_land2aim.F |
104 |
AIM_LAND2AIM |
land_groundT(i,j,k,bi,bj) = aimTld(i,j)-celsius2K |
|
./pkg/aim_v23/aim_land2aim.F |
96 |
AIM_LAND2AIM |
aimTld(i,j) = land_skinT(i,j,bi,bj)+celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
138 |
AIM_SICE2AIM |
tOceMxL(i,j,bi,bj) = aimTsoce(i,j)-celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
157 |
AIM_SICE2AIM |
aimTsoce(i,j) = tOceMxL(i,j,bi,bj)+celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
85 |
AIM_SICE2AIM |
aimTsice(i,j) = Tsrf(i,j,bi,bj)+celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
93 |
AIM_SICE2AIM |
Tsrf (i,j,bi,bj) = aimTsice(i,j)-celsius2K |
|
./pkg/aim_v23/aim_surf_bc.F |
189 |
AIM_SURF_BC |
oceTfreez = celsius2K - 1.9 _d 0 |
|
./pkg/aim_v23/phy_inphys.F |
75 |
INPHYS |
tFreeze= celsius2K |
|
./pkg/atm_compon_interf/atm_apply_import.F |
138 |
ATM_APPLY_IMPORT |
atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K |
|
./pkg/atm_compon_interf/atm_apply_import.F |
153 |
ATM_APPLY_IMPORT |
atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K |
|
./pkg/atm_compon_interf/atm_apply_import.F |
157 |
ATM_APPLY_IMPORT |
atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K |
|
./pkg/bulk_force/bulkf_formula_aim.F |
152 |
BULKF_FORMULA_AIM |
TSKIN(J) = Tsurf(J) + celsius2K |
|
./pkg/bulk_force/bulkf_readparms.F |
95 |
BULKF_READPARMS |
Tf0kel = celsius2K |
|
./pkg/cheapaml/cheapaml.F |
419 |
CHEAPAML |
xalwu = stefan*(0.5*Tair(i,j,bi,bj)+0.5*ttt+celsius2K)**4 |
|
./pkg/cheapaml/cheapaml.F |
422 |
CHEAPAML |
xalwd = stefan*(Tair(i,j,bi,bj)+celsius2K)**4*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
437 |
CHEAPAML |
xlwnet = 0.98 _d 0*stefan*(theta(i,j,1,bi,bj)+celsius2K)**4 |
|
./pkg/cheapaml/cheapaml.F |
442 |
CHEAPAML |
& + 4.0*0.98 _d 0*stefan*(theta(i,j,1,bi,bj)+celsius2K)**3 |
|
./pkg/cheapaml/cheapaml.F |
476 |
CHEAPAML |
ts=Tair(i,j,bi,bj)+gamma_blk*zt+celsius2K |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
83 |
CHEAPAML_COARE3_FLUX |
Rnl = 0.96 _d 0*(stefan*(tsw+celsius2K)**4) !Net longwave (up = +). |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
92 |
CHEAPAML_COARE3_FLUX |
tta = Tas+celsius2K |
|
./pkg/cheapaml/cheapaml_fields_load.F |
473 |
CHEAPAML_FIELDS_LOAD |
local = (2. _d 0*local/stefan)**(0.25 _d 0) - celsius2K |
|
./pkg/cheapaml/cheapaml_fields_load.F |
491 |
CHEAPAML_FIELDS_LOAD |
local = Tr(i,j,bi,bj) + celsius2K |
|
./pkg/cheapaml/cheapaml_init_varia.F |
133 |
CHEAPAML_INIT_VARIA |
local= Tair(i,j,bi,bj)+celsius2K |