| File |
Line number |
Procedure |
Code |
|
./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 |
|
./pkg/ecco/cost_argo_salt.F |
132 |
COST_ARGO_SALT |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_argo_salt.F |
139 |
COST_ARGO_SALT |
imonth = irec |
|
./pkg/ecco/cost_argo_salt.F |
143 |
COST_ARGO_SALT |
& imonth, mythid) |
|
./pkg/ecco/cost_argo_salt.F |
78 |
COST_ARGO_SALT |
integer iyear, imonth |
|
./pkg/ecco/cost_argo_theta.F |
135 |
COST_ARGO_THETA |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_argo_theta.F |
142 |
COST_ARGO_THETA |
imonth = irec |
|
./pkg/ecco/cost_argo_theta.F |
146 |
COST_ARGO_THETA |
& imonth, mythid) |
|
./pkg/ecco/cost_argo_theta.F |
77 |
COST_ARGO_THETA |
integer iyear, imonth |
|
./pkg/ecco/cost_bp_read.F |
101 |
COST_BP_READ |
& bpdat, imonth, mythid ) |
|
./pkg/ecco/cost_bp_read.F |
62 |
COST_BP_READ |
integer iyear, imonth |
|
./pkg/ecco/cost_bp_read.F |
89 |
COST_BP_READ |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_bp_read.F |
97 |
COST_BP_READ |
imonth = irec |
|
./pkg/ecco/cost_ctds.F |
131 |
COST_CTDS |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_ctds.F |
138 |
COST_CTDS |
imonth = irec |
|
./pkg/ecco/cost_ctds.F |
142 |
COST_CTDS |
& imonth, mythid) |
|
./pkg/ecco/cost_ctds.F |
78 |
COST_CTDS |
integer iyear, imonth |
|
./pkg/ecco/cost_ctdt.F |
132 |
COST_CTDT |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_ctdt.F |
139 |
COST_CTDT |
imonth = irec |
|
./pkg/ecco/cost_ctdt.F |
143 |
COST_CTDT |
& imonth, mythid) |
|
./pkg/ecco/cost_ctdt.F |
79 |
COST_CTDT |
integer iyear, imonth |
|
./pkg/ecco/cost_readscatxfields.F |
105 |
COST_READSCATXFIELDS |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_readscatxfields.F |
113 |
COST_READSCATXFIELDS |
imonth = irec |
|
./pkg/ecco/cost_readscatxfields.F |
117 |
COST_READSCATXFIELDS |
& scatxdat, imonth, mythid ) |
|
./pkg/ecco/cost_readscatxfields.F |
65 |
COST_READSCATXFIELDS |
integer iyear, imonth |
|
./pkg/ecco/cost_readscatyfields.F |
104 |
COST_READSCATYFIELDS |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_readscatyfields.F |
112 |
COST_READSCATYFIELDS |
imonth = irec |
|
./pkg/ecco/cost_readscatyfields.F |
116 |
COST_READSCATYFIELDS |
& scatydat, imonth, mythid ) |
|
./pkg/ecco/cost_readscatyfields.F |
65 |
COST_READSCATYFIELDS |
integer iyear, imonth |
|
./pkg/ecco/cost_xbt.F |
137 |
COST_XBT |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_xbt.F |
144 |
COST_XBT |
imonth = irec |
|
./pkg/ecco/cost_xbt.F |
148 |
COST_XBT |
& imonth, mythid) |
|
./pkg/ecco/cost_xbt.F |
78 |
COST_XBT |
integer iyear, imonth |