| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_vars.F |
191 |
FIZHI_INIT_VARS |
call DYN2PHYS(salt,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/fizhi/fizhi_wrapper.F |
146 |
FIZHI_WRAPPER |
sdynbef(i,j,L,bi,bj) = salt(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
197 |
STEP_FIZHI_CORR |
sdyntemp(i,j,L,bi,bj)=salt(i,j,L,bi,bj)-sdyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
475 |
STEP_FIZHI_CORR |
. (salt(i,j,L,bi,bj)-sdynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/flt/flt_traj.F |
153 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,ss,salt, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
146 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,ss,salt, k,0,bi,bj,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
69 |
GCHEM_FORCING_SEP |
call TRACER_MEANAREA(salt, 1,gsm_s,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
81 |
GCHEM_FORCING_SEP |
call TRACER_MEANAREA(salt, 1,gsm_s,myThid) |
|
./pkg/generic_advdiff/salt_fill.F |
101 |
SALT_FILL |
if(salt(i,j,1,bi,bj).lt.0.0 _d 0) |
|
./pkg/generic_advdiff/salt_fill.F |
102 |
SALT_FILL |
. salt(i,j,1,bi,bj) = 0.0 _d 0 |
|
./pkg/generic_advdiff/salt_fill.F |
113 |
SALT_FILL |
CALL DIAGNOSTICS_FILL(salt,'SALTFILL',0,Nr,1,bi,bj,myThid) |
|
./pkg/generic_advdiff/salt_fill.F |
12 |
SALT_FILL |
U salt, |
|
./pkg/generic_advdiff/salt_fill.F |
48 |
SALT_FILL |
_RL salt (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/salt_fill.F |
76 |
SALT_FILL |
CALL DIAGNOSTICS_SCALE_FILL(salt,tmpFac,1,'SALTFILL', |
|
./pkg/generic_advdiff/salt_fill.F |
90 |
SALT_FILL |
if( salt(i,j,L,bi,bj).lt.0.0 _d 0) then |
|
./pkg/generic_advdiff/salt_fill.F |
91 |
SALT_FILL |
salt(i,j,LM1,bi,bj) = salt(i,j,LM1,bi,bj) + |
|
./pkg/generic_advdiff/salt_fill.F |
92 |
SALT_FILL |
. salt(i,j,L,bi,bj)*dpratio |
|
./pkg/generic_advdiff/salt_fill.F |
93 |
SALT_FILL |
salt(i,j,L,bi,bj) = 0.0 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
162 |
GGL90_CALC |
I theta(1-OLx,1-OLy,km1,bi,bj), salt(1-OLx,1-OLy,km1,bi,bj), |
|
./pkg/ggl90/ggl90_calc.F |
168 |
GGL90_CALC |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/icefront/icefront_thermodynamics.F |
108 |
ICEFRONT_THERMODYNAMICS |
sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/kpp/kpp_routines.F |
1554 |
STATEKPP |
I theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1596 |
STATEKPP |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1608 |
STATEKPP |
I theta(1-OLx,1-OLy,k-1,bi,bj),salt(1-OLx,1-OLy,k-1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1620 |
STATEKPP |
I theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1771 |
KPP_DOUBLEDIFF |
betaDS(I,J) = ( salt(I,J,Km1,bi,bj)-salt(I,J,K,bi,bj) ) |
|
./pkg/layers/layers_calc.F |
123 |
LAYERS_CALC |
& 0.5 _d 0 * (salt(i-1,j,k,bi,bj)+salt(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_calc.F |
125 |
LAYERS_CALC |
& 0.5 _d 0 * (salt(i-1,j,k+1,bi,bj)+salt(i,j,k+1,bi,bj)) |
|
./pkg/layers/layers_calc.F |
195 |
LAYERS_CALC |
& 0.5 _d 0 * (salt(i,j-1,k,bi,bj)+salt(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_calc.F |
197 |
LAYERS_CALC |
& 0.5 _d 0 * (salt(i,j-1,k+1,bi,bj)+salt(i,j,k+1,bi,bj)) |
|
./pkg/longstep/longstep_average.F |
94 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_saltCount, LS_salt, salt, Nr, myThid) |
|
./model/src/calc_gs.F |
167 |
CALC_GS |
I gsNm(1-Olx,1-Oly,1,1,1,m2), salt, dTtracerLev, |
|
./model/src/calc_gs.F |
178 |
CALC_GS |
I diffKhS, diffK4S, KappaRS, gsNm1, salt, dTtracerLev, |
|
./model/src/calc_oce_mxlayer.F |
111 |
CALC_OCE_MXLAYER |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_oce_mxlayer.F |
157 |
CALC_OCE_MXLAYER |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/monitor/mon_surfcor.F |
106 |
MON_SURFCOR |
tmpVal = salt(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
107 |
MON_SURFCOR |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks) |
|
./pkg/monitor/mon_surfcor.F |
152 |
MON_SURFCOR |
& +tmpVol*rStarDhCDt(i,j,bi,bj)*salt(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
90 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)* salt(i,j,ks,bi,bj) |
|
./pkg/monitor/monitor.F |
118 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, salt, '_salt', |
|
./pkg/monitor/monitor.F |
127 |
MONITOR |
CALL MON_WRITESTATS_RL( 1, salt(1-OLx,1-OLy,k,1,1), '_sss', |
|
./pkg/my82/my82_ri_number.F |
91 |
MY82_RI_NUMBER |
I theta(1-OLx,1-OLy,Km1,bi,bj), salt(1-OLx,1-OLy,Km1,bi,bj), |
|
./pkg/my82/my82_ri_number.F |
96 |
MY82_RI_NUMBER |
I theta(1-OLx,1-OLy,K,bi,bj), salt(1-OLx,1-OLy,K,bi,bj), |
|
./pkg/obcs/obcs_calc.F |
141 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
193 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
228 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
41 |
OBCS_CALC |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
7 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
89 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc_stevens.F |
238 |
OBCS_CALC_STEVENS |
dTracSpace = (salt(I-1,J,K,bi,bj)-salt(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
256 |
OBCS_CALC_STEVENS |
OBEs(J,K,bi,bj) = salt(I,J,K,bi,bj) + dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
260 |
OBCS_CALC_STEVENS |
& *(salt(I,J,K,bi,bj)-salt(I-1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
262 |
OBCS_CALC_STEVENS |
& - gFac * gammas * (salt(I,J,K,bi,bj)-OBEs(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
385 |
OBCS_CALC_STEVENS |
dTracSpace = (salt(I+2,J,K,bi,bj)-salt(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
403 |
OBCS_CALC_STEVENS |
OBWs(J,K,bi,bj) = salt(I,J,K,bi,bj) + dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
407 |
OBCS_CALC_STEVENS |
& *(salt(I+1,J,K,bi,bj)-salt(I,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
409 |
OBCS_CALC_STEVENS |
& - gFac * gammas * (salt(I,J,K,bi,bj)-OBWs(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_init_variables.F |
343 |
OBCS_INIT_VARIABLES |
& uVel, vVel, wVel, theta, salt, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
354 |
OBCS_INIT_VARIABLES |
CALL OBCS_APPLY_TS( bi, bj, 0, theta, salt, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
367 |
OBCS_INIT_VARIABLES |
_EXCH_XYZ_RL( salt , myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
384 |
OBCS_INIT_VARIABLES |
CALL OBCS_COPY_TRACER( salt (1-Olx,1-Oly,1,bi,bj), |
|
./pkg/obcs/obcs_sponge.F |
689 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
705 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
730 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
746 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
771 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
787 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
815 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
831 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/orlanski_east.F |
191 |
ORLANSKI_EAST |
CL=-(salt(I_obc-1,J,K,bi,bj)-SE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
208 |
ORLANSKI_EAST |
OBEs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
210 |
ORLANSKI_EAST |
& (ab1*(salt(I_obc,J,K,bi,bj)-salt(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
271 |
ORLANSKI_EAST |
SE_STORE_2(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
272 |
ORLANSKI_EAST |
& salt(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
273 |
ORLANSKI_EAST |
SE_STORE_1(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
274 |
ORLANSKI_EAST |
SE_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
84 |
ORLANSKI_EAST |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_east.F |
8 |
ORLANSKI_EAST |
I uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/orlanski_north.F |
164 |
ORLANSKI_NORTH |
CL=-(salt(I,J_obc-1,K,bi,bj)-SN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
175 |
ORLANSKI_NORTH |
OBNs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
177 |
ORLANSKI_NORTH |
& (ab1*(salt(I,J_obc,K,bi,bj)-salt(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
232 |
ORLANSKI_NORTH |
SN_STORE_2(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
233 |
ORLANSKI_NORTH |
& salt(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
234 |
ORLANSKI_NORTH |
SN_STORE_1(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
235 |
ORLANSKI_NORTH |
SN_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
75 |
ORLANSKI_NORTH |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_north.F |
7 |
ORLANSKI_NORTH |
I uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/orlanski_south.F |
164 |
ORLANSKI_SOUTH |
CL=(salt(I,J_obc+1,K,bi,bj)-SS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
175 |
ORLANSKI_SOUTH |
OBSs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
177 |
ORLANSKI_SOUTH |
& (ab1*(salt(I,J_obc+1,K,bi,bj)-salt(I,J_obc,K,bi,bj)) + |
|
./pkg/obcs/orlanski_south.F |
232 |
ORLANSKI_SOUTH |
SS_STORE_2(I,K,bi,bj)=salt(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
233 |
ORLANSKI_SOUTH |
& salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
234 |
ORLANSKI_SOUTH |
SS_STORE_1(I,K,bi,bj)=salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
235 |
ORLANSKI_SOUTH |
SS_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
75 |
ORLANSKI_SOUTH |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_south.F |
7 |
ORLANSKI_SOUTH |
I uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/orlanski_west.F |
193 |
ORLANSKI_WEST |
CL=(salt(I_obc+1,J,K,bi,bj)-SW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
210 |
ORLANSKI_WEST |
OBWs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
212 |
ORLANSKI_WEST |
& (ab1*(salt(I_obc+1,J,K,bi,bj)-salt(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
273 |
ORLANSKI_WEST |
SW_STORE_2(J,K,bi,bj)=salt(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
274 |
ORLANSKI_WEST |
& salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
275 |
ORLANSKI_WEST |
SW_STORE_1(J,K,bi,bj)=salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
276 |
ORLANSKI_WEST |
SW_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
86 |
ORLANSKI_WEST |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_west.F |
8 |
ORLANSKI_WEST |
I uVel, vVel, wVel, theta, salt, |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
54 |
OCN_STORE_MY_DATA |
SSSocn2cpl(i,j,bi,bj) = salt (i,j,1,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
348 |
OFFLINE_FIELDS_LOAD |
salt(i,j,k,bi,bj) = bWght*save0(i,j,k,bi,bj) |
|
./pkg/opps/opps_interface.F |
109 |
OPPS_INTERFACE |
tracerLoc(K,2) = salt(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
115 |
OPPS_INTERFACE |
tracerLoc(K,2) = salt(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
173 |
OPPS_INTERFACE |
salt(I,J,K,bi,bj) = tracerLoc(K,2) |
|
./pkg/pp81/pp81_ri_number.F |
100 |
PP81_RI_NUMBER |
I theta(1-OLx,1-OLy,K,bi,bj), salt(1-OLx,1-OLy,K,bi,bj), |
|
./pkg/pp81/pp81_ri_number.F |
95 |
PP81_RI_NUMBER |
I theta(1-OLx,1-OLy,Km1,bi,bj), salt(1-OLx,1-OLy,Km1,bi,bj), |
|
./model/src/convective_adjustment.F |
146 |
CONVECTIVE_ADJUSTMENT |
I salt (1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment.F |
160 |
CONVECTIVE_ADJUSTMENT |
I salt (1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment.F |
191 |
CONVECTIVE_ADJUSTMENT |
U salt, |
|
./pkg/profiles/profiles_interp.F |
159 |
PROFILES_INTERP |
tab_coeffs1(1,1)=salt(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
160 |
PROFILES_INTERP |
tab_coeffs1(1,2)=salt(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
161 |
PROFILES_INTERP |
tab_coeffs1(2,1)=salt(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
162 |
PROFILES_INTERP |
tab_coeffs1(2,2)=salt(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp_gg.F |
77 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=salt(i_cur(q),j_cur(q),k,bi,bj) |
|
./model/src/convective_adjustment_ini.F |
146 |
CONVECTIVE_ADJUSTMENT_INI |
I salt (1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
160 |
CONVECTIVE_ADJUSTMENT_INI |
I salt (1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
189 |
CONVECTIVE_ADJUSTMENT_INI |
U salt, |
|
./pkg/ptracers/ptracers_forcing_surf.F |
86 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
71 |
RBCS_ADD_TENDENCY |
& *( salt(i,j,k,bi,bj)- RBCsalt(i,j,k,bi,bj) ) |
|
./model/src/diags_oceanic_surf_flux.F |
157 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*salt(i,j,ks,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
79 |
SALT_PLUME_CALC_DEPTH |
I theta(1-OLx,1-OLy,K,bi,bj), salt(1-OLx,1-OLy,K,bi,bj), |
|
./model/src/do_fields_blocking_exchanges.F |
64 |
DO_FIELDS_BLOCKING_EXCHANGES |
_EXCH_XYZ_RL( salt , myThid ) |
|
./model/src/do_fields_blocking_exchanges.F |
72 |
DO_FIELDS_BLOCKING_EXCHANGES |
CALL OBCS_COPY_TRACER( salt (1-Olx,1-Oly,1,bi,bj), |
|
./pkg/sbo/sbo_calc.F |
205 |
SBO_CALC |
I salt(1-OLx,1-OLy,kn0,bi,bj), |
|
./model/src/do_oceanic_phys.F |
158 |
DO_OCEANIC_PHYS |
I uVel, vVel, wVel, theta, salt, myThid ) |
|
./model/src/do_oceanic_phys.F |
473 |
DO_OCEANIC_PHYS |
I theta, salt, |
|
./model/src/do_oceanic_phys.F |
481 |
DO_OCEANIC_PHYS |
I salt (1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
514 |
DO_OCEANIC_PHYS |
I salt (1-OLx,1-OLy,k-1,bi,bj), |
|
./pkg/seaice/seaice_growth.F |
1124 |
SEAICE_GROWTH |
tmpscal3 = tmpscal1*salt(I,j,kSurface,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1165 |
SEAICE_GROWTH |
& *SEAICE_salinity*salt(I,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1171 |
SEAICE_GROWTH |
& *(1-SEAICE_salinity)*salt(I,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
708 |
SEAICE_GROWTH |
TBC = -0.0575 _d 0*salt(I,J,kSurface,bi,bj) + 0.0901 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
610 |
SEAICE_GROWTH_IF |
TBC = -0.0575 _d 0*salt(I,J,kSurface,bi,bj) + |
|
./pkg/seaice/seaice_init_varia.F |
395 |
SEAICE_INIT_VARIA |
HSALT(i,j,bi,bj)=HEFF(i,j,bi,bj)*salt(i,j,kSurface,bi,bj)* |
|
./pkg/seaice/seaice_solve4temp.F |
247 |
SEAICE_SOLVE4TEMP |
TB(I,J) = -0.0575 _d 0*salt(I,J,kSrf,bi,bj) + 0.0901 _d 0 |
|
./model/src/dynamics.F |
492 |
DYNAMICS |
I theta, salt, |
|
./model/src/dynamics.F |
698 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,salt,'Salt (DYNAMICS)',myThid) |
|
./model/src/external_forcing.F |
482 |
EXTERNAL_FORCING_S |
& *( salt_addMass - salt(i,j,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
123 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
143 |
SHELFICE_THERMODYNAMICS |
& + MAX(salt(I,J,Kp1,bi,bj), 0. _d 0) * drKp1 ) |
|
./model/src/external_forcing_surf.F |
108 |
EXTERNAL_FORCING_SURF |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./model/src/external_forcing_surf.F |
291 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./model/src/external_forcing_surf.F |
326 |
EXTERNAL_FORCING_SURF |
& *( salt(i,j,ks,bi,bj) - salt_EvPrRn ) |
|
./model/src/external_forcing_surf.F |
92 |
EXTERNAL_FORCING_SURF |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./model/src/find_alpha.F |
121 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
127 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
139 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
225 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
231 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
239 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
351 |
FIND_BETA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./model/src/find_alpha.F |
381 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
387 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
399 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
471 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
477 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
485 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
89 |
FIND_ALPHA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./pkg/thsice/thsice_main.F |
157 |
THSICE_MAIN |
sOceMxL(i,j,bi,bj) = salt (i,j,1,bi,bj) |
|
./pkg/timeave/timeave_statvars.F |
116 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(salttave, salt, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
136 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(WStave, salt, wVel, Nr, 3, |
|
./pkg/timeave/timeave_statvars.F |
158 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(UStave, salt, uVel, hFacW, Nr, 1, |
|
./pkg/timeave/timeave_statvars.F |
160 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(VStave, salt, vVel, hFacS, Nr, 2, |
|
./pkg/timeave/timeave_surf_flux.F |
104 |
TIMEAVE_SURF_FLUX |
& *salt(i,j,k,bi,bj) |
|
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F |
93 |
OPENAD_DUMPADJOINT |
foo5=saltd |
|
./verification/OpenAD/code_oad_all/write_state.F |
107 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'S', salt,iRec,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
130 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,saltv,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
175 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'S', salt, myThid) |
|
./verification/advect_xy/code/ini_salt.F |
128 |
INI_SALT |
CALL PLOT_FIELD_XYZRL( salt, 'Initial Salinity', |
|
./verification/advect_xy/code/ini_salt.F |
58 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./verification/advect_xy/code/ini_salt.F |
69 |
INI_SALT |
IF ( rD.LE.60. _d 3 ) salt(i,j,k,bi,bj) = sRef(k)+1. _d 0 |
|
./verification/advect_xy/code/ini_salt.F |
78 |
INI_SALT |
CALL READ_FLD_XYZ_RL( hydrogSaltFile, ' ', salt, 0, myThid ) |
|
./verification/advect_xy/code/ini_salt.F |
79 |
INI_SALT |
_EXCH_XYZ_RL( salt, myThid ) |
|
./verification/advect_xy/code/ini_salt.F |
90 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_salt.F |
98 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_dynvars.F |
55 |
INI_DYNVARS |
salt(I,J,K,bi,bj)=0. _d 0 |
|
./verification/dome/code/obcs_calc.F |
126 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
145 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
206 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
33 |
OBCS_CALC |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/dome/code/obcs_calc.F |
7 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
94 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
110 |
INI_SALT |
salt(I,J,K,bi,bj) = rhum(i,j,k,bi,bj) * qstar(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
117 |
INI_SALT |
_EXCH_XYZ_RL(salt , myThid ) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
128 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).EQ.0) salt(I,J,K,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
129 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).NE.0.AND.salt(I,J,K,bi,bj).EQ.0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
146 |
INI_SALT |
CALL PLOT_FIELD_XYZRL( salt, 'Initial Salinity' , Nr, 1, myThid ) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
89 |
INI_SALT |
salt(I,J,K,bi,bj) = sRef(K) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
172 |
FIZHI_INIT_VARS |
call DYN2PHYS(salt,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./verification/flt_example/extra/cvprofiles.F |
189 |
NO PROCEDURE |
allocate (salt(npart,Nr,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
204 |
NO PROCEDURE |
if (.not. preflag) salt(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
292 |
NO PROCEDURE |
if (.not. preflag) salt(ip,k,np) = SNGL(tmp(6+3*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
297 |
NO PROCEDURE |
if (.not. preflag) salt(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
634 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, salt, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
67 |
NO PROCEDURE |
real, dimension(:,:,:), allocatable :: uvel,vvel,temp,salt |
|
./model/src/ini_pressure.F |
114 |
INI_PRESSURE |
I theta, salt, |
|
./model/src/ini_salt.F |
101 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_salt.F |
131 |
INI_SALT |
CALL PLOT_FIELD_XYZRL( salt, 'Initial Salinity', |
|
./model/src/ini_salt.F |
60 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./model/src/ini_salt.F |
74 |
INI_SALT |
CALL MNC_CW_RL_R('D',hydrogSaltFile,0,0,'S',salt, myThid) |
|
./model/src/ini_salt.F |
78 |
INI_SALT |
CALL READ_FLD_XYZ_RL( hydrogSaltFile, ' ', salt, 0, myThid ) |
|
./model/src/ini_salt.F |
82 |
INI_SALT |
_EXCH_XYZ_RL( salt, myThid ) |
|
./model/src/ini_salt.F |
93 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./verification/internal_wave/code/obcs_calc.F |
101 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
154 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
174 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
32 |
OBCS_CALC |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
7 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
81 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
87 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
108 |
EXTERNAL_FORCING_SURF |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
277 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
312 |
EXTERNAL_FORCING_SURF |
& *( salt(i,j,ks,bi,bj) - salt_EvPrRn ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
92 |
EXTERNAL_FORCING_SURF |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
86 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./model/src/read_pickup.F |
172 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 10, myIter,myThid ) |
|
./model/src/read_pickup.F |
207 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
220 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 7, myIter,myThid ) |
|
./model/src/read_pickup.F |
263 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'Salt ', salt, |
|
./model/src/read_pickup.F |
440 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'S',salt, myThid) |
|
./model/src/read_pickup.F |
480 |
READ_PICKUP |
CALL EXCH_3D_RL( salt, Nr, myThid ) |
|
./model/src/thermodynamics.F |
222 |
THERMODYNAMICS |
CALL CALC_WSURF_TR(theta,salt,wVel, |
|
./model/src/thermodynamics.F |
331 |
THERMODYNAMICS |
U salt, gsNm, |
|
./model/src/thermodynamics.F |
407 |
THERMODYNAMICS |
I uVel, vVel, wVel, salt, |
|
./model/src/thermodynamics.F |
421 |
THERMODYNAMICS |
I uVel, vVel, wVel, salt, |
|
./model/src/thermodynamics.F |
692 |
THERMODYNAMICS |
I salt, |
|
./model/src/thermodynamics.F |
765 |
THERMODYNAMICS |
I salt, |
|
./model/src/thermodynamics.F |
773 |
THERMODYNAMICS |
I salt, |
|
./model/src/thermodynamics.F |
873 |
THERMODYNAMICS |
I kappaRk, wVel, salt, |
|
./model/src/thermodynamics.F |
922 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,salt,'Salt (THERMODYNAMICS)',myThid) |
|
./model/src/tracers_correction_step.F |
106 |
TRACERS_CORRECTION_STEP |
CALL ZONAL_FILT_APPLY_TS( theta, salt, myThid ) |
|
./model/src/tracers_correction_step.F |
120 |
TRACERS_CORRECTION_STEP |
CALL SALT_FILL( uVel,vVel,salt,1,myTime,myIter,myThid ) |
|
./model/src/tracers_correction_step.F |
70 |
TRACERS_CORRECTION_STEP |
U salt,gS, |
|
./model/src/tracers_correction_step.F |
99 |
TRACERS_CORRECTION_STEP |
CALL SHAP_FILT_APPLY_TS( theta,salt, myTime, myIter, myThid ) |
|
./model/src/tracers_iigw_correction.F |
98 |
TRACERS_IIGW_CORRECTION |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./model/src/write_pickup.F |
122 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, salt, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
342 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'S', salt, myThid) |
|
./model/src/write_state.F |
107 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'S', salt,iRec,myIter,myThid) |
|
./model/src/write_state.F |
130 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid) |
|
./model/src/write_state.F |
175 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'S', salt, myThid) |
|
./pkg/aim_v23/aim_do_physics.F |
94 |
AIM_DO_PHYSICS |
& salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
95 |
AIM_DO_PHYSICS |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k) |
|
./pkg/aim_v23/aim_do_physics.F |
97 |
AIM_DO_PHYSICS |
salt(i,j,Nr,bi,bj) = 0. |
|
./pkg/aim_v23/aim_dyn2aim.F |
173 |
AIM_DYN2AIM |
QA(I2,Katm) = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/atm2d/get_ocnvars.F |
73 |
GET_OCNVARS |
sssFromOcn(i,j) = salt (i,j,1,1,1) |
|
./pkg/autodiff/autodiff_restore.F |
147 |
AUTODIFF_RESTORE |
salt(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_store.F |
157 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,8) = salt(I,J,K,bi,bj) |
|
./pkg/cost/cost_state_final.F |
37 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,1*Nr+k) = salt(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
154 |
CTRL_MAP_INI |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
158 |
CTRL_MAP_INI |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
228 |
CTRL_MAP_INI |
salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
568 |
CTRL_MAP_INI |
_EXCH_XYZ_RL( salt, mythid ) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
162 |
CTRL_MAP_INI_ECCO |
& xx_salt_dummy, boundsVec, salt, maskc, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
164 |
CTRL_MAP_INI_ECCO |
_EXCH_XYZ_RL( salt, mythid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
244 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i-1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
260 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j-1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
277 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
401 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = -salt(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
420 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(salt, 'SALT ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
434 |
DIAGNOSTICS_FILL_STATE |
. salt(i,j,k,bi,bj) * 100. / dummy3 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
446 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL(salt,tmpFac,2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
483 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj)-35. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
588 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i-1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
605 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j-1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
623 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
694 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj) |
|
./pkg/dic/calcite_saturation.F |
109 |
CALCITE_SATURATION |
I theta(i,j,k,bi,bj),salt(i,j,k,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
76 |
CALCITE_SATURATION |
I theta,salt, |
|
./pkg/dic/calcite_saturation.F |
86 |
CALCITE_SATURATION |
calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0 |
|
./pkg/dic/dic_surfforcing.F |
102 |
DIC_SURFFORCING |
I theta,salt, |
|
./pkg/dic/dic_surfforcing.F |
136 |
DIC_SURFFORCING |
I theta(i,j,kLev,bi,bj),salt(i,j,kLev,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
92 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing_init.F |
185 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = 2.366595 _d 0 *salt(i,j,kLev,bi,bj)/35. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
197 |
DIC_SURFFORCING_INIT |
I theta,salt, |
|
./pkg/dic/dic_surfforcing_init.F |
217 |
DIC_SURFFORCING_INIT |
I theta(i,j,kLev,bi,bj),salt(i,j,kLev,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
235 |
DIC_SURFFORCING_INIT |
& theta(iprt,jprt,1,bi,bj), salt(iprt,jprt,1,bi,bj), |
|
./pkg/dic/o2_surfforcing.F |
74 |
O2_SURFFORCING |
stemp = salt(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_forcing_surf.F |
85 |
EBM_FORCING_SURF |
& *(salt(i,j,kSurface,bi,bj)-SSS(i,j,bi,bj)) |
|
./pkg/ecco/cost_averagesfields.F |
213 |
COST_AVERAGESFIELDS |
& sbar, salt, xx_sbar_mean_dummy, |
|
./pkg/ecco/cost_averagesfields.F |
220 |
COST_AVERAGESFIELDS |
& sbar, salt(1-Olx,1-Oly,1,1,1), xx_sbar_mean_dummy, |
|
./pkg/ecco/cost_averagesfields.F |
477 |
COST_AVERAGESFIELDS |
& smrsssbar, salt(1-Olx,1-Oly,1,1,1), |
|
./pkg/ecco/cost_salt_ini_fin.F |
109 |
COST_SALT_INI_FIN |
tmpx = tmpfld3d(i,j,k,bi,bj) - salt(i,j,k,bi,bj) |
|
./model/inc/DYNVARS.h |
37 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
43 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
52 |
NO PROCEDURE |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/exf/exf_getclim.F |
159 |
EXF_GETCLIM |
& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
388 |
EXF_INIT |
& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj) |