| 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 |