| 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 |
162 |
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 |
133 |
COST_ARGO_SALT |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_argo_salt.F |
140 |
COST_ARGO_SALT |
imonth = irec |
|
./pkg/ecco/cost_argo_salt.F |
144 |
COST_ARGO_SALT |
& imonth, mythid) |
|
./pkg/ecco/cost_argo_salt.F |
79 |
COST_ARGO_SALT |
integer iyear, imonth |
|
./pkg/ecco/cost_argo_theta.F |
136 |
COST_ARGO_THETA |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_argo_theta.F |
143 |
COST_ARGO_THETA |
imonth = irec |
|
./pkg/ecco/cost_argo_theta.F |
147 |
COST_ARGO_THETA |
& imonth, mythid) |
|
./pkg/ecco/cost_argo_theta.F |
78 |
COST_ARGO_THETA |
integer iyear, imonth |
|
./pkg/ecco/cost_bp_read.F |
107 |
COST_BP_READ |
imonth = obsrec |
|
./pkg/ecco/cost_bp_read.F |
110 |
COST_BP_READ |
if ( (obsrec.GT.0).AND.(imonth.GT.0) ) then |
|
./pkg/ecco/cost_bp_read.F |
112 |
COST_BP_READ |
& bpdat, imonth, mythid ) |
|
./pkg/ecco/cost_bp_read.F |
64 |
COST_BP_READ |
integer iyear, imonth |
|
./pkg/ecco/cost_bp_read.F |
99 |
COST_BP_READ |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_ctds.F |
132 |
COST_CTDS |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_ctds.F |
139 |
COST_CTDS |
imonth = irec |
|
./pkg/ecco/cost_ctds.F |
143 |
COST_CTDS |
& imonth, mythid) |
|
./pkg/ecco/cost_ctds.F |
79 |
COST_CTDS |
integer iyear, imonth |
|
./pkg/ecco/cost_ctdt.F |
133 |
COST_CTDT |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_ctdt.F |
140 |
COST_CTDT |
imonth = irec |
|
./pkg/ecco/cost_ctdt.F |
144 |
COST_CTDT |
& imonth, mythid) |
|
./pkg/ecco/cost_ctdt.F |
80 |
COST_CTDT |
integer iyear, imonth |
|
./pkg/ecco/cost_xbt.F |
138 |
COST_XBT |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_xbt.F |
145 |
COST_XBT |
imonth = irec |
|
./pkg/ecco/cost_xbt.F |
149 |
COST_XBT |
& imonth, mythid) |
|
./pkg/ecco/cost_xbt.F |
79 |
COST_XBT |
integer iyear, imonth |