File |
Line number |
Procedure |
Code |
./model/src/adams_bashforth3.F |
110 |
ADAMS_BASHFORTH3 |
& + ab1*gTrNm(i,j,k,bi,bj,m1) |
./model/src/adams_bashforth3.F |
122 |
ADAMS_BASHFORTH3 |
& + ab1*gTrNm(i,j,k,bi,bj,m1) |
./model/src/adams_bashforth3.F |
79 |
ADAMS_BASHFORTH3 |
INTEGER i,j, k, m1,m2 |
./model/src/adams_bashforth3.F |
83 |
ADAMS_BASHFORTH3 |
m1 = 1 + MOD(myIter+1,2) |
./pkg/monitor/mon_ke.F |
176 |
MON_KE |
m1 = 1 + mod(myIter+1,2) |
./pkg/monitor/mon_ke.F |
195 |
MON_KE |
tmpVal = abFac1*guNm(i,j,k,bi,bj,m1) |
./pkg/monitor/mon_ke.F |
234 |
MON_KE |
tmpVal = abFac1*gvNm(i,j,k,bi,bj,m1) |
./pkg/monitor/mon_ke.F |
52 |
MON_KE |
INTEGER m1, m2 |
./model/src/read_pickup.F |
280 |
READ_PICKUP |
m1 = 1 + MOD(myIter+1,2) |
./model/src/read_pickup.F |
285 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'GuNm1 ',guNm(1-OLx,1-OLy,1,1,1,m1), |
./model/src/read_pickup.F |
294 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'GvNm1 ',gvNm(1-OLx,1-OLy,1,1,1,m1), |
./model/src/read_pickup.F |
305 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'GtNm1 ',gtNm(1-OLx,1-OLy,1,1,1,m1), |
./model/src/read_pickup.F |
314 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'TempNm1 ',gtNm(1-OLx,1-OLy,1,1,1,m1), |
./model/src/read_pickup.F |
325 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'GsNm1 ',gsNm(1-OLx,1-OLy,1,1,1,m1), |
./model/src/read_pickup.F |
334 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'SaltNm1 ',gsNm(1-OLx,1-OLy,1,1,1,m1), |
./model/src/read_pickup.F |
346 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'GwNm1 ',gwNm(1-OLx,1-OLy,1,1,1,m1), |
./model/src/read_pickup.F |
71 |
READ_PICKUP |
INTEGER m1, m2 |
./model/src/write_pickup.F |
139 |
WRITE_PICKUP |
m1 = 1 + MOD(myIter+1,2) |
./model/src/write_pickup.F |
145 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm(1-OLx,1-OLy,1,1,1,m1), |
./model/src/write_pickup.F |
158 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm(1-OLx,1-OLy,1,1,1,m1), |
./model/src/write_pickup.F |
173 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm(1-OLx,1-OLy,1,1,1,m1), |
./model/src/write_pickup.F |
194 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm(1-OLx,1-OLy,1,1,1,m1), |
./model/src/write_pickup.F |
216 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm(1-OLx,1-OLy,1,1,1,m1), |
./model/src/write_pickup.F |
77 |
WRITE_PICKUP |
INTEGER m1, m2 |
./pkg/diagnostics/diagnostics_fill_state.F |
443 |
DIAGNOSTICS_FILL_STATE |
m1 = 1 + MOD(myIter,2) |
./pkg/diagnostics/diagnostics_fill_state.F |
446 |
DIAGNOSTICS_FILL_STATE |
m1 = 1 + MOD(myIter+1,2) |
./pkg/diagnostics/diagnostics_fill_state.F |
449 |
DIAGNOSTICS_FILL_STATE |
& CALL DIAGNOSTICS_FILL( gtNm(1-OLx,1-OLy,1,1,1,m1), |
./pkg/diagnostics/diagnostics_fill_state.F |
452 |
DIAGNOSTICS_FILL_STATE |
& CALL DIAGNOSTICS_FILL( gsNm(1-OLx,1-OLy,1,1,1,m1), |
./pkg/diagnostics/diagnostics_fill_state.F |
59 |
DIAGNOSTICS_FILL_STATE |
INTEGER m1 |
./pkg/diagnostics/diagnostics_list_check.F |
206 |
DIAGNOSTICS_LIST_CHECK |
m1 = 1 |
./pkg/diagnostics/diagnostics_list_check.F |
50 |
DIAGNOSTICS_LIST_CHECK |
INTEGER n,m,m1,i |
./pkg/diagnostics/diagnostics_list_check.F |
56 |
DIAGNOSTICS_LIST_CHECK |
m1 = md |
./pkg/diagnostics/diagnostics_list_check.F |
58 |
DIAGNOSTICS_LIST_CHECK |
DO m = m1,nbFlds(n) |