File |
Line number |
Procedure |
Code |
./pkg/ptracers/ptracers_forcing_surf.F |
105 |
PTRACERS_FORCING_SURF |
CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid) |
./pkg/ptracers/ptracers_forcing_surf.F |
111 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = 0. _d 0 |
./pkg/ptracers/ptracers_forcing_surf.F |
133 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
./pkg/ptracers/ptracers_forcing_surf.F |
164 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
./pkg/ptracers/ptracers_forcing_surf.F |
186 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
./pkg/ptracers/ptracers_forcing_surf.F |
54 |
PTRACERS_FORCING_SURF |
_RL add2EmP(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/ptracers/ptracers_forcing_surf.F |
89 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/tmpVar |
./pkg/ptracers/ptracers_forcing_surf.F |
90 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
./pkg/ptracers/ptracers_forcing_surf.F |
91 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
./pkg/ptracers/ptracers_forcing_surf.F |
97 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt |
./pkg/ptracers/ptracers_forcing_surf.F |
98 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
./pkg/ptracers/ptracers_forcing_surf.F |
99 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
100 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
101 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
102 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
108 |
PTRACERS_FORCING_SURF |
CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
114 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = 0. _d 0 |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
136 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
167 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
189 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
54 |
PTRACERS_FORCING_SURF |
_RL add2EmP(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
92 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/tmpVar |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
93 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
94 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
103 |
PTRACERS_FORCING_SURF |
CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid) |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
109 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = 0. _d 0 |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
130 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
160 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
181 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
53 |
PTRACERS_FORCING_SURF |
_RL add2EmP(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
87 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/tmpVar |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
88 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
89 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
95 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
96 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
97 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
103 |
PTRACERS_FORCING_SURF |
CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid) |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
109 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = 0. _d 0 |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
130 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
160 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
181 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
53 |
PTRACERS_FORCING_SURF |
_RL add2EmP(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
87 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/tmpVar |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
88 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
89 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
95 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
96 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
97 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |