| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_forcing_surf.F |
87 |
EBM_FORCING_SURF |
& *(salt(i,j,kSurface,bi,bj)-SSS(i,j,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
108 |
SHELFICE_THERMODYNAMICS |
& * salt(I,J,K,bi,bj) * convertEmP2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
137 |
SHELFICE_THERMODYNAMICS |
sLoc = max(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
87 |
SHELFICE_THERMODYNAMICS |
sLoc = max(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/pp81/pp81_ri_number.F |
102 |
PP81_RI_NUMBER |
I theta, salt, |
|
./pkg/pp81/pp81_ri_number.F |
97 |
PP81_RI_NUMBER |
I theta, salt, |
|
./model/inc/DYNVARS.h |
36 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
42 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
51 |
NO PROCEDURE |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
232 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i-1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
248 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j-1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
265 |
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) = -salt(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
406 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(salt, 'SALT ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
420 |
DIAGNOSTICS_FILL_STATE |
. salt(i,j,k,bi,bj) * 100. / dummy3 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
432 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL(salt,tmpFac,2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
469 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj)-35. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
574 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i-1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
591 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j-1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
609 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
680 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
173 |
AIM_DYN2AIM |
QA(I2,Katm) = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/aim_v23/aim_do_physics.F |
73 |
AIM_DO_PHYSICS |
& salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
74 |
AIM_DO_PHYSICS |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k) |
|
./pkg/aim_v23/aim_do_physics.F |
76 |
AIM_DO_PHYSICS |
salt(i,j,Nr,bi,bj) = 0. |
|
./pkg/flt/flt_traj.F |
141 |
FLT_TRAJ |
call FLT_BILINEAR (xx,yy,ss,kp,salt, 1,bi,bj) |
|
./pkg/flt/flt_up.F |
178 |
FLT_UP |
call FLT_BILINEAR (xx,yy,ss,k,salt, 1,bi,bj) |
|
./model/src/find_alpha.F |
117 |
FIND_ALPHA |
I theta, salt, |
|
./model/src/find_alpha.F |
123 |
FIND_ALPHA |
I locPres, theta, salt, |
|
./model/src/find_alpha.F |
135 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
223 |
FIND_ALPHA |
& locPres, theta, salt, rhoLoc, myThid ) |
|
./model/src/find_alpha.F |
226 |
FIND_ALPHA |
& locPres, theta, salt, rhoDen, myThid ) |
|
./model/src/find_alpha.F |
232 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
340 |
FIND_BETA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./model/src/find_alpha.F |
370 |
FIND_BETA |
I theta, salt, |
|
./model/src/find_alpha.F |
376 |
FIND_BETA |
I locPres, theta, salt, |
|
./model/src/find_alpha.F |
388 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
462 |
FIND_BETA |
& locPres, theta, salt, rhoLoc, myThid ) |
|
./model/src/find_alpha.F |
465 |
FIND_BETA |
& locPres, theta, salt, rhoDen, myThid ) |
|
./model/src/find_alpha.F |
471 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
85 |
FIND_ALPHA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./model/src/do_fields_blocking_exchanges.F |
60 |
DO_FIELDS_BLOCKING_EXCHANGES |
_EXCH_XYZ_R8( salt , myThid ) |
|
./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/dic/o2_surfforcing.F |
95 |
O2_SURFFORCING |
stemp = salt(i,j,k,bi,bj) |
|
./model/src/tracers_correction_step.F |
104 |
TRACERS_CORRECTION_STEP |
CALL SHAP_FILT_APPLY_TS( theta,salt, myTime, myIter, myThid ) |
|
./model/src/tracers_correction_step.F |
111 |
TRACERS_CORRECTION_STEP |
CALL ZONAL_FILT_APPLY_TS( theta, salt, myThid ) |
|
./model/src/tracers_correction_step.F |
119 |
TRACERS_CORRECTION_STEP |
CALL SALT_FILL( uVel,vVel,salt,1,myTime,myIter,myThid ) |
|
./model/src/tracers_correction_step.F |
74 |
TRACERS_CORRECTION_STEP |
U salt,gS, |
|
./pkg/dic/dic_surfforcing.F |
110 |
DIC_SURFFORCING |
I theta(i,j,kLev,bi,bj),salt(i,j,kLev,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
88 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
98 |
DIC_SURFFORCING |
I theta,salt, |
|
./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 |
75 |
CALCITE_SATURATION |
I theta,salt, |
|
./pkg/dic/calcite_saturation.F |
85 |
CALCITE_SATURATION |
calcium = 1.028d-2*salt(i,j,k,bi,bj)/35.0 |
|
./pkg/dic/dic_surfforcing_init.F |
138 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = 2.366595 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing_init.F |
150 |
DIC_SURFFORCING_INIT |
I theta,salt, |
|
./pkg/dic/dic_surfforcing_init.F |
174 |
DIC_SURFFORCING_INIT |
I theta(i,j,kLev,bi,bj),salt(i,j,kLev,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
191 |
DIC_SURFFORCING_INIT |
& salt(20,20,1,1,1), |
|
./model/src/ini_dynvars.F |
55 |
INI_DYNVARS |
salt(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/tracers_iigw_correction.F |
98 |
TRACERS_IIGW_CORRECTION |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
399 |
OFFLINE_FIELDS_LOAD |
salt(i,j,k,bi,bj) = bWght*save0(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
172 |
FIZHI_INIT_VARS |
call DYN2PHYS(salt,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./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 - |
|
./model/src/ini_salt.F |
102 |
INI_SALT |
CALL PLOT_FIELD_XYZRL( salt, 'Initial Salinity' , Nr, 1, myThid ) |
|
./model/src/ini_salt.F |
56 |
INI_SALT |
salt(I,J,K,bi,bj) = sRef(K) |
|
./model/src/ini_salt.F |
66 |
INI_SALT |
CALL READ_FLD_XYZ_RL( hydrogSaltFile, ' ', salt, 0, myThid ) |
|
./model/src/ini_salt.F |
68 |
INI_SALT |
_EXCH_XYZ_R8(salt , myThid ) |
|
./model/src/ini_salt.F |
78 |
INI_SALT |
IF (maskC(I,J,K,bi,bj).EQ.0.) salt(I,J,K,bi,bj) = 0. |
|
./model/src/ini_salt.F |
85 |
INI_SALT |
& .AND. salt(I,J,K,bi,bj).EQ.0. ) THEN |
|
./pkg/fizhi/fizhi_wrapper.F |
147 |
FIZHI_WRAPPER |
sdynbef(i,j,L,bi,bj) = salt(i,j,L,bi,bj) |
|
./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/advect_xy/code/ini_salt.F |
51 |
INI_SALT |
salt(I,J,K,bi,bj) = sRef(K) |
|
./verification/advect_xy/code/ini_salt.F |
52 |
INI_SALT |
IF (rD.LE.60.E3) salt(I,J,K,bi,bj) = sRef(K)+1. |
|
./verification/advect_xy/code/ini_salt.F |
61 |
INI_SALT |
CALL READ_FLD_XYZ_RL( hydrogSaltFile, ' ', salt, 0, myThid ) |
|
./verification/advect_xy/code/ini_salt.F |
63 |
INI_SALT |
_EXCH_XYZ_R8(salt , myThid ) |
|
./verification/advect_xy/code/ini_salt.F |
73 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).EQ.0) salt(I,J,K,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_salt.F |
74 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).NE.0.AND.salt(I,J,K,bi,bj).EQ.0. |
|
./verification/advect_xy/code/ini_salt.F |
91 |
INI_SALT |
CALL PLOT_FIELD_XYZRL( salt, 'Initial Salinity' , Nr, 1, myThid ) |
|
./verification/rotating_tank/code/checkpoint.F |
122 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,salt, 11,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
161 |
READ_CHECKPOINT |
_EXCH_XYZ_R8(salt , myThid ) |
|
./verification/rotating_tank/code/checkpoint.F |
288 |
WRITE_CHECKPOINT |
CALL WRITE_REC_XYZ_RL( 'salt', salt, 1,myIter, myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
322 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,salt, 11,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
93 |
READ_CHECKPOINT |
CALL READ_REC_XYZ_RL( 'salt', salt, 1,myIter, myThid) |
|
./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_R8(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/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/flt_example/extra/cvfloat.F |
179 |
NO PROCEDURE |
allocate (salt(npart,icount)) |
|
./verification/flt_example/extra/cvfloat.F |
192 |
NO PROCEDURE |
salt(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
255 |
NO PROCEDURE |
salt(ip,np) = SNGL(tmp(9)) |
|
./verification/flt_example/extra/cvfloat.F |
442 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, salt, iret) |
|
./verification/flt_example/extra/cvfloat.F |
64 |
NO PROCEDURE |
& ,uvel,vvel,temp,salt,zeta |
|
./model/src/dynamics.F |
467 |
DYNAMICS |
I theta, salt, |
|
./model/src/dynamics.F |
664 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,salt,'Salt (DYNAMICS)',myThid) |
|
./verification/internal_wave/code/obcs_calc.F |
152 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
172 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
33 |
OBCS_CALC |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
79 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
7 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
99 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
123 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
142 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
204 |
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 |
91 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./model/src/checkpoint.F |
124 |
READ_CHECKPOINT |
CALL READ_REC_XYZ_RL( 'salt', salt, 1,myIter,myThid) |
|
./model/src/checkpoint.F |
158 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,salt, 10,myThid) |
|
./model/src/checkpoint.F |
191 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,salt, nj+1,myThid) |
|
./model/src/checkpoint.F |
204 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,salt, 7,myThid) |
|
./model/src/checkpoint.F |
247 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'S',salt, myThid) |
|
./model/src/checkpoint.F |
286 |
READ_CHECKPOINT |
_EXCH_XYZ_R8(salt , myThid ) |
|
./model/src/checkpoint.F |
495 |
WRITE_CHECKPOINT_NOW |
CALL WRITE_REC_XYZ_RL( 'salt', salt, 1,myIter,myThid) |
|
./model/src/checkpoint.F |
532 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,salt, 10,myIter,myThid) |
|
./model/src/checkpoint.F |
545 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,salt, 7,myIter,myThid) |
|
./model/src/checkpoint.F |
609 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'S', salt, myThid) |
|
./model/src/thermodynamics.F |
296 |
THERMODYNAMICS |
U salt, gsNm, |
|
./model/src/thermodynamics.F |
356 |
THERMODYNAMICS |
I uVel, vVel, wVel, salt, |
|
./model/src/thermodynamics.F |
575 |
THERMODYNAMICS |
I salt, |
|
./model/src/thermodynamics.F |
698 |
THERMODYNAMICS |
I kappaRk, wVel, salt, |
|
./model/src/thermodynamics.F |
749 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,salt,'Salt (THERMODYNAMICS)',myThid) |
|
./model/src/external_forcing_surf.F |
238 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./model/src/external_forcing_surf.F |
258 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj)*salt(i,j,ks,bi,bj) |
|
./model/src/external_forcing_surf.F |
84 |
EXTERNAL_FORCING_SURF |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./model/src/external_forcing_surf.F |
95 |
EXTERNAL_FORCING_SURF |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./model/src/convective_adjustment.F |
120 |
CONVECTIVE_ADJUSTMENT |
I theta,salt, |
|
./model/src/convective_adjustment.F |
131 |
CONVECTIVE_ADJUSTMENT |
I theta,salt, |
|
./model/src/convective_adjustment.F |
160 |
CONVECTIVE_ADJUSTMENT |
U salt, |
|
./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) |
|
./model/src/the_correction_step.F |
106 |
THE_CORRECTION_STEP |
U salt,gS, |
|
./model/src/do_oceanic_phys.F |
343 |
DO_OCEANIC_PHYS |
I theta, salt, |
|
./model/src/do_oceanic_phys.F |
354 |
DO_OCEANIC_PHYS |
I theta, salt, |
|
./model/src/do_oceanic_phys.F |
416 |
DO_OCEANIC_PHYS |
I uVel, vVel, wVel, theta, salt, |
|
./model/src/convective_adjustment_ini.F |
127 |
CONVECTIVE_ADJUSTMENT_INI |
I theta,salt, |
|
./model/src/convective_adjustment_ini.F |
140 |
CONVECTIVE_ADJUSTMENT_INI |
I theta,salt, |
|
./model/src/convective_adjustment_ini.F |
169 |
CONVECTIVE_ADJUSTMENT_INI |
U salt, |
|
./model/src/calc_gs.F |
152 |
CALC_GS |
I gsNm(1-Olx,1-Oly,1,1,1,m2), salt, |
|
./model/src/calc_gs.F |
162 |
CALC_GS |
I diffKhS, diffK4S, KappaRS, gsNm1, salt, |
|
./model/src/ini_pressure.F |
108 |
INI_PRESSURE |
I theta, salt, |
|
./model/src/diags_oceanic_surf_flux.F |
137 |
DIAGS_OCEANIC_SURF_FLUX |
& *salt(i,j,ks,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
152 |
GGL90_CALC |
I theta, salt, |
|
./pkg/ggl90/ggl90_calc.F |
157 |
GGL90_CALC |
I theta, salt, |
|
./pkg/cost/cost_state_final.F |
35 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,1*Nr+k) = salt(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_routines.F |
1458 |
STATEKPP |
I theta, salt, |
|
./pkg/kpp/kpp_routines.F |
1508 |
STATEKPP |
I theta, salt, |
|
./pkg/kpp/kpp_routines.F |
1518 |
STATEKPP |
I theta, salt, |
|
./pkg/kpp/kpp_routines.F |
1528 |
STATEKPP |
I theta, salt, |
|
./pkg/kpp/kpp_routines.F |
1563 |
STATEKPP |
I bi, bj, 1, sNx, 1, sNy, K-1, 1, theta, salt, |
|
./pkg/kpp/kpp_routines.F |
1567 |
STATEKPP |
I bi, bj, 1, sNx, 1, sNy, K , 1, theta, salt, |
|
./pkg/opps/opps_interface.F |
118 |
OPPS_INTERFACE |
tracerLoc(K,2) = salt(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
124 |
OPPS_INTERFACE |
tracerLoc(K,2) = salt(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
182 |
OPPS_INTERFACE |
salt(I,J,K,bi,bj) = tracerLoc(K,2) |
|
./pkg/timeave/timeave_statvars.F |
107 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(salttave, salt, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
127 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(WStave, salt, wVel, Nr, 3, |
|
./pkg/timeave/timeave_statvars.F |
149 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(UStave, salt, uVel, hFacW, Nr, 1, |
|
./pkg/timeave/timeave_statvars.F |
151 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(VStave, salt, vVel, hFacS, Nr, 2, |
|
./pkg/timeave/timeave_surf_flux.F |
112 |
TIMEAVE_SURF_FLUX |
& *salt(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
104 |
MON_SURFCOR |
tmpVal = salt(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
105 |
MON_SURFCOR |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks) |
|
./pkg/monitor/mon_surfcor.F |
150 |
MON_SURFCOR |
& +tmpVol*rStarDhCDt(i,j,bi,bj)*salt(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
88 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)* salt(i,j,ks,bi,bj) |
|
./pkg/monitor/monitor.F |
119 |
MONITOR |
CALL MON_PRINTSTATS_RL(Nr,salt,'_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 |
230 |
ORLANSKI_NORTH |
SN_STORE_2(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
231 |
ORLANSKI_NORTH |
& salt(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
232 |
ORLANSKI_NORTH |
SN_STORE_1(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
233 |
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 |
230 |
ORLANSKI_SOUTH |
SS_STORE_2(I,K,bi,bj)=salt(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
231 |
ORLANSKI_SOUTH |
& salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
232 |
ORLANSKI_SOUTH |
SS_STORE_1(I,K,bi,bj)=salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
233 |
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/obcs_init_variables.F |
230 |
OBCS_INIT_VARIABLES |
& uVel, vVel, wVel, theta, salt, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
246 |
OBCS_INIT_VARIABLES |
CALL OBCS_APPLY_TS( bi, bj, k, theta, salt, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
260 |
OBCS_INIT_VARIABLES |
_EXCH_XYZ_R8( salt , myThid ) |
|
./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 |
271 |
ORLANSKI_WEST |
SW_STORE_2(J,K,bi,bj)=salt(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
272 |
ORLANSKI_WEST |
& salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
273 |
ORLANSKI_WEST |
SW_STORE_1(J,K,bi,bj)=salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
274 |
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/obcs/obcs_sponge.F |
724 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
740 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
765 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
781 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
806 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
822 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
850 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
866 |
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 |
269 |
ORLANSKI_EAST |
SE_STORE_2(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
270 |
ORLANSKI_EAST |
& salt(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
271 |
ORLANSKI_EAST |
SE_STORE_1(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
272 |
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 |