| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
210 |
ECCO_PHYS |
& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
213 |
ECCO_PHYS |
& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
268 |
ECCO_PHYS |
tmpfld=salt(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
80 |
ECCO_PHYS |
I salt (1-OLx,1-OLy,k,bi,bj), |
|
./pkg/exf/exf_getclim.F |
181 |
EXF_GETCLIM |
& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
467 |
EXF_INIT_VARIA |
& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj) |
|
./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 |
476 |
STEP_FIZHI_CORR |
. (salt(i,j,L,bi,bj)-sdynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/flt/flt_traj.F |
141 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,ss,salt, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
139 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,ss,salt, k,0,bi,bj,myThid) |
|
./pkg/frazil/frazil_calc_rhs.F |
73 |
FRAZIL_CALC_RHS |
sLoc = MAX(salt(i,j,k,bi,bj), 0. _d 0) |
|
./pkg/gchem/gchem_forcing_sep.F |
103 |
GCHEM_FORCING_SEP |
CALL GCHEM_SURFMEAN(salt,gsm_s,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
119 |
GCHEM_FORCING_SEP |
CALL GCHEM_SURFMEAN(salt,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/icefront/icefront_thermodynamics.F |
114 |
ICEFRONT_THERMODYNAMICS |
sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/kl10/kl10_calc.F |
82 |
KL10_CALC |
CALL FIND_RHO_SCALAR(theta(I,J,K,bi,bj), salt(I,J,K,bi,bj), |
|
./pkg/kl10/kl10_calc.F |
97 |
KL10_CALC |
CALL FIND_RHO_SCALAR(theta(I,J,K,bi,bj), salt(I,J,K,bi |
|
./model/src/apply_forcing.F |
590 |
APPLY_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./model/src/apply_forcing.F |
591 |
APPLY_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/apply_forcing.F |
603 |
APPLY_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/apply_forcing.F |
604 |
APPLY_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./model/src/apply_forcing.F |
886 |
APPLY_FORCING_S |
& *( salt_addMass - salt(i,j,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1713 |
STATEKPP |
I theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1755 |
STATEKPP |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1767 |
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 |
1779 |
STATEKPP |
I theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1928 |
KPP_DOUBLEDIFF |
betaDS(I,J) = ( salt(I,J,Km1,bi,bj)-salt(I,J,K,bi,bj) ) |
|
./pkg/layers/layers_calc.F |
145 |
LAYERS_CALC |
CALL LAYERS_FLUXCALC( uVel,vVel,salt,iLa, |
|
./pkg/layers/layers_calc.F |
152 |
LAYERS_CALC |
CALL LAYERS_DIAPYCNAL( salt,iLa, |
|
./pkg/layers/layers_calc.F |
183 |
LAYERS_CALC |
& salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/longstep/longstep_average.F |
94 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_saltCount, LS_salt, salt, Nr, myThid) |
|
./model/src/calc_oce_mxlayer.F |
112 |
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 |
158 |
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 |
110 |
MON_SURFCOR |
tmpVal = salt(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
111 |
MON_SURFCOR |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks) |
|
./pkg/monitor/mon_surfcor.F |
159 |
MON_SURFCOR |
& +tmpVol*rStarDhCDt(i,j,bi,bj)*salt(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
94 |
MON_SURFCOR |
& *wVel(i,j,ks,bi,bj)*salt(i,j,ks,bi,bj) |
|
./pkg/monitor/monitor.F |
119 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, salt, '_salt', |
|
./pkg/monitor/monitor.F |
132 |
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), |
|
./model/src/convective_adjustment.F |
151 |
CONVECTIVE_ADJUSTMENT |
I salt (1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment.F |
165 |
CONVECTIVE_ADJUSTMENT |
I salt (1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment.F |
196 |
CONVECTIVE_ADJUSTMENT |
U salt, |
|
./model/src/convective_adjustment_ini.F |
151 |
CONVECTIVE_ADJUSTMENT_INI |
I salt (1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
165 |
CONVECTIVE_ADJUSTMENT_INI |
I salt (1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
194 |
CONVECTIVE_ADJUSTMENT_INI |
U salt, |
|
./pkg/obcs/obcs_calc.F |
11 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
146 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
196 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
230 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
50 |
OBCS_CALC |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
96 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc_stevens.F |
1056 |
OBCS_STEVENS_SAVE_TRACERS |
OBNsStevens(i,k,bi,bj) = salt(i,Jobc-1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1072 |
OBCS_STEVENS_SAVE_TRACERS |
OBSsStevens(i,k,bi,bj) = salt(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1088 |
OBCS_STEVENS_SAVE_TRACERS |
OBEsStevens(j,k,bi,bj) = salt(Iobc-1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1104 |
OBCS_STEVENS_SAVE_TRACERS |
OBWsStevens(j,k,bi,bj) = salt(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
260 |
OBCS_CALC_STEVENS |
I OBEsStevens, salt, gammas, |
|
./pkg/obcs/obcs_calc_stevens.F |
387 |
OBCS_CALC_STEVENS |
I OBWsStevens, salt, gammas, |
|
./pkg/obcs/obcs_calc_stevens.F |
498 |
OBCS_CALC_STEVENS |
I OBNsStevens, salt, gammas, |
|
./pkg/obcs/obcs_calc_stevens.F |
610 |
OBCS_CALC_STEVENS |
I OBSsStevens, salt, gammas, |
|
./pkg/obcs/obcs_init_variables.F |
427 |
OBCS_INIT_VARIABLES |
& uVel, vVel, wVel, theta, salt, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
438 |
OBCS_INIT_VARIABLES |
CALL OBCS_APPLY_TS( bi, bj, 0, theta, salt, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
451 |
OBCS_INIT_VARIABLES |
_EXCH_XYZ_RL( salt , myThid ) |
|
./pkg/obcs/obcs_monitor.F |
154 |
OBCS_MONITOR |
I Nr, Nr, 0, salt, hFacW, dyG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
160 |
OBCS_MONITOR |
I Nr, Nr, 0, salt, hFacS, dxG, drF, maskInC, |
|
./pkg/obcs/obcs_sponge.F |
715 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
729 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
755 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
769 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
795 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
809 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
835 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
849 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/orlanski_east.F |
193 |
ORLANSKI_EAST |
CL=-(salt(I_obc-1,J,K,bi,bj)-SE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
210 |
ORLANSKI_EAST |
OBEs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
212 |
ORLANSKI_EAST |
& (ab1*(salt(I_obc,J,K,bi,bj)-salt(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
273 |
ORLANSKI_EAST |
SE_STORE_2(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
274 |
ORLANSKI_EAST |
& salt(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
275 |
ORLANSKI_EAST |
SE_STORE_1(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
276 |
ORLANSKI_EAST |
SE_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
86 |
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 |
166 |
ORLANSKI_NORTH |
CL=-(salt(I,J_obc-1,K,bi,bj)-SN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
177 |
ORLANSKI_NORTH |
OBNs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
179 |
ORLANSKI_NORTH |
& (ab1*(salt(I,J_obc,K,bi,bj)-salt(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
234 |
ORLANSKI_NORTH |
SN_STORE_2(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
235 |
ORLANSKI_NORTH |
& salt(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
236 |
ORLANSKI_NORTH |
SN_STORE_1(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
237 |
ORLANSKI_NORTH |
SN_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
77 |
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 |
166 |
ORLANSKI_SOUTH |
CL=(salt(I,J_obc+1,K,bi,bj)-SS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
177 |
ORLANSKI_SOUTH |
OBSs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
179 |
ORLANSKI_SOUTH |
& (ab1*(salt(I,J_obc+1,K,bi,bj)-salt(I,J_obc,K,bi,bj)) + |
|
./pkg/obcs/orlanski_south.F |
234 |
ORLANSKI_SOUTH |
SS_STORE_2(I,K,bi,bj)=salt(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
235 |
ORLANSKI_SOUTH |
& salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
236 |
ORLANSKI_SOUTH |
SS_STORE_1(I,K,bi,bj)=salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
237 |
ORLANSKI_SOUTH |
SS_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
77 |
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 |
195 |
ORLANSKI_WEST |
CL=(salt(I_obc+1,J,K,bi,bj)-SW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
212 |
ORLANSKI_WEST |
OBWs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
214 |
ORLANSKI_WEST |
& (ab1*(salt(I_obc+1,J,K,bi,bj)-salt(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
275 |
ORLANSKI_WEST |
SW_STORE_2(J,K,bi,bj)=salt(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
276 |
ORLANSKI_WEST |
& salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
277 |
ORLANSKI_WEST |
SW_STORE_1(J,K,bi,bj)=salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
278 |
ORLANSKI_WEST |
SW_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
88 |
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, |
|
./model/src/diags_oceanic_surf_flux.F |
168 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*salt(i,j,ks,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
68 |
OCN_STORE_MY_DATA |
SSSocn2cpl(i,j,bi,bj) = salt (i,j,1,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
377 |
OFFLINE_FIELDS_LOAD |
salt(i,j,k,bi,bj) = bWght*save0(i,j,k,bi,bj) |
|
./model/src/do_atmospheric_phys.F |
94 |
DO_ATMOSPHERIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./pkg/openad/openad_dumpAdjoint.F |
108 |
OPENAD_DUMPADJOINT |
foo5=saltd |
|
./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) |
|
./model/src/do_fields_blocking_exchanges.F |
65 |
DO_FIELDS_BLOCKING_EXCHANGES |
_EXCH_XYZ_RL( salt , myThid ) |
|
./model/src/do_oceanic_phys.F |
274 |
DO_OCEANIC_PHYS |
I uVel, vVel, wVel, theta, salt, myThid ) |
|
./model/src/do_oceanic_phys.F |
770 |
DO_OCEANIC_PHYS |
I theta, salt, |
|
./model/src/do_oceanic_phys.F |
783 |
DO_OCEANIC_PHYS |
I theta, salt, |
|
./model/src/do_oceanic_phys.F |
795 |
DO_OCEANIC_PHYS |
I salt (1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
815 |
DO_OCEANIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/do_oceanic_phys.F |
867 |
DO_OCEANIC_PHYS |
I salt (1-OLx,1-OLy,k-1,bi,bj), |
|
./model/src/do_oceanic_phys.F |
956 |
DO_OCEANIC_PHYS |
I salt, 0, |
|
./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/do_stagger_fields_exchanges.F |
53 |
DO_STAGGER_FIELDS_EXCHANGES |
CALL EXCH_SM_3D_RL( salt , .FALSE., Nr, myThid ) |
|
./pkg/profiles/profiles_interp.F |
88 |
PROFILES_INTERP |
tab_coeffs1(q)=salt(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
88 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./model/src/dynamics.F |
483 |
DYNAMICS |
I theta, salt, |
|
./model/src/dynamics.F |
709 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,salt,'Salt (DYNAMICS)',myThid) |
|
./pkg/rbcs/rbcs_add_tendency.F |
111 |
RBCS_ADD_TENDENCY |
& *( salt(i,j,k,bi,bj)- RBCsalt(i,j,k,bi,bj) ) |
|
./model/src/external_forcing.F |
462 |
EXTERNAL_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./model/src/external_forcing.F |
463 |
EXTERNAL_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/external_forcing.F |
475 |
EXTERNAL_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/external_forcing.F |
476 |
EXTERNAL_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./model/src/external_forcing.F |
715 |
EXTERNAL_FORCING_S |
& *( salt_addMass - salt(i,j,kLev,bi,bj) ) |
|
./model/src/external_forcing_surf.F |
273 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./model/src/external_forcing_surf.F |
308 |
EXTERNAL_FORCING_SURF |
& *( salt(i,j,ks,bi,bj) - salt_EvPrRn ) |
|
./model/src/find_alpha.F |
126 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
132 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
148 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
233 |
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 |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
247 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
291 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
298 |
FIND_ALPHA |
sa = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
424 |
FIND_BETA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./model/src/find_alpha.F |
454 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
460 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
472 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
547 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
553 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
561 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
598 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
605 |
FIND_BETA |
sa = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
94 |
FIND_ALPHA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
116 |
SALT_PLUME_CALC_DEPTH |
I theta(1-OLx,1-OLy,K,bi,bj), salt(1-OLx,1-OLy,K,bi,bj), |
|
./model/src/forcing_surf_relax.F |
106 |
FORCING_SURF_RELAX |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
90 |
FORCING_SURF_RELAX |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./pkg/seaice/seaice_fake.F |
73 |
SEAICE_FAKE |
& SEAICE_dTempFrz_dS *salt(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1040 |
SEAICE_GROWTH |
& SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1078 |
SEAICE_GROWTH |
& SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1997 |
SEAICE_GROWTH |
& min(SEAICE_salt0,salt(I,J,kSurface,bi,bj)) ) |
|
./pkg/seaice/seaice_growth.F |
2030 |
SEAICE_GROWTH |
tmpscal3 = tmpscal1*salt(I,J,kSurface,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2061 |
SEAICE_GROWTH |
& *SEAICE_saltFrac*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2081 |
SEAICE_GROWTH |
& *(ONE-SEAICE_saltFrac)*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2119 |
SEAICE_GROWTH |
& *(ONE-SEAICE_saltFrac)*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
593 |
SEAICE_INIT_VARIA |
HSALT(i,j,bi,bj)=HEFF(i,j,bi,bj)*salt(i,j,kSurface,bi,bj)* |
|
./pkg/seaice/seaice_solve4temp.F |
245 |
SEAICE_SOLVE4TEMP |
tempFrz(I,J) = SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_tracer_phys.F |
213 |
SEAICE_TRACER_PHYS |
& *SPsalFRAC*(salt(I,j,ks,bi,bj)-SItrFromOcean(i,j)) |
|
./pkg/seaice/seaice_tracer_phys.F |
78 |
SEAICE_TRACER_PHYS |
SItrFromOcean(i,j)=SItrFromOceanFrac(iTr)*salt(I,j,ks,bi,bj) |
|
./pkg/seaice/seaice_tracer_phys.F |
79 |
SEAICE_TRACER_PHYS |
SItrFromFlood(i,j)=SItrFromFloodFrac(iTr)*salt(I,j,ks,bi,bj) |
|
./model/src/ini_dynvars.F |
58 |
INI_DYNVARS |
salt (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
264 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = MAX(salt(I,J,K,bi,bj), zeroRL) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
322 |
SHELFICE_THERMODYNAMICS |
& + MAX(salt(I,J,Kp1,bi,bj), zeroRL) * drKp1 ) |
|
./pkg/thsice/thsice_get_ocean.F |
97 |
THSICE_GET_OCEAN |
sOceMxL(i,j,bi,bj) = salt (i,j,ks,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 |
102 |
TIMEAVE_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*salt(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
116 |
INI_PRESSURE |
I theta, salt, |
|
./model/src/ini_salt.F |
102 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_salt.F |
132 |
INI_SALT |
CALL PLOT_FIELD_XYZRL( salt, 'Initial Salinity', |
|
./model/src/ini_salt.F |
61 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./model/src/ini_salt.F |
75 |
INI_SALT |
CALL MNC_CW_RL_R('D',hydrogSaltFile,0,0,'S',salt, myThid) |
|
./model/src/ini_salt.F |
79 |
INI_SALT |
CALL READ_FLD_XYZ_RL( hydrogSaltFile, ' ', salt, 0, myThid ) |
|
./model/src/ini_salt.F |
83 |
INI_SALT |
_EXCH_XYZ_RL( salt, myThid ) |
|
./model/src/ini_salt.F |
94 |
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 |
101 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./verification/advect_xy/code/ini_salt.F |
131 |
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 |
77 |
INI_SALT |
_EXCH_XYZ_RL( salt, myThid ) |
|
./verification/advect_xy/code/ini_salt.F |
81 |
INI_SALT |
CALL READ_FLD_XYZ_RL( hydrogSaltFile, ' ', salt, 0, myThid ) |
|
./verification/advect_xy/code/ini_salt.F |
82 |
INI_SALT |
_EXCH_XYZ_RL( salt, myThid ) |
|
./verification/advect_xy/code/ini_salt.F |
93 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./verification/dome/code/obcs_calc.F |
131 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
150 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
211 |
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 |
99 |
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 |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
160 |
CTRL_MAP_INI_GENARR |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
176 |
CTRL_MAP_INI_GENARR |
_EXCH_XYZ_RL( salt, myThid ) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
160 |
CTRL_MAP_INI_GENARR |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
176 |
CTRL_MAP_INI_GENARR |
_EXCH_XYZ_RL( salt, myThid ) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
100 |
CTRL_MAP_INI_GENARR |
salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
111 |
CTRL_MAP_INI_GENARR |
_EXCH_XYZ_RL( salt, myThid ) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
100 |
CTRL_MAP_INI_GENARR |
salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
111 |
CTRL_MAP_INI_GENARR |
_EXCH_XYZ_RL( salt, myThid ) |
|
./verification/internal_wave/code/obcs_calc.F |
110 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
163 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
183 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
37 |
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 |
90 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./model/src/read_pickup.F |
177 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 10, myIter,myThid ) |
|
./model/src/read_pickup.F |
212 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
225 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 7, myIter,myThid ) |
|
./model/src/read_pickup.F |
276 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'Salt ', salt, |
|
./model/src/read_pickup.F |
472 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'S',salt, myThid) |
|
./model/src/read_pickup.F |
517 |
READ_PICKUP |
CALL EXCH_3D_RL( salt, Nr, myThid ) |
|
./verification/rotating_tank/code/apply_forcing.F |
593 |
APPLY_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
594 |
APPLY_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
606 |
APPLY_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
607 |
APPLY_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
943 |
APPLY_FORCING_S |
& *( salt_addMass - salt(i,j,k,bi,bj) ) |
|
./model/src/salt_integrate.F |
192 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
198 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
266 |
SALT_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, salt, |
|
./model/src/salt_integrate.F |
280 |
SALT_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, salt, |
|
./model/src/salt_integrate.F |
347 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
362 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
451 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
458 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
469 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
489 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
512 |
SALT_INTEGRATE |
U salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
518 |
SALT_INTEGRATE |
U salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
526 |
SALT_INTEGRATE |
O salt(1-OLx,1-OLy,1,bi,bj), |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
91 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
276 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
311 |
EXTERNAL_FORCING_SURF |
& *( salt(i,j,ks,bi,bj) - salt_EvPrRn ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
276 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
311 |
EXTERNAL_FORCING_SURF |
& *( salt(i,j,ks,bi,bj) - salt_EvPrRn ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
86 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
86 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./model/src/thermodynamics.F |
143 |
THERMODYNAMICS |
CALL CALC_WSURF_TR( theta, salt, wVel, |
|
./model/src/thermodynamics.F |
148 |
THERMODYNAMICS |
CALL LAYERS_WSURF_TR( theta, salt, wVel, |
|
./model/src/thermodynamics.F |
357 |
THERMODYNAMICS |
CALL OBCS_APPLY_TS( bi, bj, 0, theta, salt, myThid ) |
|
./model/src/thermodynamics.F |
397 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,salt,'Salt (THERMODYNAMICS)',myThid) |
|
./model/src/tracers_correction_step.F |
70 |
TRACERS_CORRECTION_STEP |
CALL SHAP_FILT_APPLY_TS( theta,salt, myTime, myIter, myThid ) |
|
./model/src/tracers_correction_step.F |
77 |
TRACERS_CORRECTION_STEP |
CALL ZONAL_FILT_APPLY_TS( theta, salt, myThid ) |
|
./model/src/tracers_correction_step.F |
91 |
TRACERS_CORRECTION_STEP |
CALL SALT_FILL( uVel,vVel,salt,1,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 |
135 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, salt, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
377 |
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 |
137 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,saltv,myIter,myThid) |
|
./model/src/write_state.F |
148 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid) |
|
./model/src/write_state.F |
195 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'S', salt, myThid) |
|
./pkg/aim_v23/aim_do_physics.F |
100 |
AIM_DO_PHYSICS |
& salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
101 |
AIM_DO_PHYSICS |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k) |
|
./pkg/aim_v23/aim_do_physics.F |
103 |
AIM_DO_PHYSICS |
salt(i,j,Nr,bi,bj) = 0. |
|
./pkg/aim_v23/aim_dyn2aim.F |
176 |
AIM_DYN2AIM |
QA(I2,Katm) = MAX( salt(i,j,k,bi,bj), zeroRL ) |
|
./pkg/atm2d/get_ocnvars.F |
73 |
GET_OCNVARS |
sssFromOcn(i,j) = salt (i,j,1,1,1) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
121 |
ATM_PHYS_DYN2PHYS |
q3d(:,:,k) = MAX( salt(1:sNx,1:sNy,kc,bi,bj), 0. _d 0 ) |
|
./pkg/autodiff/addummy_in_stepping.F |
458 |
ADDUMMY_IN_STEPPING |
foo3D = saltd |
|
./pkg/autodiff/addummy_in_stepping.F |
538 |
ADDUMMY_IN_STEPPING |
foo3D = saltd |
|
./pkg/autodiff/addummy_in_stepping.F |
628 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, saltd, var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/autodiff_restore.F |
148 |
AUTODIFF_RESTORE |
salt(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_store.F |
158 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,6) = salt(I,J,K,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
91 |
BBL_CALC_RHS |
sLoc(i,j) = salt (i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_init_varia.F |
43 |
BBL_INIT_VARIA |
bbl_salt (i,j,bi,bj) = salt (i,j,kBot,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
125 |
BLING_AIRSEAFLUX |
surfsalt(i,j) = salt(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
251 |
BLING_AIRSEAFLUX |
stemp = salt(i,j,1,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
182 |
BLING_CARBONATE_INIT |
salttmp(i,j) = salt(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
115 |
BLING_CARBONATE_SYS |
calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
93 |
BLING_CARBONATE_SYS |
stmp(i,j) = salt(i,j,k,bi,bj) |
|
./pkg/bling/bling_mixedlayer.F |
68 |
BLING_MIXEDLAYER |
I theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/bling/bling_mixedlayer.F |
89 |
BLING_MIXEDLAYER |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,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 |
161 |
CTRL_MAP_INI |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
236 |
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 |
156 |
CTRL_MAP_INI_ECCO |
& xx_salt_dummy, boundsVec, salt, maskc, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
158 |
CTRL_MAP_INI_ECCO |
_EXCH_XYZ_RL( salt, mythid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
130 |
CTRL_MAP_INI_GENARR |
& call CTRL_MAP_GENARR3D(salt,igen_salt0,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
250 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
266 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
283 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
387 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
410 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(salt, 'SALT ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
424 |
DIAGNOSTICS_FILL_STATE |
& *salt(i,j,k,bi,bj)*100. / dummy3 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
436 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( salt, oneRL, 2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
496 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = salt(i,j,k,bi,bj)-35. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
601 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
618 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
636 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
691 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*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 |
104 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
114 |
DIC_SURFFORCING |
& min(50. _d 0, salt(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing.F |
119 |
DIC_SURFFORCING |
surfsalt(i,j) = salt(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
187 |
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 |
& min(50. _d 0, salt(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing_init.F |
202 |
DIC_SURFFORCING_INIT |
surfsalt(i,j) = salt(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
250 |
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/ecco/cost_averagesfields.F |
313 |
COST_AVERAGESFIELDS |
& sbar, salt, xx_sbar_mean_dummy, |
|
./pkg/ecco/cost_averagesfields.F |
320 |
COST_AVERAGESFIELDS |
& sbar, salt(1-Olx,1-Oly,1,1,1), xx_sbar_mean_dummy, |
|
./pkg/ecco/cost_averagesfields.F |
579 |
COST_AVERAGESFIELDS |
& smrsssbar, salt(1-Olx,1-Oly,1,1,1), |
|
./model/inc/DYNVARS.h |
38 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
44 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
53 |
NO PROCEDURE |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ecco/cost_gencost_customize.F |
223 |
COST_GENCOST_CUSTOMIZE |
& salt(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |