| File |
Line number |
Procedure |
Code |
|
./pkg/longstep/longstep_forcing_surf.F |
110 |
LONGSTEP_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/longstep/longstep_forcing_surf.F |
121 |
LONGSTEP_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/longstep/longstep_forcing_surf.F |
134 |
LONGSTEP_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/longstep/longstep_forcing_surf.F |
145 |
LONGSTEP_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/longstep/longstep_forcing_surf.F |
82 |
LONGSTEP_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/longstep/longstep_forcing_surf.F |
88 |
LONGSTEP_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./pkg/ptracers/PTRACERS_PARAMS.h |
34 |
NO PROCEDURE |
_RL PTRACERS_EvPrRn(PTRACERS_num) |
|
./pkg/ptracers/PTRACERS_PARAMS.h |
44 |
NO PROCEDURE |
& PTRACERS_EvPrRn, |
|
./pkg/ptracers/ptracers_forcing_surf.F |
125 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/ptracers/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
153 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/ptracers/ptracers_forcing_surf.F |
161 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
174 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/ptracers/ptracers_forcing_surf.F |
182 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/ptracers/ptracers_readparms.F |
114 |
PTRACERS_READPARMS |
PTRACERS_EvPrRn(iTracer)=UNSET_RL |
|
./pkg/ptracers/ptracers_readparms.F |
362 |
PTRACERS_READPARMS |
CALL WRITE_0D_RL( PTRACERS_EvPrRn(iTracer), INDEX_NONE, |
|
./pkg/ptracers/ptracers_readparms.F |
66 |
PTRACERS_READPARMS |
& PTRACERS_EvPrRn, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
126 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
132 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
154 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
162 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
175 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
183 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
125 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
153 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
161 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
174 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
182 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |