| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_init_wet.F |
448 |
CTRL_INIT_WET |
wunit(k,bi,bj) = 1. _d 0 |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
104 |
CTRL_HFACC_INI |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
77 |
CTRL_HFACC_INI |
fac = 1. _d 0 |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
79 |
CTRL_HFACC_INI |
fac = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
107 |
CTRL_SET_PACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
108 |
CTRL_SET_PACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
178 |
CTRL_SET_PACK_XYZ |
delZnorm = 1. _d 0 |
|
./pkg/ctrl/optim_readparms.F |
68 |
OPTIM_READPARMS |
fmin = 0.0 _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
100 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
114 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcse0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
115 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcse1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
69 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
70 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
84 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
85 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
99 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
101 |
CTRL_SET_PACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
117 |
CTRL_SET_PACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
99 |
CTRL_SET_PACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_get_gen.F |
169 |
CTRL_GET_GEN |
& + gensign*(1. _d 0 - genfac)*xx_gen1(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_unpack.F |
108 |
CTRL_UNPACK |
fmin = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcss.F |
348 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
354 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
360 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
366 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./model/src/update_cg2d.F |
144 |
UPDATE_CG2D |
pC(I,J,bi,bj) = 1. _d 0 |
|
./model/src/update_cg2d.F |
146 |
UPDATE_CG2D |
pC(I,J,bi,bj) = 1. _d 0 / cg2d_q(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
75 |
UPDATE_CG2D |
aW2d(I,J,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
76 |
UPDATE_CG2D |
aS2d(I,J,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
140 |
CTRL_READPARMS |
xx_hfluxperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
144 |
CTRL_READPARMS |
xx_sfluxperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
148 |
CTRL_READPARMS |
xx_tauuperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
152 |
CTRL_READPARMS |
xx_tauvperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
156 |
CTRL_READPARMS |
xx_atempperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
160 |
CTRL_READPARMS |
xx_aqhperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
164 |
CTRL_READPARMS |
xx_uwindperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
168 |
CTRL_READPARMS |
xx_vwindperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
172 |
CTRL_READPARMS |
xx_obcsnperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
176 |
CTRL_READPARMS |
xx_obcssperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
180 |
CTRL_READPARMS |
xx_obcswperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
184 |
CTRL_READPARMS |
xx_obcseperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
373 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
380 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
387 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
394 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_init_variables.F |
100 |
CTRL_INIT_VARIABLES |
xx_tauv1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
112 |
CTRL_INIT_VARIABLES |
xx_uwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
113 |
CTRL_INIT_VARIABLES |
xx_uwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
125 |
CTRL_INIT_VARIABLES |
xx_vwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
126 |
CTRL_INIT_VARIABLES |
xx_vwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
138 |
CTRL_INIT_VARIABLES |
xx_atemp0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
139 |
CTRL_INIT_VARIABLES |
xx_atemp1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
151 |
CTRL_INIT_VARIABLES |
xx_aqh0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
152 |
CTRL_INIT_VARIABLES |
xx_aqh1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
60 |
CTRL_INIT_VARIABLES |
xx_hflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
61 |
CTRL_INIT_VARIABLES |
xx_hflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
73 |
CTRL_INIT_VARIABLES |
xx_sflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
74 |
CTRL_INIT_VARIABLES |
xx_sflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
86 |
CTRL_INIT_VARIABLES |
xx_tauu0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
87 |
CTRL_INIT_VARIABLES |
xx_tauu1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
99 |
CTRL_INIT_VARIABLES |
xx_tauv0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
89 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./model/src/ini_masks_etc.F |
102 |
INI_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |
|
./model/src/ini_masks_etc.F |
108 |
INI_MASKS_ETC |
hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0) |
|
./model/src/ini_masks_etc.F |
110 |
INI_MASKS_ETC |
hFacCtmp = max( hFacCtmp, 0. _d 0) |
|
./model/src/ini_masks_etc.F |
62 |
INI_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |
|
./model/src/ini_masks_etc.F |
68 |
INI_MASKS_ETC |
hFacCtmp=min( max( hFacCtmp, 0. _d 0) , 1. _d 0) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
121 |
MOM_CALC_RTRANS |
& 0.5 _d 0*(dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
123 |
MOM_CALC_RTRANS |
& 0.5 _d 0*(dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
150 |
MOM_CALC_RTRANS |
& + (dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
152 |
MOM_CALC_RTRANS |
& + (dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
74 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR( i ,j,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
77 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR(i, j ,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
96 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
99 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
52 |
MOM_U_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i,j+1,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
381 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
400 |
MOM_FLUXFORM |
& - (rStarExpW(i,j,bi,bj) - 1. _d 0)/deltaTfreesurf |
|
./pkg/mom_fluxform/mom_fluxform.F |
542 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
561 |
MOM_FLUXFORM |
& - (rStarExpS(i,j,bi,bj) - 1. _d 0)/deltaTfreesurf |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
85 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)+vFld(i,j,k-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
52 |
MOM_V_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i+1,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
84 |
MOM_U_ADV_WU |
& 0.5 _d 0*( uFld(i,j,k,bi,bj)+uFld(i,j,k-1,bi,bj) ) |
|
./model/src/integr_continuity.F |
131 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = 0. _d 0 |
|
./model/src/integr_continuity.F |
154 |
INTEGR_CONTINUITY |
IF (implicDiv2Dflow.EQ. 0. _d 0) THEN |
|
./model/src/integr_continuity.F |
201 |
INTEGR_CONTINUITY |
IF ( k.EQ.Nr .AND. myTime.NE. 0. _d 0 .AND. |
|
./model/src/integr_continuity.F |
74 |
INTEGR_CONTINUITY |
hDivFlow(i,j) = 0. _d 0 |
|
./model/src/integr_continuity.F |
75 |
INTEGR_CONTINUITY |
utrans(i,j) = 0. _d 0 |
|
./model/src/integr_continuity.F |
76 |
INTEGR_CONTINUITY |
vtrans(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
39 |
MOM_VI_V_CORIOLIS |
epsil = 1. _d -9 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
98 |
MOM_VI_V_CORIOLIS |
& uBarXY = uBarXY * 4. _d 0 * hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
153 |
MOM_VECINV |
strain(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
154 |
MOM_VECINV |
tension(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
39 |
MOM_VI_U_CORIOLIS |
epsil = 1. _d -9 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
98 |
MOM_VI_U_CORIOLIS |
& vBarXY = vBarXY * 4. _d 0 * hFacW(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
65 |
UPDATE_SURF_DR |
recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
78 |
UPDATE_SURF_DR |
recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
87 |
UPDATE_SURF_DR |
recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfS(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
112 |
MOM_VI_HDISSIP |
Alth2=0. _d 0 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
118 |
MOM_VI_HDISSIP |
Alth4=0. _d 0 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
207 |
MOM_VI_HDISSIP |
Alth2=0. _d 0 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
213 |
MOM_VI_HDISSIP |
Alth4=0. _d 0 |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
37 |
MOM_VI_CORIOLIS |
epsil = 1. _d -9 |
|
./model/src/ini_pnh.F |
52 |
INI_PNH |
phi_nh(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsss.F |
200 |
EXF_INIT_CLIMSSS |
climsss0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsss.F |
201 |
EXF_INIT_CLIMSSS |
climsss1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
127 |
EXF_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
186 |
EXF_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
244 |
EXF_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
67 |
EXF_SWAPFFIELDS |
ffld1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsalt.F |
184 |
EXF_INIT_CLIMSALT |
climsalt (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsalt.F |
185 |
EXF_INIT_CLIMSALT |
climsalt0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsalt.F |
186 |
EXF_INIT_CLIMSALT |
climsalt1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_init_runoff.F |
46 |
EXF_INIT_RUNOFF |
runoff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_clim_readparms.F |
101 |
EXF_CLIM_READPARMS |
climsstconst = 0. _d 0 |
|
./pkg/exf/exf_clim_readparms.F |
102 |
EXF_CLIM_READPARMS |
climsssconst = 0. _d 0 |
|
./pkg/exf/exf_clim_readparms.F |
105 |
EXF_CLIM_READPARMS |
climtempfreeze = -1.9 _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
254 |
EXF_BULKFORMULAE |
& lwflux(i,j,bi,bj) = 5.5 _d -08 * |
|
./pkg/exf/exf_bulkformulae.F |
258 |
EXF_BULKFORMULAE |
& lwdown(i,j,bi,bj) = 5.5 _d -08 * |
|
./pkg/exf/exf_bulkformulae.F |
278 |
EXF_BULKFORMULAE |
if ( ustmp .ne. 0. _d 0 ) then |
|
./pkg/exf/exf_bulkformulae.F |
283 |
EXF_BULKFORMULAE |
us = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
284 |
EXF_BULKFORMULAE |
cw = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
285 |
EXF_BULKFORMULAE |
sw = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
299 |
EXF_BULKFORMULAE |
if ( ustmp .ne. 0. _d 0 ) then |
|
./pkg/exf/exf_bulkformulae.F |
304 |
EXF_BULKFORMULAE |
ustar = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
305 |
EXF_BULKFORMULAE |
cw = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
306 |
EXF_BULKFORMULAE |
sw = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
309 |
EXF_BULKFORMULAE |
if ( ustar .eq. 0. _d 0 ) then |
|
./pkg/exf/exf_bulkformulae.F |
310 |
EXF_BULKFORMULAE |
us = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
327 |
EXF_BULKFORMULAE |
rdn = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
342 |
EXF_BULKFORMULAE |
if ( atemp(i,j,bi,bj) .ne. 0. _d 0 ) then |
|
./pkg/exf/exf_bulkformulae.F |
453 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
454 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
455 |
EXF_BULKFORMULAE |
hflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
456 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
457 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
481 |
EXF_BULKFORMULAE |
hfl = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
100 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
80 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
90 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climtemp.F |
190 |
EXF_INIT_CLIMTEMP |
climtemp (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climtemp.F |
191 |
EXF_INIT_CLIMTEMP |
climtemp0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climtemp.F |
192 |
EXF_INIT_CLIMTEMP |
climtemp1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
101 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
81 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
91 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./model/src/calc_diffusivity.F |
60 |
CALC_DIFFUSIVITY |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0) |
|
./pkg/exf/exf_set_climsst.F |
209 |
EXF_INIT_CLIMSST |
climsst0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsst.F |
210 |
EXF_INIT_CLIMSST |
climsst1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
174 |
EXF_READPARMS |
hfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
175 |
EXF_READPARMS |
hfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
179 |
EXF_READPARMS |
atempperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
184 |
EXF_READPARMS |
aqhperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
185 |
EXF_READPARMS |
aqhconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
189 |
EXF_READPARMS |
sfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
190 |
EXF_READPARMS |
sfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
194 |
EXF_READPARMS |
evapperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
195 |
EXF_READPARMS |
evapconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
199 |
EXF_READPARMS |
precipperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
200 |
EXF_READPARMS |
precipconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
204 |
EXF_READPARMS |
runoffperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
205 |
EXF_READPARMS |
runoffconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
209 |
EXF_READPARMS |
ustressperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
210 |
EXF_READPARMS |
ustressconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
214 |
EXF_READPARMS |
vstressperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
215 |
EXF_READPARMS |
vstressconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
219 |
EXF_READPARMS |
uwindperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
220 |
EXF_READPARMS |
uwindconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
224 |
EXF_READPARMS |
vwindperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
225 |
EXF_READPARMS |
vwindconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
229 |
EXF_READPARMS |
swfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
230 |
EXF_READPARMS |
swfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
234 |
EXF_READPARMS |
lwfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
235 |
EXF_READPARMS |
lwfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
239 |
EXF_READPARMS |
swdownperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
240 |
EXF_READPARMS |
swdownconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
244 |
EXF_READPARMS |
lwdownperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
245 |
EXF_READPARMS |
lwdownconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
249 |
EXF_READPARMS |
obcsNperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
253 |
EXF_READPARMS |
obcsSperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
257 |
EXF_READPARMS |
obcsEperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
261 |
EXF_READPARMS |
obcsWperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
265 |
EXF_READPARMS |
apressureperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
266 |
EXF_READPARMS |
apressureconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
268 |
EXF_READPARMS |
repeatPeriod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
269 |
EXF_READPARMS |
exf_albedo = 0.1 _d 0 |
|
./pkg/exf/exf_readparms.F |
270 |
EXF_READPARMS |
windstressmax = 2.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
320 |
EXF_READPARMS |
exf_inscal_hflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
321 |
EXF_READPARMS |
exf_inscal_sflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
322 |
EXF_READPARMS |
exf_inscal_ustress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
323 |
EXF_READPARMS |
exf_inscal_vstress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
324 |
EXF_READPARMS |
exf_inscal_uwind = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
325 |
EXF_READPARMS |
exf_inscal_vwind = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
326 |
EXF_READPARMS |
exf_inscal_swflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
327 |
EXF_READPARMS |
exf_inscal_lwflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
328 |
EXF_READPARMS |
exf_inscal_precip = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
329 |
EXF_READPARMS |
exf_inscal_sst = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
330 |
EXF_READPARMS |
exf_inscal_sss = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
331 |
EXF_READPARMS |
exf_inscal_atemp = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
332 |
EXF_READPARMS |
exf_offset_atemp = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
333 |
EXF_READPARMS |
exf_inscal_aqh = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
334 |
EXF_READPARMS |
exf_inscal_evap = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
335 |
EXF_READPARMS |
exf_inscal_apressure = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
336 |
EXF_READPARMS |
exf_inscal_runoff = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
337 |
EXF_READPARMS |
exf_inscal_swdown = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
338 |
EXF_READPARMS |
exf_inscal_lwdown = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
341 |
EXF_READPARMS |
exf_outscal_hflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
342 |
EXF_READPARMS |
exf_outscal_sflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
343 |
EXF_READPARMS |
exf_outscal_ustress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
344 |
EXF_READPARMS |
exf_outscal_vstress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
345 |
EXF_READPARMS |
exf_outscal_swflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
346 |
EXF_READPARMS |
exf_outscal_sst = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
347 |
EXF_READPARMS |
exf_outscal_sss = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
348 |
EXF_READPARMS |
exf_outscal_apressure= 1. _d 0 |
|
./pkg/offline/offline_fields_load.F |
141 |
OFFLINE_FIELDS_LOAD |
rdt=1. _d 0 / deltaTclock |
|
./model/src/calc_grad_phi_hyd.F |
100 |
CALC_GRAD_PHI_HYD |
ELSEIF (Ro_surf(i,j,bi,bj).NE.0. _d 0) THEN |
|
./model/src/calc_grad_phi_hyd.F |
104 |
CALC_GRAD_PHI_HYD |
& /(1. _d 0 -factPI) |
|
./model/src/calc_grad_phi_hyd.F |
152 |
CALC_GRAD_PHI_HYD |
factorZ = gravity*recip_rhoConst*0.5 _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
156 |
CALC_GRAD_PHI_HYD |
& *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
173 |
CALC_GRAD_PHI_HYD |
factorP = 0.5 _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
189 |
CALC_GRAD_PHI_HYD |
factorP = (atm_Rd/rC(k))*conv_theta2T*0.5 _d 0 |
|
./pkg/seaice/groatb.F |
104 |
GROATB |
TMIX(I,J,bi,bj)=theta(I,J,1,bi,bj)+273.16 _d +00 |
|
./pkg/seaice/groatb.F |
106 |
GROATB |
TMIX(I,J,bi,bj)=MAX(TMIX(I,J,bi,bj),271.2 _d +00) |
|
./pkg/seaice/groatb.F |
151 |
GROATB |
HICEP(I,J)=(HICE(I,J)/7.0 _d 0)*((2.0 _d 0*RK)-1.0 _d 0) |
|
./pkg/seaice/groatb.F |
158 |
GROATB |
FICEP(I,J)=(FICE(I,J,bi,bj)/7.0 _d 0)+FICEP(I,J) |
|
./pkg/seaice/groatb.F |
85 |
GROATB |
FHEFF(I,J,bi,bj)=0.0 _d 0 |
|
./pkg/seaice/groatb.F |
87 |
GROATB |
FICEP(I,J)=0.0 _d 0 |
|
./pkg/seaice/diffus.F |
41 |
DIFFUS |
HEFF1(I,J,bi,bj)=0.0 _d 0 |
|
./pkg/seaice/budget.F |
111 |
BUDGET |
& +LWDOWN(I,J,bi,bj)*0.97 _d 0 |
|
./pkg/seaice/budget.F |
113 |
BUDGET |
B(I,J)=QS1*6.11 _d +00*EXP(17.2694 _d +00 |
|
./pkg/seaice/budget.F |
115 |
BUDGET |
& /(TICE(I,J,bi,bj)-TMELT+237.3 _d +00)) |
|
./pkg/seaice/budget.F |
132 |
BUDGET |
HICE(I,J)=MAX(HICE1(I,J),0.05 _d +00) |
|
./pkg/seaice/budget.F |
133 |
BUDGET |
HICE(I,J)=MIN(HICE(I,J),9.0 _d +00) |
|
./pkg/seaice/budget.F |
157 |
BUDGET |
& +LWDOWN(I,J,bi,bj)*0.97 _d 0 |
|
./pkg/seaice/budget.F |
162 |
BUDGET |
& *(ONE-XIO*EXP(-1.5 _d 0*HICE(I,J))) |
|
./pkg/seaice/budget.F |
163 |
BUDGET |
& +LWDOWN(I,J,bi,bj)*0.97 _d 0 |
|
./pkg/seaice/budget.F |
191 |
BUDGET |
A3(I,J)=4.0 _d +00*D3*(TICE(I,J,bi,bj)**3)+B(I,J)+D1*UG(I,J) |
|
./pkg/seaice/budget.F |
206 |
BUDGET |
TICE(I,J,bi,bj)=MAX(273.16 _d 0+MIN_TICE,TICE(I,J,bi,bj)) |
|
./pkg/seaice/budget.F |
228 |
BUDGET |
& *XIO*EXP(-1.5 _d 0*HICE(I,J)) |
|
./pkg/seaice/budget.F |
60 |
BUDGET |
QS1=0.622 _d +00/1013.0 _d +00 |
|
./pkg/seaice/budget.F |
62 |
BUDGET |
C1=2.7798202 _d -06 |
|
./pkg/seaice/budget.F |
63 |
BUDGET |
C2=-2.6913393 _d -03 |
|
./pkg/seaice/budget.F |
64 |
BUDGET |
C3=0.97920849 _d +00 |
|
./pkg/seaice/budget.F |
65 |
BUDGET |
C4=-158.63779 _d +00 |
|
./pkg/seaice/budget.F |
66 |
BUDGET |
C5=9653.1925 _d +00 |
|
./pkg/seaice/budget.F |
68 |
BUDGET |
TB=271.2 _d +00 |
|
./pkg/seaice/budget.F |
78 |
BUDGET |
TMELT=273.16 _d +00 |
|
./pkg/seaice/budget.F |
79 |
BUDGET |
TMELTP=273.159 _d +00 |
|
./pkg/seaice/budget.F |
91 |
BUDGET |
TICE(I,J,bi,bj)=MIN(273.16 _d 0+MAX_TICE,TICE(I,J,bi,bj)) |
|
./pkg/seaice/budget.F |
92 |
BUDGET |
ATEMP(I,J,bi,bj)=MAX(273.16 _d 0+MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
116 |
DYNSOLVER |
& *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA) |
|
./pkg/seaice/dynsolver.F |
122 |
DYNSOLVER |
& +OCEAN_drag*(2.70 _d 0+0.142 _d 0*AAA |
|
./pkg/seaice/dynsolver.F |
123 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,1,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
145 |
DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(I,J,1,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
146 |
DYNSOLVER |
ZMAX(I,J,bi,bj)=(5.0 _d +12/(2.0 _d +04))*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
147 |
DYNSOLVER |
ZMIN(I,J,bi,bj)=4.0 _d +08 |
|
./pkg/seaice/dynsolver.F |
208 |
DYNSOLVER |
& +4.0 _d 0*ECM2*E12(I,J,bi,bj)**2 |
|
./pkg/seaice/dynsolver.F |
315 |
DYNSOLVER |
& +4. _d 0*ECM2*E12(I,J,bi,bj)**2 |
|
./pkg/seaice/dynsolver.F |
410 |
DYNSOLVER |
UICE(i,j,1,bi,bj)=min(UICE(i,j,1,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
411 |
DYNSOLVER |
VICE(i,j,1,bi,bj)=min(VICE(i,j,1,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
424 |
DYNSOLVER |
UICE(i,j,1,bi,bj)=max(UICE(i,j,1,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
425 |
DYNSOLVER |
VICE(i,j,1,bi,bj)=max(VICE(i,j,1,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
61 |
DYNSOLVER |
RHOICE=0.91 _d +03 |
|
./pkg/seaice/dynsolver.F |
62 |
DYNSOLVER |
RHOAIR=1.3 _d 0 |
|
./pkg/seaice/dynsolver.F |
65 |
DYNSOLVER |
RADIUS=6370. _d 3 |
|
./pkg/seaice/dynsolver.F |
69 |
DYNSOLVER |
SINWIN=0.4226 _d 0 |
|
./pkg/seaice/dynsolver.F |
70 |
DYNSOLVER |
COSWIN=0.9063 _d 0 |
|
./pkg/seaice/dynsolver.F |
71 |
DYNSOLVER |
SINWAT=0.4226 _d 0 |
|
./pkg/seaice/dynsolver.F |
72 |
DYNSOLVER |
COSWAT=0.9063 _d 0 |
|
./pkg/seaice/lsr.F |
71 |
LSR |
RADIUS=6370. _d 3 |
|
./pkg/seaice/lsr.F |
73 |
LSR |
WFAU1=0.95 _d 0 |
|
./pkg/seaice/lsr.F |
74 |
LSR |
WFAV1=0.95 _d 0 |
|
./pkg/seaice/lsr.F |
78 |
LSR |
S1A=0.80 _d 0 |
|
./pkg/seaice/lsr.F |
79 |
LSR |
S2A=0.80 _d 0 |
|
./pkg/seaice/seaice_init.F |
102 |
SEAICE_INIT |
RECIP_CSTICE(I,J,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init.F |
104 |
SEAICE_INIT |
IF ( CSUICE(I,J,bi,bj) .ne. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_init.F |
107 |
SEAICE_INIT |
RECIP_CSUICE(I,J,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init.F |
210 |
SEAICE_INIT |
TICE(I,J,bi,bj)=273.0 _d 0 |
|
./pkg/seaice/seaice_init.F |
213 |
SEAICE_INIT |
TICES(I,J,k,bi,bj)=273.0 _d 0 |
|
./pkg/seaice/seaice_init.F |
218 |
SEAICE_INIT |
AMASS(I,J,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init.F |
336 |
SEAICE_INIT |
ZETA(I,J,bi,bj)=HEFF(I,J,1,bi,bj)*(1.0 _d 11) |
|
./pkg/seaice/seaice_init.F |
337 |
SEAICE_INIT |
ETA(I,J,bi,bj)=ZETA(I,J,bi,bj)/4.0 _d 0 |
|
./pkg/seaice/seaice_init.F |
99 |
SEAICE_INIT |
IF ( CSTICE(I,J,bi,bj) .ne. 0. _d 0 ) THEN |
|
./pkg/seaice/ostres.F |
37 |
OSTRES |
SINWIN=0.4226 _d 0 |
|
./pkg/seaice/ostres.F |
38 |
OSTRES |
COSWIN=0.9063 _d 0 |
|
./pkg/seaice/ostres.F |
39 |
OSTRES |
SINWAT=0.4226 _d 0 |
|
./pkg/seaice/ostres.F |
40 |
OSTRES |
COSWAT=0.9063 _d 0 |
|
./pkg/seaice/seaice_get_forcing.F |
102 |
SEAICE_GET_FORCING |
initValue = 283. _d 0 |
|
./pkg/seaice/seaice_get_forcing.F |
105 |
SEAICE_GET_FORCING |
initValue = 0.005 _d 0 |
|
./pkg/seaice/seaice_get_forcing.F |
108 |
SEAICE_GET_FORCING |
initValue = 300. _d 0 |
|
./pkg/seaice/seaice_get_forcing.F |
111 |
SEAICE_GET_FORCING |
initValue = 200. _d 0 |
|
./pkg/seaice/seaice_get_forcing.F |
121 |
SEAICE_GET_FORCING |
initValue = 35. _d 0 |
|
./pkg/seaice/seaice_get_forcing.F |
124 |
SEAICE_GET_FORCING |
initValue = 10. _d 0 |
|
./model/src/freeze_surface.F |
51 |
FREEZE_SURFACE |
Tfreezing = -1.9 _d 0 |
|
./model/src/freeze_surface.F |
64 |
FREEZE_SURFACE |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/growth.F |
101 |
GROWTH |
& HEFF(I,J,2,bi,bj)*1.0 _d +04) |
|
./pkg/seaice/growth.F |
122 |
GROWTH |
YNEG(I,J,bi,bj)=(theta(I,J,1,bi,bj)-TBC)*dRf(1)/72.0764 _d 0 |
|
./pkg/seaice/growth.F |
131 |
GROWTH |
YNEG(I,J,bi,bj)=YNEG(I,J,bi,bj)*recip_dRf(1)*72.0764 _d 0 |
|
./pkg/seaice/growth.F |
196 |
GROWTH |
& -(GHEFF(I,J)/QS)/SDF/0.920 _d 0*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
201 |
GROWTH |
& -HSNOW(I,J,bi,bj)/SDF/0.920 _d 0*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
231 |
GROWTH |
& /(HEFF(I,J,1,bi,bj)+.00001 _d 0) |
|
./pkg/seaice/growth.F |
279 |
GROWTH |
& SEAICE_deltaTtherm/0.920 _d 0 |
|
./pkg/seaice/growth.F |
284 |
GROWTH |
& *SEAICE_deltaTtherm/0.920 _d 0 |
|
./pkg/seaice/growth.F |
288 |
GROWTH |
& +SEAICE_SALT(I,J,bi,bj)*0.92 _d 0/SEAICE_deltaTtherm |
|
./pkg/seaice/growth.F |
332 |
GROWTH |
& ,HEFF(I,J,1,bi,bj)/.0001 _d 0) |
|
./pkg/seaice/growth.F |
55 |
GROWTH |
salinity_ice=4.0 _d 0 ! ICE SALINITY |
|
./pkg/seaice/growth.F |
57 |
GROWTH |
SDF=1000.0 _d 0/330.0 _d 0 ! RATIO OF WATER DESITY AND SNOW DENSITY |
|
./pkg/seaice/growth.F |
58 |
GROWTH |
Q0=1.0D-06/302.0 _d +00 ! INVERSE HEAT OF FUSION OF ICE |
|
./pkg/seaice/growth.F |
59 |
GROWTH |
QS=1.1 _d +08 ! HEAT OF FUSION OF SNOW |
|
./pkg/seaice/seaice_readparms.F |
100 |
SEAICE_READPARMS |
SEAICE_wetIceAlb = 0.66 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
101 |
SEAICE_READPARMS |
SEAICE_drySnowAlb = 0.84 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
102 |
SEAICE_READPARMS |
SEAICE_wetSnowAlb = 0.7 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
103 |
SEAICE_READPARMS |
SEAICE_waterAlbedo = 0.1 _d +00 |
|
./pkg/seaice/seaice_readparms.F |
104 |
SEAICE_READPARMS |
SEAICE_strength = 2.75 _d +04 |
|
./pkg/seaice/seaice_readparms.F |
105 |
SEAICE_READPARMS |
SEAICE_sensHeat = 2.284 _d +00 |
|
./pkg/seaice/seaice_readparms.F |
106 |
SEAICE_READPARMS |
SEAICE_latentWater = 5.6875 _d +03 |
|
./pkg/seaice/seaice_readparms.F |
107 |
SEAICE_READPARMS |
SEAICE_latentIce = 6.4474 _d +03 |
|
./pkg/seaice/seaice_readparms.F |
108 |
SEAICE_READPARMS |
SEAICE_iceConduct = 2.1656 _d +00 |
|
./pkg/seaice/seaice_readparms.F |
109 |
SEAICE_READPARMS |
SEAICE_snowConduct = 3.1 _d -01 |
|
./pkg/seaice/seaice_readparms.F |
110 |
SEAICE_READPARMS |
SEAICE_emissivity = 5.5 _d -08 |
|
./pkg/seaice/seaice_readparms.F |
111 |
SEAICE_READPARMS |
SEAICE_snowThick = 0.15 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
112 |
SEAICE_READPARMS |
SEAICE_shortwave = 0.30 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
113 |
SEAICE_READPARMS |
SEAICE_freeze = -1.96 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
126 |
SEAICE_READPARMS |
LSR_ERROR = 0.0001 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
127 |
SEAICE_READPARMS |
DIFF1 = .002 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
129 |
SEAICE_READPARMS |
A22 = 0.15 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
130 |
SEAICE_READPARMS |
HO = 0.5 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
147 |
SEAICE_READPARMS |
MAX_HEFF = 10. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
148 |
SEAICE_READPARMS |
MIN_ATEMP = -50. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
149 |
SEAICE_READPARMS |
MIN_LWDOWN = 60. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
150 |
SEAICE_READPARMS |
MAX_TICE = 30. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
151 |
SEAICE_READPARMS |
MIN_TICE = -50. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
152 |
SEAICE_READPARMS |
SEAICE_EPS = 1. _d -10 |
|
./pkg/seaice/seaice_readparms.F |
96 |
SEAICE_READPARMS |
SEAICE_drag = 0.002 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
97 |
SEAICE_READPARMS |
OCEAN_drag = 0.001 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
98 |
SEAICE_READPARMS |
SEAICE_waterDrag = 5.5 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
99 |
SEAICE_READPARMS |
SEAICE_dryIceAlb = 0.75 _d 0 |
|
./pkg/seaice/SEAICE_PARAMS.h |
157 |
NO PROCEDURE |
parameter ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 ) |
|
./pkg/seaice/SEAICE_PARAMS.h |
159 |
NO PROCEDURE |
parameter ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
101 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
129 |
GMREDI_SLOPE_PSI |
taperX(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
138 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
164 |
GMREDI_SLOPE_PSI |
taperY(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
197 |
GMREDI_SLOPE_PSI |
taperX(i,j)= 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
207 |
GMREDI_SLOPE_PSI |
taperX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
229 |
GMREDI_SLOPE_PSI |
taperY(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
239 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
298 |
GMREDI_SLOPE_PSI |
taperX(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
304 |
GMREDI_SLOPE_PSI |
taperY(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
316 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
322 |
GMREDI_SLOPE_PSI |
f2=op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5))) |
|
./pkg/gmredi/gmredi_slope_psi.F |
332 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
338 |
GMREDI_SLOPE_PSI |
f2=op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5))) |
|
./pkg/gmredi/gmredi_init.F |
47 |
GMREDI_INIT |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
48 |
GMREDI_INIT |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
49 |
GMREDI_INIT |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
51 |
GMREDI_INIT |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
52 |
GMREDI_INIT |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
55 |
GMREDI_INIT |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
56 |
GMREDI_INIT |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
59 |
GMREDI_INIT |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
60 |
GMREDI_INIT |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
63 |
GMREDI_INIT |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
75 |
GMREDI_INIT |
GM_TimeAve(k,bi,bj)=0. _d 0 |
|
./model/src/external_forcing.F |
300 |
EXTERNAL_FORCING_T |
swfracb(2)=0. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
77 |
GMREDI_READPARMS |
GM_Small_Number = 1. _d -12 |
|
./pkg/gmredi/gmredi_readparms.F |
78 |
GMREDI_READPARMS |
GM_slopeSqCutoff = 1. _d +48 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
136 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
137 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
138 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
151 |
GMREDI_CALC_TENSOR |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
152 |
GMREDI_CALC_TENSOR |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
153 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
154 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
155 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
156 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
157 |
GMREDI_CALC_TENSOR |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
158 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
159 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
160 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
162 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
163 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
166 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
167 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
170 |
GMREDI_CALC_TENSOR |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
171 |
GMREDI_CALC_TENSOR |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
294 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
295 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
312 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
83 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
90 |
GMREDI_CALC_TENSOR |
Cspd = 2. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
91 |
GMREDI_CALC_TENSOR |
LrhoInf = 15. _d 3 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
92 |
GMREDI_CALC_TENSOR |
LrhoSup = 100. _d 3 |
|
./pkg/gmredi/gmredi_slope_limit.F |
110 |
GMREDI_SLOPE_LIMIT |
gradSmod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
141 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
142 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
160 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
185 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
188 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
204 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
250 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
255 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
258 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
276 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
279 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
294 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
311 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
327 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
330 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
342 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
345 |
GMREDI_SLOPE_LIMIT |
f1=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
347 |
GMREDI_SLOPE_LIMIT |
f2=op5*( 1. _d 0 + sin( fpi*(Rnondim-op5))) |
|
./pkg/gmredi/gmredi_slope_limit.F |
87 |
GMREDI_SLOPE_LIMIT |
gradSmod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
88 |
GMREDI_SLOPE_LIMIT |
tmpfld(i,j) = 0. _d 0 |
|
./model/src/set_defaults.F |
189 |
SET_DEFAULTS |
hFacInf = 0.2 _d 0 |
|
./model/src/set_defaults.F |
190 |
SET_DEFAULTS |
hFacSup = 2.0 _d 0 |
|
./model/src/set_defaults.F |
197 |
SET_DEFAULTS |
celsius2K = 273.16 _d 0 |
|
./model/src/set_defaults.F |
198 |
SET_DEFAULTS |
atm_Po = 1. _d 5 |
|
./model/src/set_defaults.F |
199 |
SET_DEFAULTS |
atm_Cp = 1004. _d 0 |
|
./model/src/set_defaults.F |
201 |
SET_DEFAULTS |
atm_kappa = 2. _d 0 / 7. _d 0 |
|
./model/src/set_defaults.F |
202 |
SET_DEFAULTS |
atm_Rq = 0. _d 0 |
|
./model/src/set_defaults.F |
218 |
SET_DEFAULTS |
deltaT = 0. _d 0 |
|
./model/src/set_defaults.F |
219 |
SET_DEFAULTS |
deltaTmom = 0. _d 0 |
|
./model/src/set_defaults.F |
220 |
SET_DEFAULTS |
deltaTfreesurf = 0. _d 0 |
|
./model/src/set_defaults.F |
222 |
SET_DEFAULTS |
dTtracerLev(k) = 0. _d 0 |
|
./model/src/set_defaults.F |
224 |
SET_DEFAULTS |
baseTime = 0. _d 0 |
|
./model/src/set_defaults.F |
234 |
SET_DEFAULTS |
alph_AB = 0.5 _d 0 |
|
./model/src/set_defaults.F |
235 |
SET_DEFAULTS |
beta_AB = 5. _d 0 / 12. _d 0 |
|
./model/src/set_defaults.F |
257 |
SET_DEFAULTS |
tave_lastIter = 0.5 _d 0 |
|
./model/src/set_defaults.F |
91 |
SET_DEFAULTS |
rotationPeriod = 86400. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
83 |
GMREDI_CALC_PSI_B |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
84 |
GMREDI_CALC_PSI_B |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
85 |
GMREDI_CALC_PSI_B |
dSigmaDrW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
86 |
GMREDI_CALC_PSI_B |
dSigmaDrS(i,j) = 0. _d 0 |
|
./pkg/gchem/gchem_calc_tendency.F |
66 |
GCHEM_CALC_TENDENCY |
gchemTendency(I,J,K,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/pp81/pp81_readparms.F |
56 |
PP81_READPARMS |
PPviscMin = 0. _d 0 |
|
./pkg/pp81/pp81_readparms.F |
57 |
PP81_READPARMS |
PPdiffMin = 0. _d 0 |
|
./pkg/pp81/pp81_readparms.F |
58 |
PP81_READPARMS |
PPviscMax = 1. _d 0 |
|
./pkg/pp81/pp81_readparms.F |
59 |
PP81_READPARMS |
PPnu0 = 1. _d -02 |
|
./pkg/pp81/pp81_readparms.F |
60 |
PP81_READPARMS |
PPalpha = 5. _d 0 |
|
./pkg/aim_compon_interf/atm_export_evmpr.F |
45 |
ATM_EXPORT_EVMPR |
IF ( ABS(EvMPrTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
|
./pkg/aim_compon_interf/atm_export_evmpr.F |
47 |
ATM_EXPORT_EVMPR |
recipAvT = 1. _d 0/EvMPrTime(bi,bj) |
|
./pkg/aim_compon_interf/atm_export_taux.F |
45 |
ATM_EXPORT_TAUX |
IF ( ABS(tauXTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
|
./pkg/aim_compon_interf/atm_export_taux.F |
47 |
ATM_EXPORT_TAUX |
recipAvT = 1. _d 0/tauXTime(bi,bj) |
|
./pkg/aim_compon_interf/atm_export_saltfx.F |
45 |
ATM_EXPORT_SALTFX |
IF ( ABS(saltFxTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
|
./pkg/aim_compon_interf/atm_export_saltfx.F |
47 |
ATM_EXPORT_SALTFX |
recipAvT = 1. _d 0/saltFxTime(bi,bj) |
|
./model/src/calc_common_factors.F |
67 |
CALC_COMMON_FACTORS |
xA(i,j) = 0. _d 0 |
|
./model/src/calc_common_factors.F |
68 |
CALC_COMMON_FACTORS |
yA(i,j) = 0. _d 0 |
|
./model/src/calc_common_factors.F |
69 |
CALC_COMMON_FACTORS |
uTrans(i,j) = 0. _d 0 |
|
./model/src/calc_common_factors.F |
70 |
CALC_COMMON_FACTORS |
vTrans(i,j) = 0. _d 0 |
|
./model/src/calc_common_factors.F |
71 |
CALC_COMMON_FACTORS |
rTrans(i,j) = 0. _d 0 |
|
./pkg/aim_compon_interf/atm_export_atmslp.F |
45 |
ATM_EXPORT_ATMSLP |
IF ( ABS(atmSLPrTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
|
./pkg/aim_compon_interf/atm_export_atmslp.F |
47 |
ATM_EXPORT_ATMSLP |
recipAvT = 1. _d 0/atmSLPrTime(bi,bj) |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
75 |
CPL_EXCH_CONFIGS |
seaSurface_ocn = 0. _d 0 |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
54 |
ATM_STORE_SEAICE |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
57 |
ATM_STORE_SEAICE |
cplTimeFraction = 1. _d 0 |
|
./pkg/aim_compon_interf/atm_apply_import.F |
125 |
ATM_APPLY_IMPORT |
ELSEIF ( SSTocn(i,j,bi,bj).GE. -1. _d 0) THEN |
|
./pkg/aim_compon_interf/atm_store_qshortwave.F |
51 |
ATM_STORE_QSHORTWAVE |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/aim_compon_interf/atm_export_seaice.F |
45 |
ATM_EXPORT_SEAICE |
IF ( ABS(seaIceTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
|
./pkg/aim_compon_interf/atm_export_seaice.F |
47 |
ATM_EXPORT_SEAICE |
recipAvT = 1. _d 0/seaIceTime(bi,bj) |
|
./pkg/aim_compon_interf/atm_export_qshortwave.F |
45 |
ATM_EXPORT_QSHORTWAVE |
IF ( ABS(qShortWaveTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
|
./pkg/aim_compon_interf/atm_export_qshortwave.F |
47 |
ATM_EXPORT_QSHORTWAVE |
recipAvT = 1. _d 0/qShortWaveTime(bi,bj) |
|
./pkg/aim_compon_interf/atm_store_roenfx.F |
59 |
ATM_STORE_ROENFX |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
60 |
ATM_STORE_RUNOFF |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/aim_compon_interf/atm_export_roenfx.F |
45 |
ATM_EXPORT_ROENFX |
IF ( ABS(ROEnFxTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
|
./pkg/aim_compon_interf/atm_export_roenfx.F |
47 |
ATM_EXPORT_ROENFX |
recipAvT = 1. _d 0/ROEnFxTime(bi,bj) |
|
./pkg/aim_compon_interf/atm_store_saltfx.F |
50 |
ATM_STORE_SALTFX |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/aim_compon_interf/atm_export_heatflux.F |
45 |
ATM_EXPORT_HEATFLUX |
IF ( ABS(HeatFluxTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
|
./pkg/aim_compon_interf/atm_export_heatflux.F |
47 |
ATM_EXPORT_HEATFLUX |
recipAvT = 1. _d 0/HeatFluxTime(bi,bj) |
|
./pkg/aim_compon_interf/atm_export_tauy.F |
45 |
ATM_EXPORT_TAUY |
IF ( ABS(tauYTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
|
./pkg/aim_compon_interf/atm_export_tauy.F |
47 |
ATM_EXPORT_TAUY |
recipAvT = 1. _d 0/tauYTime(bi,bj) |
|
./pkg/aim_compon_interf/atm_store_atmslp.F |
50 |
ATM_STORE_ATMSLP |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
58 |
ATM_STORE_TAUY |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
62 |
ATM_STORE_TAUY |
IF ( useThSIce .AND. stressReduction.GT. 0. _d 0 ) THEN |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
70 |
ATM_STORE_TAUY |
& *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
72 |
ATM_STORE_TAUY |
& *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
73 |
ATM_STORE_TAUY |
& )* 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
89 |
ATM_STORE_TAUY |
& * 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
58 |
ATM_STORE_TAUX |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
62 |
ATM_STORE_TAUX |
IF ( useThSIce .AND. stressReduction.GT. 0. _d 0 ) THEN |
|
./pkg/aim_compon_interf/atm_store_taux.F |
70 |
ATM_STORE_TAUX |
& *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
72 |
ATM_STORE_TAUX |
& *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
73 |
ATM_STORE_TAUX |
& )* 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
89 |
ATM_STORE_TAUX |
& * 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_heatflux.F |
61 |
ATM_STORE_HEATFLUX |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/aim_compon_interf/atm_export_runoff.F |
45 |
ATM_EXPORT_RUNOFF |
IF ( ABS(RunOffTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
|
./pkg/aim_compon_interf/atm_export_runoff.F |
47 |
ATM_EXPORT_RUNOFF |
recipAvT = 1. _d 0/RunOffTime(bi,bj) |
|
./pkg/aim_compon_interf/atm_store_evmpr.F |
53 |
ATM_STORE_EVMPR |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/monitor/mon_ke.F |
45 |
MON_KE |
volTile = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
46 |
MON_KE |
meanTile = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
47 |
MON_KE |
volMeanTile = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
48 |
MON_KE |
potEnMnTile = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
90 |
MON_KE |
tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
103 |
MON_STATS_RL |
rNumPnts=1. _d 0/tmpVal |
|
./model/src/ini_vel.F |
50 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_vel.F |
51 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/monitor/mon_stats_rs.F |
82 |
MON_STATS_RS |
rNumPnts=1. _d 0/tmpVal |
|
./pkg/monitor/mon_vort3.F |
102 |
MON_VORT3 |
hFacZ(i,j) = 1. + 0.125 _d 0* |
|
./pkg/monitor/mon_vort3.F |
120 |
MON_VORT3 |
& 0.25 _d 0*( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
186 |
MON_VORT3 |
& )/3. _d 0 |
|
./pkg/monitor/mon_vort3.F |
201 |
MON_VORT3 |
& )/3. _d 0 |
|
./pkg/monitor/mon_vort3.F |
216 |
MON_VORT3 |
& )/3. _d 0 |
|
./pkg/monitor/mon_vort3.F |
231 |
MON_VORT3 |
& )/3. _d 0 |
|
./pkg/monitor/mon_vort3.F |
280 |
MON_VORT3 |
IF (hFacZ(i,j).GT.0. _d 0) THEN |
|
./pkg/monitor/mon_vort3.F |
51 |
MON_VORT3 |
theMin = 1. _d 20 |
|
./pkg/monitor/mon_vort3.F |
52 |
MON_VORT3 |
theMax =-1. _d 20 |
|
./pkg/monitor/mon_vort3.F |
53 |
MON_VORT3 |
theArea= 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
54 |
MON_VORT3 |
theMean= 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
55 |
MON_VORT3 |
theVar = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
56 |
MON_VORT3 |
theVol = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
57 |
MON_VORT3 |
volMean= 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
58 |
MON_VORT3 |
volVar = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
59 |
MON_VORT3 |
theSD = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
60 |
MON_VORT3 |
AZcorner = 1. _d 0 |
|
./pkg/monitor/mon_vort3.F |
64 |
MON_VORT3 |
areaTile= 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
65 |
MON_VORT3 |
volTile = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
66 |
MON_VORT3 |
sumTile = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
67 |
MON_VORT3 |
sqsTile = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
68 |
MON_VORT3 |
vSumTile= 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
69 |
MON_VORT3 |
vSqsTile= 0. _d 0 |
|
./pkg/monitor/mon_surfcor.F |
123 |
MON_SURFCOR |
& *(theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))*0.5 _d 0 |