| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_xbt.F |
136 |
COST_XBT |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_xbt.F |
143 |
COST_XBT |
imonth = irec |
|
./pkg/ecco/cost_xbt.F |
147 |
COST_XBT |
& imonth, mythid) |
|
./pkg/ecco/cost_xbt.F |
77 |
COST_XBT |
integer iyear, imonth |
|
./pkg/ecco/cost_argo_theta.F |
134 |
COST_ARGO_THETA |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_argo_theta.F |
141 |
COST_ARGO_THETA |
imonth = irec |
|
./pkg/ecco/cost_argo_theta.F |
145 |
COST_ARGO_THETA |
& imonth, mythid) |
|
./pkg/ecco/cost_argo_theta.F |
76 |
COST_ARGO_THETA |
integer iyear, imonth |
|
./pkg/ecco/cost_readscatyfields.F |
103 |
COST_READSCATYFIELDS |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_readscatyfields.F |
111 |
COST_READSCATYFIELDS |
imonth = irec |
|
./pkg/ecco/cost_readscatyfields.F |
115 |
COST_READSCATYFIELDS |
& scatydat, imonth, mythid ) |
|
./pkg/ecco/cost_readscatyfields.F |
64 |
COST_READSCATYFIELDS |
integer iyear, imonth |
|
./pkg/ecco/cost_readsstfields.F |
103 |
COST_READSSTFIELDS |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_readsstfields.F |
111 |
COST_READSSTFIELDS |
imonth = irec |
|
./pkg/ecco/cost_readsstfields.F |
115 |
COST_READSSTFIELDS |
& imonth, mythid ) |
|
./pkg/ecco/cost_readsstfields.F |
64 |
COST_READSSTFIELDS |
integer iyear, imonth |
|
./pkg/ecco/cost_argo_salt.F |
131 |
COST_ARGO_SALT |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_argo_salt.F |
138 |
COST_ARGO_SALT |
imonth = irec |
|
./pkg/ecco/cost_argo_salt.F |
142 |
COST_ARGO_SALT |
& imonth, mythid) |
|
./pkg/ecco/cost_argo_salt.F |
77 |
COST_ARGO_SALT |
integer iyear, imonth |
|
./pkg/ecco/cost_ctdt.F |
131 |
COST_CTDT |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_ctdt.F |
138 |
COST_CTDT |
imonth = irec |
|
./pkg/ecco/cost_ctdt.F |
142 |
COST_CTDT |
& imonth, mythid) |
|
./pkg/ecco/cost_ctdt.F |
78 |
COST_CTDT |
integer iyear, imonth |
|
./pkg/ecco/cost_readsssfields.F |
103 |
COST_READSSSFIELDS |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_readsssfields.F |
111 |
COST_READSSSFIELDS |
imonth = irec |
|
./pkg/ecco/cost_readsssfields.F |
115 |
COST_READSSSFIELDS |
& imonth, mythid ) |
|
./pkg/ecco/cost_readsssfields.F |
64 |
COST_READSSSFIELDS |
integer iyear, imonth |
|
./pkg/ecco/cost_readtmifields.F |
103 |
COST_READTMIFIELDS |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_readtmifields.F |
111 |
COST_READTMIFIELDS |
imonth = tmirec |
|
./pkg/ecco/cost_readtmifields.F |
118 |
COST_READTMIFIELDS |
& imonth, mythid ) |
|
./pkg/ecco/cost_readtmifields.F |
64 |
COST_READTMIFIELDS |
integer iyear, imonth |
|
./pkg/ecco/cost_ctds.F |
130 |
COST_CTDS |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_ctds.F |
137 |
COST_CTDS |
imonth = irec |
|
./pkg/ecco/cost_ctds.F |
141 |
COST_CTDS |
& imonth, mythid) |
|
./pkg/ecco/cost_ctds.F |
77 |
COST_CTDS |
integer iyear, imonth |
|
./pkg/ecco/cost_readscatxfields.F |
104 |
COST_READSCATXFIELDS |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_readscatxfields.F |
112 |
COST_READSCATXFIELDS |
imonth = irec |
|
./pkg/ecco/cost_readscatxfields.F |
116 |
COST_READSCATXFIELDS |
& scatxdat, imonth, mythid ) |
|
./pkg/ecco/cost_readscatxfields.F |
64 |
COST_READSCATXFIELDS |
integer iyear, imonth |
|
./pkg/cal/cal_daysformonth.F |
131 |
CAL_DAYSFORMONTH |
if ( imonth .eq. 1 ) then |
|
./pkg/cal/cal_daysformonth.F |
134 |
CAL_DAYSFORMONTH |
else if ( ( imonth .gt. 1 ) .and. |
|
./pkg/cal/cal_daysformonth.F |
135 |
CAL_DAYSFORMONTH |
& ( imonth .lt. nummonths ) ) then |
|
./pkg/cal/cal_daysformonth.F |
140 |
CAL_DAYSFORMONTH |
do i = 2,imonth-1 |
|
./pkg/cal/cal_daysformonth.F |
156 |
CAL_DAYSFORMONTH |
else if ( imonth .eq. nummonths ) then |
|
./pkg/cal/cal_daysformonth.F |
41 |
CAL_DAYSFORMONTH |
integer imonth |
|
./pkg/cal/cal_daysformonth.F |
7 |
CAL_DAYSFORMONTH |
I imonth, |
|
./pkg/cal/cal_daysformonth.F |
91 |
CAL_DAYSFORMONTH |
if ( imonth .eq. 1 ) then |