| File |
Line number |
Procedure |
Code |
|
./model/src/update_surf_dr.F |
43 |
UPDATE_SURF_DR |
INTEGER ks |
|
./model/src/update_surf_dr.F |
62 |
UPDATE_SURF_DR |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
63 |
UPDATE_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/update_surf_dr.F |
64 |
UPDATE_SURF_DR |
hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,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 |
75 |
UPDATE_SURF_DR |
ks = ksurfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
76 |
UPDATE_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/update_surf_dr.F |
77 |
UPDATE_SURF_DR |
hFacW(i,j,ks,bi,bj) = hFac_surfW(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 |
84 |
UPDATE_SURF_DR |
ks = ksurfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
85 |
UPDATE_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/update_surf_dr.F |
86 |
UPDATE_SURF_DR |
hFacS(i,j,ks,bi,bj) = hFac_surfS(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) |
|
./model/src/diags_oceanic_surf_flux.F |
121 |
DIAGS_OCEANIC_SURF_FLUX |
& *salt(i,j,ks,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
48 |
DIAGS_OCEANIC_SURF_FLUX |
INTEGER ks |
|
./model/src/diags_oceanic_surf_flux.F |
54 |
DIAGS_OCEANIC_SURF_FLUX |
ks=Nr |
|
./model/src/diags_oceanic_surf_flux.F |
56 |
DIAGS_OCEANIC_SURF_FLUX |
ks=1 |
|
./model/src/diags_oceanic_surf_flux.F |
88 |
DIAGS_OCEANIC_SURF_FLUX |
& *theta(i,j,ks,bi,bj)*HeatCapacity_Cp |
|
./pkg/monitor/mon_surfcor.F |
100 |
MON_SURFCOR |
IF (ks.LE.Nr) THEN |
|
./pkg/monitor/mon_surfcor.F |
101 |
MON_SURFCOR |
tmpVal = salt(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
102 |
MON_SURFCOR |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks) |
|
./pkg/monitor/mon_surfcor.F |
103 |
MON_SURFCOR |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
105 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*tmpVal |
|
./pkg/monitor/mon_surfcor.F |
53 |
MON_SURFCOR |
INTEGER i,j,k,ks,bi,bj |
|
./pkg/monitor/mon_surfcor.F |
78 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
79 |
MON_SURFCOR |
IF (ks.LE.Nr) THEN |
|
./pkg/monitor/mon_surfcor.F |
82 |
MON_SURFCOR |
& rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
85 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)* salt(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
89 |
MON_SURFCOR |
& + tmpVal*atm_cp*((rC(ks)/atm_po)**atm_kappa) |
|
./pkg/monitor/mon_surfcor.F |
99 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |