| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_v_drag.F |
54 |
SHELFICE_V_DRAG |
_RL rdrckp1,maskUp |
|
./pkg/shelfice/shelfice_v_drag.F |
67 |
SHELFICE_V_DRAG |
rdrckp1=recip_drC(kUpC) |
|
./pkg/shelfice/shelfice_v_drag.F |
70 |
SHELFICE_V_DRAG |
IF (k.EQ.kUp) rdrckp1=recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
78 |
SHELFICE_V_DRAG |
& 2.*KappaRV(i,j,kUpC)*rdrckp1*viscFac |
|
./pkg/shelfice/shelfice_u_drag.F |
55 |
SHELFICE_U_DRAG |
_RL rdrckp1,maskUp |
|
./pkg/shelfice/shelfice_u_drag.F |
68 |
SHELFICE_U_DRAG |
rdrckp1=recip_drC(kUpC) |
|
./pkg/shelfice/shelfice_u_drag.F |
69 |
SHELFICE_U_DRAG |
IF (k.EQ.kUp) rdrckp1=recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
79 |
SHELFICE_U_DRAG |
& 2.*KappaRU(i,j,kUpC)*rdrckp1*viscFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
58 |
MOM_V_BOTTOMDRAG |
_RL rdrckp1,maskDown |
|
./pkg/mom_common/mom_v_bottomdrag.F |
71 |
MOM_V_BOTTOMDRAG |
rdrckp1=recip_drC(kDownC) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
74 |
MOM_V_BOTTOMDRAG |
IF (k.EQ.kBottom) rdrckp1=recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
82 |
MOM_V_BOTTOMDRAG |
& 2.*KappaRV(i,j,kDownC)*rdrckp1*viscFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
51 |
MOM_U_BOTTOMDRAG |
_RL rdrckp1,maskDown |
|
./pkg/mom_common/mom_u_bottomdrag.F |
64 |
MOM_U_BOTTOMDRAG |
rdrckp1=recip_drC(kDownC) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
65 |
MOM_U_BOTTOMDRAG |
IF (k.EQ.kBottom) rdrckp1=recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
75 |
MOM_U_BOTTOMDRAG |
& 2.*KappaRU(i,j,kDownC)*rdrckp1*viscFac |