| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_driver.F |
41 |
ADMTLM_DRIVER |
_RL myCurrentTime |
|
./pkg/admtlm/admtlm_driver.F |
51 |
ADMTLM_DRIVER |
myCurrentTime = startTime |
|
./pkg/admtlm/admtlm_driver.F |
58 |
ADMTLM_DRIVER |
CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid ) |
|
./pkg/admtlm/admtlm_driver.F |
61 |
ADMTLM_DRIVER |
myCurrentTime = startTime |
|
./pkg/admtlm/admtlm_driver.F |
81 |
ADMTLM_DRIVER |
CALL ADTHE_MAIN_LOOP ( myCurrentTime, myCurrentIter, mythid ) |
|
./pkg/ptracers/ptracers_write_state.F |
88 |
PTRACERS_WRITE_STATE |
iRec = int ( (myCurrentTime-startTime) |
|
./pkg/ptracers/ptracers_write_state.F |
94 |
PTRACERS_WRITE_STATE |
iRec = int ( (myCurrentTime-startTime) |
|
./pkg/pp81/pp81_do_diags.F |
10 |
PP81_DO_DIAGS |
SUBROUTINE PP81_DO_DIAGS( myCurrentTime, myIter, myThid ) |
|
./pkg/pp81/pp81_do_diags.F |
131 |
PP81_DO_DIAGS |
& DIFFERENT_MULTIPLE(PPtaveFreq,myCurrentTime,deltaTClock) |
|
./pkg/pp81/pp81_do_diags.F |
152 |
PP81_DO_DIAGS |
& DIFFERENT_MULTIPLE(PPtaveFreq,myCurrentTime,deltaTClock) |
|
./pkg/pp81/pp81_do_diags.F |
55 |
PP81_DO_DIAGS |
_RL myCurrentTime |
|
./pkg/pp81/pp81_do_diags.F |
75 |
PP81_DO_DIAGS |
& DIFFERENT_MULTIPLE(PPdumpFreq,myCurrentTime,deltaTClock) |
|
./pkg/flt/flt_traj.F |
102 |
FLT_TRAJ |
tmp(3) = myCurrentTime |
|
./pkg/flt/flt_traj.F |
122 |
FLT_TRAJ |
tmp(2) = myCurrentTime |
|
./pkg/flt/flt_traj.F |
128 |
FLT_TRAJ |
& ( myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
130 |
FLT_TRAJ |
& ( tend(ip,bi,bj).eq.-1. .or. myCurrentTime.le. tend(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
38 |
FLT_TRAJ |
_RL myCurrentTime |
|
./pkg/flt/flt_traj.F |
90 |
FLT_TRAJ |
tmp(2) = myCurrentTime |
|
./pkg/flt/flt_traj.F |
9 |
FLT_TRAJ |
I myCurrentTime, |
|
./pkg/flt/flt_init.F |
39 |
FLT_INIT |
_RL myCurrentTime |
|
./pkg/flt/flt_init.F |
6 |
FLT_INIT |
subroutine FLT_INIT ( myCurrentIter,myCurrentTime, myThid ) |
|
./pkg/flt/flt_runga2.F |
42 |
FLT_RUNGA2 |
_RL myCurrentTime |
|
./pkg/flt/flt_runga2.F |
81 |
FLT_RUNGA2 |
& (tend(ip,bi,bj).ne.-1. .and. myCurrentTime.gt. tend(ip,bi,bj))) |
|
./pkg/flt/flt_runga2.F |
88 |
FLT_RUNGA2 |
& (tstart(ip,bi,bj).eq.-1. .or. myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
8 |
FLT_RUNGA2 |
I myCurrentTime, |
|
./pkg/flt/flt_runga2.F |
90 |
FLT_RUNGA2 |
& ( tend(ip,bi,bj).eq.-1. .or. myCurrentTime.le. tend(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
103 |
FLT_UP |
tmp(3) = myCurrentTime |
|
./pkg/flt/flt_up.F |
121 |
FLT_UP |
& ( myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
123 |
FLT_UP |
& (tend(ip,bi,bj).eq.-1..or.myCurrentTime.le.tend(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
135 |
FLT_UP |
if(mod(myCurrentTime,iup(ip,bi,bj)).eq.0.) |
|
./pkg/flt/flt_up.F |
143 |
FLT_UP |
& (tend(ip,bi,bj).ne.-1..and.myCurrentTime.gt.tend(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
156 |
FLT_UP |
tmp(2) = myCurrentTime |
|
./pkg/flt/flt_up.F |
162 |
FLT_UP |
& ( myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
164 |
FLT_UP |
& (tend(ip,bi,bj).eq.-1..or.myCurrentTime.le.tend(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
39 |
FLT_UP |
_RL myCurrentTime |
|
./pkg/flt/flt_up.F |
8 |
FLT_UP |
I myCurrentTime, |
|
./pkg/flt/flt_up.F |
91 |
FLT_UP |
tmp(2) = myCurrentTime |
|
./pkg/flt/flt_exchg.F |
39 |
FLT_EXCHG |
_RL myCurrentTime |
|
./pkg/flt/flt_exchg.F |
8 |
FLT_EXCHG |
I myCurrentTime, |
|
./pkg/flt/flt_restart.F |
34 |
FLT_RESTART |
_RL myCurrentTime |
|
./pkg/flt/flt_restart.F |
55 |
FLT_RESTART |
tmp(3) = myCurrentTime |
|
./pkg/flt/flt_restart.F |
9 |
FLT_RESTART |
I myCurrentTime, |
|
./pkg/flt/flt_main.F |
101 |
FLT_MAIN |
call FLT_EXCHG(myCurrentIter,myCurrentTime,myThid) |
|
./pkg/flt/flt_main.F |
109 |
FLT_MAIN |
if (mod(myCurrentTime,flt_int_prof).eq.0.) then |
|
./pkg/flt/flt_main.F |
111 |
FLT_MAIN |
call FLT_UP(myCurrentIter,myCurrentTime,myThid) |
|
./pkg/flt/flt_main.F |
116 |
FLT_MAIN |
call FLT_DOWN(MyCurrentIter,myCurrentTime,myThid) |
|
./pkg/flt/flt_main.F |
121 |
FLT_MAIN |
if (mod(myCurrentTime,flt_int_traj).eq.0.) then |
|
./pkg/flt/flt_main.F |
123 |
FLT_MAIN |
call FLT_TRAJ(myCurrentIter,myCurrentTime,myThid) |
|
./pkg/flt/flt_main.F |
54 |
FLT_MAIN |
I myCurrentTime, |
|
./pkg/flt/flt_main.F |
89 |
FLT_MAIN |
_RL myCurrentTime |
|
./pkg/flt/flt_main.F |
94 |
FLT_MAIN |
call FLT_RUNGA2(myCurrentIter,myCurrentTime,myThid) |
|
./pkg/flt/flt_down.F |
32 |
FLT_DOWN |
_RL myCurrentTime |
|
./pkg/flt/flt_down.F |
48 |
FLT_DOWN |
& ( myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_down.F |
50 |
FLT_DOWN |
& ( tend(ip,bi,bj).eq.-1. .or. myCurrentTime.le. tend(ip,bi,bj)) |
|
./pkg/flt/flt_down.F |
65 |
FLT_DOWN |
if(mod(myCurrentTime,iup(ip,bi,bj)).eq.itop(ip,bi,bj)) |
|
./pkg/flt/flt_down.F |
8 |
FLT_DOWN |
I myCurrentTime, |
|
./model/src/taueddy_external_forcing.F |
114 |
TAUEDDY_EXTERNAL_FORCING_V |
_RL myCurrentTime |
|
./model/src/taueddy_external_forcing.F |
11 |
TAUEDDY_EXTERNAL_FORCING_U |
I myCurrentTime,myThid) |
|
./model/src/taueddy_external_forcing.F |
40 |
TAUEDDY_EXTERNAL_FORCING_U |
_RL myCurrentTime |
|
./model/src/taueddy_external_forcing.F |
85 |
TAUEDDY_EXTERNAL_FORCING_V |
I myCurrentTime,myThid) |
|
./verification/OpenAD/code_ad_openad/the_model_main.F |
493 |
THE_MODEL_MAIN |
_RL myCurrentTime |
|
./verification/OpenAD/code_ad_openad/the_model_main.F |
530 |
THE_MODEL_MAIN |
myCurrentTime = startTime |
|
./verification/OpenAD/code_ad_openad/the_model_main.F |
563 |
THE_MODEL_MAIN |
CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid ) |
|
./verification/OpenAD/code_ad_openad/the_model_main.F |
574 |
THE_MODEL_MAIN |
CALL MDTHE_MAIN_LOOP ( myCurrentTime, myCurrentIter, mythid ) |
|
./verification/OpenAD/code_ad_openad/the_model_main.F |
579 |
THE_MODEL_MAIN |
CALL ADTHE_MAIN_LOOP ( myCurrentTime, myCurrentIter, mythid ) |
|
./verification/OpenAD/code_ad_openad/the_model_main.F |
586 |
THE_MODEL_MAIN |
CALL ADTHE_MAIN_LOOP ( myCurrentTime, myCurrentIter, mythid ) |
|
./verification/OpenAD/code_ad_openad/the_model_main.F |
605 |
THE_MODEL_MAIN |
CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |
|
./verification/OpenAD/code_ad_openad/the_model_main.F |
643 |
THE_MODEL_MAIN |
CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |
|
./verification/OpenAD/code_ad_openad/the_model_main.F |
651 |
THE_MODEL_MAIN |
I .TRUE., myCurrentTime, myCurrentIter, myThid ) |
|
./verification/OpenAD/code_ad_openad/the_model_main.F |
653 |
THE_MODEL_MAIN |
I .TRUE., myCurrentTime, myCurrentIter, myThid ) |
|
./model/src/the_model_main.F |
489 |
THE_MODEL_MAIN |
_RL myCurrentTime |
|
./model/src/the_model_main.F |
515 |
THE_MODEL_MAIN |
myCurrentTime = startTime |
|
./model/src/the_model_main.F |
548 |
THE_MODEL_MAIN |
CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid ) |
|
./model/src/the_model_main.F |
559 |
THE_MODEL_MAIN |
CALL MDTHE_MAIN_LOOP ( myCurrentTime, myCurrentIter, mythid ) |
|
./model/src/the_model_main.F |
564 |
THE_MODEL_MAIN |
CALL ADTHE_MAIN_LOOP ( myCurrentTime, myCurrentIter, mythid ) |
|
./model/src/the_model_main.F |
571 |
THE_MODEL_MAIN |
CALL ADTHE_MAIN_LOOP ( myCurrentTime, myCurrentIter, mythid ) |
|
./model/src/the_model_main.F |
583 |
THE_MODEL_MAIN |
CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |
|
./model/src/the_model_main.F |
622 |
THE_MODEL_MAIN |
CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |
|
./model/src/the_model_main.F |
630 |
THE_MODEL_MAIN |
I .TRUE., myCurrentTime, myCurrentIter, myThid ) |
|
./model/src/the_model_main.F |
632 |
THE_MODEL_MAIN |
I .TRUE., myCurrentTime, myCurrentIter, myThid ) |
|
./pkg/ggl90/ggl90_do_diags.F |
10 |
GGL90_DO_DIAGS |
SUBROUTINE GGL90_DO_DIAGS( myCurrentTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_do_diags.F |
138 |
GGL90_DO_DIAGS |
& DIFFERENT_MULTIPLE(GGL90taveFreq,myCurrentTime,deltaTClock) |
|
./pkg/ggl90/ggl90_do_diags.F |
161 |
GGL90_DO_DIAGS |
& DIFFERENT_MULTIPLE(GGL90taveFreq,myCurrentTime,deltaTClock) |
|
./pkg/ggl90/ggl90_do_diags.F |
55 |
GGL90_DO_DIAGS |
_RL myCurrentTime |
|
./pkg/ggl90/ggl90_do_diags.F |
75 |
GGL90_DO_DIAGS |
& DIFFERENT_MULTIPLE(GGL90dumpFreq,myCurrentTime,deltaTClock) |
|
./pkg/opps/opps_do_diags.F |
10 |
OPPS_DO_DIAGS |
SUBROUTINE OPPS_DO_DIAGS( myCurrentTime, myIter, myThid ) |
|
./pkg/opps/opps_do_diags.F |
120 |
OPPS_DO_DIAGS |
& DIFFERENT_MULTIPLE(OPPStaveFreq,myCurrentTime,deltaTClock) |
|
./pkg/opps/opps_do_diags.F |
138 |
OPPS_DO_DIAGS |
& myCurrentTime,deltaTClock) |
|
./pkg/opps/opps_do_diags.F |
55 |
OPPS_DO_DIAGS |
_RL myCurrentTime |
|
./pkg/obcs/obcs_prescribe_read.F |
229 |
OBCS_PRESCRIBE_READ |
& myCurrentTime, myCurrentIter, myThid ) |
|
./pkg/obcs/obcs_sponge.F |
10 |
OBCS_SPONGE_U |
I myCurrentTime,myThid) |
|
./pkg/obcs/obcs_sponge.F |
204 |
OBCS_SPONGE_V |
I myCurrentTime,myThid) |
|
./pkg/obcs/obcs_sponge.F |
235 |
OBCS_SPONGE_V |
_RL myCurrentTime |
|
./pkg/obcs/obcs_sponge.F |
400 |
OBCS_SPONGE_T |
I myCurrentTime,myThid) |
|
./pkg/obcs/obcs_sponge.F |
41 |
OBCS_SPONGE_U |
_RL myCurrentTime |
|
./pkg/obcs/obcs_sponge.F |
435 |
OBCS_SPONGE_T |
_RL myCurrentTime |
|
./pkg/obcs/obcs_sponge.F |
642 |
OBCS_SPONGE_S |
I myCurrentTime,myThid) |
|
./pkg/obcs/obcs_sponge.F |
677 |
OBCS_SPONGE_S |
_RL myCurrentTime |
|
./pkg/obcs/obcs_diags.F |
41 |
OBCS_DIAGS |
_RL myCurrentTime |
|
./pkg/obcs/obcs_diags.F |
49 |
OBCS_DIAGS |
& DIFFERENT_MULTIPLE(dumpFreq,myCurrentTime,deltaTClock) |
|
./pkg/obcs/obcs_diags.F |
4 |
OBCS_DIAGS |
SUBROUTINE OBCS_DIAGS(myCurrentTime, myIter, myThid) |
|
./pkg/ocn_compon_interf/cpl_export_my_data.F |
28 |
CPL_EXPORT_MY_DATA |
_RL myCurrentTime |
|
./pkg/ocn_compon_interf/cpl_export_my_data.F |
38 |
CPL_EXPORT_MY_DATA |
I myCurrentTime, myCurrentIter, bi,bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_export_my_data.F |
8 |
CPL_EXPORT_MY_DATA |
I myCurrentIter, myCurrentTime, myThid ) |
|
./pkg/sbo/sbo_diags.F |
116 |
SBO_DIAGS |
& DIFFERENT_MULTIPLE(sbo_taveFreq,myCurrentTime,deltaTClock) |
|
./pkg/sbo/sbo_diags.F |
23 |
SBO_DIAGS |
_RL myCurrentTime |
|
./pkg/sbo/sbo_diags.F |
48 |
SBO_DIAGS |
sbo_diag(1) = myCurrentTime |
|
./pkg/sbo/sbo_diags.F |
66 |
SBO_DIAGS |
irecord = myCurrentTime/deltaTClock |
|
./pkg/sbo/sbo_diags.F |
6 |
SBO_DIAGS |
SUBROUTINE SBO_DIAGS( myCurrentTime, myIter, myThid ) |
|
./pkg/sbo/sbo_diags.F |
96 |
SBO_DIAGS |
& DIFFERENT_MULTIPLE(sbo_taveFreq,myCurrentTime,deltaTClock) |
|
./pkg/sbo/sbo_calc.F |
10 |
SBO_CALC |
SUBROUTINE SBO_CALC( myCurrentTime, myIter, myThid ) |
|
./pkg/sbo/sbo_calc.F |
131 |
SBO_CALC |
_RL myCurrentTime |
|
./pkg/my82/my82_do_diags.F |
10 |
MY82_DO_DIAGS |
SUBROUTINE MY82_DO_DIAGS( myCurrentTime, myIter, myThid ) |
|
./pkg/my82/my82_do_diags.F |
139 |
MY82_DO_DIAGS |
& DIFFERENT_MULTIPLE(MYtaveFreq,myCurrentTime,deltaTClock) |
|
./pkg/my82/my82_do_diags.F |
162 |
MY82_DO_DIAGS |
& DIFFERENT_MULTIPLE(MYtaveFreq,myCurrentTime,deltaTClock) |
|
./pkg/my82/my82_do_diags.F |
55 |
MY82_DO_DIAGS |
_RL myCurrentTime |
|
./pkg/my82/my82_do_diags.F |
76 |
MY82_DO_DIAGS |
& myCurrentTime,deltaTClock) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
25 |
SHAP_FILT_TRACEROLD |
_RL myCurrentTime |
|
./pkg/shap_filt/shap_filt_tracerold.F |
8 |
SHAP_FILT_TRACEROLD |
I bi, bj, K, myCurrentTime, myThid ) |
|
./pkg/shap_filt/shap_filt_u.F |
24 |
SHAP_FILT_U |
_RL myCurrentTime |
|
./pkg/shap_filt/shap_filt_u.F |
6 |
SHAP_FILT_U |
SUBROUTINE SHAP_FILT_U(uVel,bi,bj,K,myCurrentTime,myThid) |
|
./pkg/shap_filt/shap_filt_v.F |
24 |
SHAP_FILT_V |
_RL myCurrentTime |
|
./pkg/shap_filt/shap_filt_v.F |
6 |
SHAP_FILT_V |
SUBROUTINE SHAP_FILT_V( vVel,bi,bj,K,myCurrentTime,myThid ) |