| 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 |
107 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/ptracers/ptracers_forcing_surf.F |
115 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
128 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/ptracers/ptracers_forcing_surf.F |
136 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
79 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./pkg/ptracers/ptracers_forcing_surf.F |
85 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./pkg/ptracers/ptracers_readparms.F |
109 |
PTRACERS_READPARMS |
PTRACERS_EvPrRn(iTracer)=UNSET_RL |
|
./pkg/ptracers/ptracers_readparms.F |
348 |
PTRACERS_READPARMS |
CALL WRITE_0D_RL( PTRACERS_EvPrRn(iTracer), INDEX_NONE, |
|
./pkg/ptracers/ptracers_readparms.F |
62 |
PTRACERS_READPARMS |
& PTRACERS_EvPrRn, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
108 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
116 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
129 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
137 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
80 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
86 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
107 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
115 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
128 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
136 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_ref(ks,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
79 |
PTRACERS_FORCING_SURF |
IF (PTRACERS_EvPrRn(iTrc).NE.UNSET_RL) THEN |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
85 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |