| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
34 |
DO_FIZHI |
integer myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
|
./pkg/fizhi/do_fizhi.F |
4 |
DO_FIZHI |
subroutine DO_FIZHI(myIter,myid, |
|
./pkg/fizhi/fizhi_read_pickup.F |
102 |
FIZHI_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter |
|
./pkg/fizhi/fizhi_read_pickup.F |
35 |
FIZHI_READ_PICKUP |
INTEGER myIter |
|
./pkg/fizhi/fizhi_read_pickup.F |
50 |
FIZHI_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter |
|
./pkg/fizhi/fizhi_read_pickup.F |
56 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,uphy, 1,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
57 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,vphy, 2,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
58 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,thphy, 3,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
59 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,sphy, 4,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
60 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldtot_lw, 5,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
61 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldras_lw, 6,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
62 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldlsp_lw, 7,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
63 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,lwlz, 8,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
64 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldtot_sw, 9,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
65 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldras_sw,10,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
66 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldlsp_sw,11,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
67 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,swlz, 12,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
68 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,qliqavelw,13,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
69 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,qliqavesw,14,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
70 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,fccavelw, 15,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
71 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,fccavesw, 16,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
72 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,temp, 17,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
9 |
FIZHI_READ_PICKUP |
SUBROUTINE FIZHI_READ_PICKUP( myIter, myThid ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
39 |
FIZHI_WRITE_VEGTILES |
INTEGER myIter |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
76 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_I_W_S('I',bnam,0,0,'iter',myIter,myThid) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
9 |
FIZHI_WRITE_VEGTILES |
SUBROUTINE FIZHI_WRITE_VEGTILES(fn,pickupflg,myTime,myIter,myThid) |
|
./pkg/fizhi/fizhi_update_time.F |
20 |
FIZHI_UPDATE_TIME |
integer myIter, myThid |
|
./pkg/fizhi/fizhi_update_time.F |
5 |
FIZHI_UPDATE_TIME |
subroutine FIZHI_UPDATE_TIME (myIter,myThid,deltat) |
|
./pkg/fizhi/fizhi_wrapper.F |
261 |
FIZHI_WRAPPER |
call DO_FIZHI(myIter,myThid, |
|
./pkg/fizhi/fizhi_wrapper.F |
37 |
FIZHI_WRAPPER |
integer myIter, myThid |
|
./pkg/fizhi/fizhi_wrapper.F |
5 |
FIZHI_WRAPPER |
subroutine FIZHI_WRAPPER (myTime, myIter, myThid) |
|
./pkg/fizhi/fizhi_write_datetime.F |
19 |
FIZHI_WRITE_DATETIME |
integer myIter, myThid |
|
./pkg/fizhi/fizhi_write_datetime.F |
9 |
FIZHI_WRITE_DATETIME |
SUBROUTINE FIZHI_WRITE_DATETIME( myTime, myIter, myThid ) |
|
./pkg/fizhi/fizhi_write_pickup.F |
112 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,temp,17,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
38 |
FIZHI_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/fizhi/fizhi_write_pickup.F |
73 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,uphy, 1,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
74 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,vphy, 2,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
75 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,thphy, 3,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
76 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,sphy, 4,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
78 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldtot_lw, 5,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
79 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldras_lw, 6,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
80 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldlsp_lw, 7,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
81 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,lwlz, 8,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
82 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldtot_sw, 9,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
83 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldras_sw,10,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
84 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldlsp_sw,11,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
85 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,swlz, 12,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
86 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,qliqavelw,13,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
87 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,qliqavesw,14,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
88 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,fccavelw, 15,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
89 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,fccavesw, 16,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
8 |
FIZHI_WRITE_PICKUP |
SUBROUTINE FIZHI_WRITE_PICKUP( suff, myTime, myIter, myThid ) |
|
./pkg/fizhi/fizhi_write_state.F |
37 |
FIZHI_WRITE_STATE |
INTEGER myIter |
|
./pkg/fizhi/fizhi_write_state.F |
59 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,I10.10)' ) 'fizhi_U.', myIter |
|
./pkg/fizhi/fizhi_write_state.F |
60 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, uphy, 1, myIter,myThid ) |
|
./pkg/fizhi/fizhi_write_state.F |
61 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,I10.10)' ) 'fizhi_V.', myIter |
|
./pkg/fizhi/fizhi_write_state.F |
62 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, vphy, 1, myIter,myThid ) |
|
./pkg/fizhi/fizhi_write_state.F |
63 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,I10.10)' ) 'fizhi_T.', myIter |
|
./pkg/fizhi/fizhi_write_state.F |
64 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, thphy, 1, myIter,myThid ) |
|
./pkg/fizhi/fizhi_write_state.F |
65 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,I10.10)' ) 'fizhi_S.', myIter |
|
./pkg/fizhi/fizhi_write_state.F |
66 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, sphy, 1, myIter,myThid ) |
|
./pkg/fizhi/fizhi_write_state.F |
8 |
FIZHI_WRITE_STATE |
SUBROUTINE FIZHI_WRITE_STATE( myTime, myIter, myThid ) |
|
./pkg/fizhi/step_fizhi_corr.F |
35 |
STEP_FIZHI_CORR |
integer myIter, myThid |
|
./pkg/fizhi/step_fizhi_corr.F |
5 |
STEP_FIZHI_CORR |
subroutine STEP_FIZHI_CORR (myTime, myIter, myThid, dt) |
|
./pkg/fizhi/step_fizhi_fg.F |
24 |
STEP_FIZHI_FG |
integer myIter, myThid |
|
./pkg/fizhi/step_fizhi_fg.F |
5 |
STEP_FIZHI_FG |
subroutine STEP_FIZHI_FG (myTime, myIter, myThid, dt) |
|
./pkg/fizhi/update_chemistry_exports.F |
26 |
UPDATE_CHEMISTRY_EXPORTS |
integer myIter, myThid |
|
./pkg/fizhi/update_chemistry_exports.F |
5 |
UPDATE_CHEMISTRY_EXPORTS |
subroutine UPDATE_CHEMISTRY_EXPORTS (myTime, myIter, myThid) |
|
./pkg/fizhi/update_earth_exports.F |
30 |
UPDATE_EARTH_EXPORTS |
integer myIter, myThid |
|
./pkg/fizhi/update_earth_exports.F |
5 |
UPDATE_EARTH_EXPORTS |
subroutine UPDATE_EARTH_EXPORTS (myTime, myIter, myThid) |
|
./pkg/fizhi/update_ocean_exports.F |
25 |
UPDATE_OCEAN_EXPORTS |
integer myIter, myThid |
|
./pkg/fizhi/update_ocean_exports.F |
5 |
UPDATE_OCEAN_EXPORTS |
subroutine UPDATE_OCEAN_EXPORTS (myTime, myIter, myThid) |
|
./pkg/flt/flt_down.F |
27 |
FLT_DOWN |
INTEGER myIter, myThid |
|
./pkg/flt/flt_down.F |
7 |
FLT_DOWN |
I myTime, myIter, myThid ) |
|
./pkg/flt/flt_exch2.F |
341 |
FLT_EXCH2 |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 0x', myIter |
|
./pkg/flt/flt_exch2.F |
348 |
FLT_EXCH2 |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH2: 1x', myIter |
|
./pkg/flt/flt_exch2.F |
355 |
FLT_EXCH2 |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH2: 2x', myIter |
|
./pkg/flt/flt_exch2.F |
39 |
FLT_EXCH2 |
INTEGER myIter, myThid |
|
./pkg/flt/flt_exch2.F |
9 |
FLT_EXCH2 |
I myTime, myIter, myThid ) |
|
./pkg/flt/flt_exchg.F |
175 |
FLT_EXCHG |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 0x', myIter |
|
./pkg/flt/flt_exchg.F |
182 |
FLT_EXCHG |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 1x', myIter |
|
./pkg/flt/flt_exchg.F |
189 |
FLT_EXCHG |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 2x', myIter |
|
./pkg/flt/flt_exchg.F |
30 |
FLT_EXCHG |
INTEGER myIter, myThid |
|
./pkg/flt/flt_exchg.F |
395 |
FLT_EXCHG |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 0y', myIter |
|
./pkg/flt/flt_exchg.F |
402 |
FLT_EXCHG |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 1y', myIter |
|
./pkg/flt/flt_exchg.F |
409 |
FLT_EXCHG |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 2y', myIter |
|
./pkg/flt/flt_exchg.F |
8 |
FLT_EXCHG |
I myTime, myIter, myThid ) |
|
./pkg/flt/flt_main.F |
109 |
FLT_MAIN |
CALL FLT_EXCH2( myTime, myIter, myThid ) |
|
./pkg/flt/flt_main.F |
111 |
FLT_MAIN |
CALL FLT_EXCHG( myTime, myIter, myThid ) |
|
./pkg/flt/flt_main.F |
121 |
FLT_MAIN |
CALL FLT_UP( myTime, myIter, myThid ) |
|
./pkg/flt/flt_main.F |
127 |
FLT_MAIN |
CALL FLT_DOWN( myTime, myIter, myThid ) |
|
./pkg/flt/flt_main.F |
136 |
FLT_MAIN |
CALL FLT_TRAJ( myTime, myIter, myThid ) |
|
./pkg/flt/flt_main.F |
55 |
FLT_MAIN |
I myTime, myIter, myThid ) |
|
./pkg/flt/flt_main.F |
86 |
FLT_MAIN |
INTEGER myIter, myThid |
|
./pkg/flt/flt_main.F |
93 |
FLT_MAIN |
CALL FLT_RUNGA2( myTime, myIter, myThid ) |
|
./pkg/flt/flt_main.F |
99 |
FLT_MAIN |
CALL FLT_RUNGA4( myTime, myIter, myThid ) |
|
./pkg/flt/flt_runga2.F |
34 |
FLT_RUNGA2 |
INTEGER myIter, myThid |
|
./pkg/flt/flt_runga2.F |
7 |
FLT_RUNGA2 |
I myTime, myIter, myThid ) |
|
./pkg/flt/flt_runga4.F |
34 |
FLT_RUNGA4 |
INTEGER myIter, myThid |
|
./pkg/flt/flt_runga4.F |
7 |
FLT_RUNGA4 |
I myTime, myIter, myThid ) |
|
./pkg/flt/flt_traj.F |
103 |
FLT_TRAJ |
& bi,bj,-1, myIter, myThid ) |
|
./pkg/flt/flt_traj.F |
173 |
FLT_TRAJ |
& bi,bj,irecord, myIter, myThid ) |
|
./pkg/flt/flt_traj.F |
34 |
FLT_TRAJ |
INTEGER myIter, myThid |
|
./pkg/flt/flt_traj.F |
8 |
FLT_TRAJ |
I myTime, myIter, myThid ) |
|
./pkg/flt/flt_up.F |
164 |
FLT_UP |
& bi,bj,irecord, myIter, myThid ) |
|
./pkg/flt/flt_up.F |
31 |
FLT_UP |
INTEGER myIter, myThid |
|
./pkg/flt/flt_up.F |
7 |
FLT_UP |
I myTime, myIter, myThid ) |
|
./pkg/flt/flt_up.F |
95 |
FLT_UP |
& bi,bj,-1, myIter, myThid ) |
|
./pkg/flt/flt_write_pickup.F |
34 |
FLT_WRITE_PICKUP |
INTEGER myIter, myThid |
|
./pkg/flt/flt_write_pickup.F |
64 |
FLT_WRITE_PICKUP |
tmp(2) = myIter |
|
./pkg/flt/flt_write_pickup.F |
76 |
FLT_WRITE_PICKUP |
& bi,bj,-1, myIter, myThid ) |
|
./pkg/flt/flt_write_pickup.F |
8 |
FLT_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
|
./pkg/flt/flt_write_pickup.F |
95 |
FLT_WRITE_PICKUP |
& bi,bj,irecord, myIter, myThid ) |
|
./pkg/gchem/gchem_add_tendency.F |
11 |
GCHEM_ADD_TENDENCY |
& iTracer, myTime,myIter, myThid ) |
|
./pkg/gchem/gchem_add_tendency.F |
40 |
GCHEM_ADD_TENDENCY |
INTEGER myThid, myIter |
|
./pkg/gchem/gchem_calc_tendency.F |
108 |
GCHEM_CALC_TENDENCY |
& myIter, myTime, myThid ) |
|
./pkg/gchem/gchem_calc_tendency.F |
112 |
GCHEM_CALC_TENDENCY |
& myIter, myTime, myThid ) |
|
./pkg/gchem/gchem_calc_tendency.F |
11 |
GCHEM_CALC_TENDENCY |
I myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_calc_tendency.F |
39 |
GCHEM_CALC_TENDENCY |
INTEGER myThid, myIter |
|
./pkg/gchem/gchem_fields_load.F |
11 |
GCHEM_FIELDS_LOAD |
I myTime, myIter, myThid) |
|
./pkg/gchem/gchem_fields_load.F |
25 |
GCHEM_FIELDS_LOAD |
INTEGER myIter |
|
./pkg/gchem/gchem_fields_load.F |
37 |
GCHEM_FIELDS_LOAD |
CALL DIC_FIELDS_LOAD (myIter,myTime,myThid) |
|
./pkg/gchem/gchem_fields_load.F |
42 |
GCHEM_FIELDS_LOAD |
CALL CFC_FIELDS_LOAD(myIter,myTime,myThid) |
|
./pkg/gchem/gchem_fields_load.F |
47 |
GCHEM_FIELDS_LOAD |
call DARWIN_FIELDS_LOAD(myIter,myTime,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
116 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
125 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
132 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
144 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
147 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
150 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
153 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
156 |
GCHEM_FORCING_SEP |
call DARWIN_CONS(myIter,myTime,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
161 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
162 |
GCHEM_FORCING_SEP |
call DARWIN_CONS(myIter,myTime,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
164 |
GCHEM_FORCING_SEP |
CALL DIC_ATMOS( 1, myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_forcing_sep.F |
16 |
GCHEM_FORCING_SEP |
SUBROUTINE GCHEM_FORCING_SEP(myTime,myIter, myThid ) |
|
./pkg/gchem/gchem_forcing_sep.F |
173 |
GCHEM_FORCING_SEP |
CALL DIC_ATMOS( 1, myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_forcing_sep.F |
174 |
GCHEM_FORCING_SEP |
CALL DIC_STORE_FLUXCO2( myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_forcing_sep.F |
178 |
GCHEM_FORCING_SEP |
CALL DIC_COST( myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_forcing_sep.F |
45 |
GCHEM_FORCING_SEP |
INTEGER myThid, myIter |
|
./pkg/gchem/gchem_output.F |
10 |
GCHEM_OUTPUT |
SUBROUTINE GCHEM_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_output.F |
27 |
GCHEM_OUTPUT |
INTEGER myIter |
|
./pkg/gchem/gchem_output.F |
38 |
GCHEM_OUTPUT |
IF ( myIter.NE.nIter0 ) |
|
./pkg/gchem/gchem_output.F |
39 |
GCHEM_OUTPUT |
& CALL DIC_BIOTIC_DIAGS( myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_output.F |
46 |
GCHEM_OUTPUT |
CALL DARWIN_DIAGS( myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_output.F |
48 |
GCHEM_OUTPUT |
CALL DIC_DIAGS( myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_write_pickup.F |
14 |
GCHEM_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_write_pickup.F |
37 |
GCHEM_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/gchem/gchem_write_pickup.F |
47 |
GCHEM_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_write_pickup.F |
54 |
GCHEM_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_write_pickup.F |
57 |
GCHEM_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
17 |
GAD_ADVECTION |
I bi,bj, myTime,myIter,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
689 |
GAD_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/generic_advdiff/gad_advection.F |
80 |
GAD_ADVECTION |
INTEGER myIter |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
110 |
GAD_CALC_RHS |
INTEGER myIter, myThid |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
20 |
GAD_CALC_RHS |
I myTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
573 |
GAD_CALC_RHS |
I myTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
578 |
GAD_CALC_RHS |
I myTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
585 |
GAD_CALC_RHS |
I myTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
710 |
GAD_CALC_RHS |
& .AND. k.EQ.2 .AND. myIter.EQ.1+nIter0 |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
11 |
GAD_DIAGNOSTICS_STATE |
SUBROUTINE GAD_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
30 |
GAD_DIAGNOSTICS_STATE |
INTEGER myIter |
|
./pkg/generic_advdiff/gad_implicit_r.F |
14 |
GAD_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
50 |
GAD_IMPLICIT_R |
INTEGER myIter, myThid |
|
./pkg/generic_advdiff/gad_read_pickup.F |
115 |
GAD_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_somS.', myIter |
|
./pkg/generic_advdiff/gad_read_pickup.F |
11 |
GAD_READ_PICKUP |
SUBROUTINE GAD_READ_PICKUP( myIter, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
133 |
GAD_READ_PICKUP |
I iRec, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
30 |
GAD_READ_PICKUP |
INTEGER myIter |
|
./pkg/generic_advdiff/gad_read_pickup.F |
74 |
GAD_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_somT.', myIter |
|
./pkg/generic_advdiff/gad_read_pickup.F |
92 |
GAD_READ_PICKUP |
I iRec, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
17 |
GAD_SOM_ADVECT |
I bi,bj, myTime,myIter,myThid) |
|
./pkg/generic_advdiff/gad_som_advect.F |
469 |
GAD_SOM_ADVECT |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
61 |
GAD_SOM_ADVECT |
INTEGER myIter |
|
./pkg/generic_advdiff/gad_write_pickup.F |
103 |
GAD_WRITE_PICKUP |
I iRec, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_write_pickup.F |
11 |
GAD_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_write_pickup.F |
34 |
GAD_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/generic_advdiff/gad_write_pickup.F |
86 |
GAD_WRITE_PICKUP |
I iRec, myIter, myThid ) |
|
./pkg/generic_advdiff/salt_fill.F |
13 |
SALT_FILL |
I flag,myTime,myIter,myThid) |
|
./pkg/generic_advdiff/salt_fill.F |
51 |
SALT_FILL |
INTEGER myIter |
|
./pkg/ggl90/ggl90_calc.F |
11 |
GGL90_CALC |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
50 |
GGL90_CALC |
INTEGER myIter |
|
./pkg/ggl90/ggl90_checkpoint.F |
17 |
GGL90_READ_PICKUP |
INTEGER myIter |
|
./pkg/ggl90/ggl90_checkpoint.F |
31 |
GGL90_READ_PICKUP |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/ggl90/ggl90_checkpoint.F |
41 |
GGL90_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
|
./pkg/ggl90/ggl90_checkpoint.F |
55 |
GGL90_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_checkpoint.F |
6 |
GGL90_READ_PICKUP |
SUBROUTINE GGL90_READ_PICKUP( myIter, myThid ) |
|
./pkg/ggl90/ggl90_checkpoint.F |
73 |
GGL90_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/ggl90/ggl90_checkpoint.F |
88 |
GGL90_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
106 |
GGL90_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/ggl90/ggl90_output.F |
138 |
GGL90_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/ggl90/ggl90_output.F |
157 |
GGL90_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/ggl90/ggl90_output.F |
159 |
GGL90_OUTPUT |
& GGL90viscArUtave, myIter, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
161 |
GGL90_OUTPUT |
& GGL90viscArVtave, myIter, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
163 |
GGL90_OUTPUT |
& GGL90diffKrTave, myIter, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
165 |
GGL90_OUTPUT |
& GGL90TKETave, myIter, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
56 |
GGL90_OUTPUT |
INTEGER myIter |
|
./pkg/ggl90/ggl90_output.F |
84 |
GGL90_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/ggl90/ggl90_output.F |
85 |
GGL90_OUTPUT |
IF ( myIter.NE.nIter0 ) THEN |
|
./pkg/ggl90/ggl90_output.F |
87 |
GGL90_OUTPUT |
& GGL90viscArU, myIter, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
89 |
GGL90_OUTPUT |
& GGL90viscArV, myIter, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
91 |
GGL90_OUTPUT |
& GGL90diffKr, myIter, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
94 |
GGL90_OUTPUT |
& GGL90TKE, myIter, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
9 |
GGL90_OUTPUT |
SUBROUTINE GGL90_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
15 |
GMREDI_CALC_TENSOR |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
389 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
58 |
GMREDI_CALC_TENSOR |
INTEGER myIter |
|
./pkg/gmredi/gmredi_calc_tensor.F |
604 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
789 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
960 |
GMREDI_CALC_TENSOR_DUMMY |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
981 |
GMREDI_CALC_TENSOR_DUMMY |
INTEGER myIter |
|
./pkg/gmredi/gmredi_output.F |
10 |
GMREDI_OUTPUT |
SUBROUTINE GMREDI_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
138 |
GMREDI_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/gmredi/gmredi_output.F |
139 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwx-T.',suff,GM_Kwx_T,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
140 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwy-T.',suff,GM_Kwy_T,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
141 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwz-T.',suff,GM_Kwz_T,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
145 |
GMREDI_OUTPUT |
& myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
150 |
GMREDI_OUTPUT |
& myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
152 |
GMREDI_OUTPUT |
& myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
167 |
GMREDI_OUTPUT |
CALL MNC_CW_I_W_S('I','gm_tave',0,0,'iter',myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
37 |
GMREDI_OUTPUT |
INTEGER myIter |
|
./pkg/gmredi/gmredi_output.F |
65 |
GMREDI_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/gmredi/gmredi_output.F |
67 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kux.',suff,Kux,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
68 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kvy.',suff,Kvy,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
72 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kuz.',suff,Kuz,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
73 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kvz.',suff,Kvz,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
88 |
GMREDI_OUTPUT |
CALL MNC_CW_I_W_S('I','gm_inst',0,0,'iter',myIter,myThid) |
|
./pkg/gmredi/gmredi_slope_limit.F |
16 |
GMREDI_SLOPE_LIMIT |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
94 |
GMREDI_SLOPE_LIMIT |
INTEGER myIter |
|
./pkg/icefront/icefront_sgrunoff_read.F |
30 |
SGRUNOFF_READ |
integer myIter |
|
./pkg/icefront/icefront_sgrunoff_read.F |
7 |
SGRUNOFF_READ |
I myTime, myIter, myThid) |
|
./pkg/icefront/icefront_thermodynamics.F |
10 |
ICEFRONT_THERMODYNAMICS |
I myTime, myIter, myThid ) |
|
./pkg/icefront/icefront_thermodynamics.F |
40 |
ICEFRONT_THERMODYNAMICS |
INTEGER myIter |
|
./pkg/icefront/icefront_thermodynamics.F |
79 |
ICEFRONT_THERMODYNAMICS |
CALL SGRUNOFF_READ(myTime, myIter, myThid) |
|
./pkg/kpp/kpp_calc.F |
11 |
KPP_CALC |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_calc.F |
133 |
KPP_CALC |
INTEGER myIter |
|
./pkg/kpp/kpp_calc.F |
519 |
KPP_CALC |
I , bi, bj, mytime, myIter, mythid ) |
|
./pkg/kpp/kpp_calc.F |
588 |
KPP_CALC |
I myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_calc.F |
608 |
KPP_CALC |
I myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_calc.F |
627 |
KPP_CALC_DUMMY |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_calc.F |
654 |
KPP_CALC_DUMMY |
INTEGER myIter |
|
./pkg/kpp/kpp_output.F |
104 |
KPP_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/kpp/kpp_output.F |
117 |
KPP_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/kpp/kpp_output.F |
127 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
129 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
131 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
133 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
135 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
146 |
KPP_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/kpp/kpp_output.F |
148 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
14 |
KPP_OUTPUT |
SUBROUTINE KPP_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_output.F |
150 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
152 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
154 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
156 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
170 |
KPP_OUTPUT |
CALL MNC_CW_I_W_S('I','kpp_state',0,0,'iter',myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
193 |
KPP_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/kpp/kpp_output.F |
246 |
KPP_OUTPUT |
IF ( myIter .NE. nIter0 ) THEN |
|
./pkg/kpp/kpp_output.F |
253 |
KPP_OUTPUT |
I myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_output.F |
281 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
283 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
285 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
287 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
289 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
300 |
KPP_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/kpp/kpp_output.F |
302 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
304 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
306 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
308 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
310 |
KPP_OUTPUT |
& myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
324 |
KPP_OUTPUT |
CALL MNC_CW_I_W_S('I','kpp_timeave',0,0,'iter',myIter,myThid) |
|
./pkg/kpp/kpp_output.F |
359 |
KPP_OUTPUT |
IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN |
|
./pkg/kpp/kpp_output.F |
65 |
KPP_OUTPUT |
INTEGER myIter |
|
./pkg/kpp/kpp_routines.F |
197 |
KPPMIX |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
276 |
BLDEPTH |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
328 |
BLDEPTH |
integer myIter |
|
./pkg/kpp/kpp_routines.F |
35 |
KPPMIX |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
426 |
BLDEPTH |
I myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
449 |
BLDEPTH |
I myTime, myIter, myThid) |
|
./pkg/kpp/kpp_routines.F |
564 |
BLDEPTH |
I myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
581 |
BLDEPTH |
I myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
660 |
BLDEPTH |
I myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
677 |
BLDEPTH |
I myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
87 |
KPPMIX |
integer myIter |
|
./pkg/kpp/kpp_transport_ptr.F |
13 |
KPP_TRANSPORT_PTR |
I myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_transport_ptr.F |
63 |
KPP_TRANSPORT_PTR |
INTEGER myIter |
|
./pkg/kpp/kpp_transport_s.F |
12 |
KPP_TRANSPORT_S |
I myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_transport_s.F |
53 |
KPP_TRANSPORT_S |
INTEGER myIter |
|
./pkg/kpp/kpp_transport_t.F |
12 |
KPP_TRANSPORT_T |
I myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_transport_t.F |
54 |
KPP_TRANSPORT_T |
INTEGER myIter |
|
./pkg/land/land_albedo.F |
12 |
LAND_ALBEDO |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/land/land_albedo.F |
45 |
LAND_ALBEDO |
INTEGER bi, bj, myIter, myThid |
|
./pkg/land/land_diagnostics_state.F |
10 |
LAND_DIAGNOSTICS_STATE |
I myTime, myIter, bi,bj, myThid ) |
|
./pkg/land/land_diagnostics_state.F |
38 |
LAND_DIAGNOSTICS_STATE |
INTEGER myIter, bi, bj, myThid |
|
./pkg/land/land_do_diags.F |
10 |
LAND_DO_DIAGS |
I land_frc, bi,bj, myTime, myIter, myThid ) |
|
./pkg/land/land_do_diags.F |
43 |
LAND_DO_DIAGS |
INTEGER bi, bj, myIter, myThid |
|
./pkg/land/land_impl_temp.F |
13 |
LAND_IMPL_TEMP |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/land/land_impl_temp.F |
196 |
LAND_IMPL_TEMP |
& i,j,bi,bj,myIter |
|
./pkg/land/land_impl_temp.F |
249 |
LAND_IMPL_TEMP |
& i,j,bi,bj,myIter |
|
./pkg/land/land_impl_temp.F |
51 |
LAND_IMPL_TEMP |
INTEGER bi, bj, myIter, myThid |
|
./pkg/land/land_monitor.F |
104 |
LAND_MONITOR |
& 'I',mon_fname,1,1,'T', myIter, myThid) |
|
./pkg/land/land_monitor.F |
156 |
LAND_MONITOR |
IF ( myIter.EQ.1+nIter0 ) THEN |
|
./pkg/land/land_monitor.F |
33 |
LAND_MONITOR |
INTEGER myIter |
|
./pkg/land/land_monitor.F |
82 |
LAND_MONITOR |
& .OR. myIter.EQ.nIter0 ) THEN |
|
./pkg/land/land_monitor.F |
9 |
LAND_MONITOR |
SUBROUTINE LAND_MONITOR( land_frc, myTime, myIter, myThid ) |
|
./pkg/land/land_output.F |
100 |
LAND_OUTPUT |
& 'land_RunOff.', suff, land_runOff, myIter, myThid ) |
|
./pkg/land/land_output.F |
102 |
LAND_OUTPUT |
& 'land_enRnOf.', suff, land_enRnOf, myIter, myThid ) |
|
./pkg/land/land_output.F |
104 |
LAND_OUTPUT |
& 'land_HeatFx.', suff, land_HeatFlx, myIter, myThid ) |
|
./pkg/land/land_output.F |
106 |
LAND_OUTPUT |
& 'land_frWaFx.', suff, land_Pr_m_Ev, myIter, myThid ) |
|
./pkg/land/land_output.F |
108 |
LAND_OUTPUT |
& 'land_EnWaFx.', suff, land_EnWFlux, myIter, myThid ) |
|
./pkg/land/land_output.F |
130 |
LAND_OUTPUT |
CALL MNC_CW_I_W_S('I',fmnc,0,0,'iter', myIter, myThid) |
|
./pkg/land/land_output.F |
169 |
LAND_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/land/land_output.F |
214 |
LAND_OUTPUT |
WRITE(fn,'(A,I10.10)') 'land_tave.', myIter |
|
./pkg/land/land_output.F |
216 |
LAND_OUTPUT |
& land_grTtave, 1, myIter, myThid ) |
|
./pkg/land/land_output.F |
218 |
LAND_OUTPUT |
& land_entave, 2, myIter, myThid ) |
|
./pkg/land/land_output.F |
220 |
LAND_OUTPUT |
& land_grWtave, 3, myIter, myThid ) |
|
./pkg/land/land_output.F |
222 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_sTtave, k+1, myIter, myThid ) |
|
./pkg/land/land_output.F |
223 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_hStave, k+2, myIter, myThid ) |
|
./pkg/land/land_output.F |
224 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_sAtave, k+3, myIter, myThid ) |
|
./pkg/land/land_output.F |
225 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_ROftave, k+4, myIter, myThid ) |
|
./pkg/land/land_output.F |
226 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_eROtave, k+5, myIter, myThid ) |
|
./pkg/land/land_output.F |
245 |
LAND_OUTPUT |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/land/land_output.F |
271 |
LAND_OUTPUT |
& '// Land Time-average written, t-step', myIter |
|
./pkg/land/land_output.F |
40 |
LAND_OUTPUT |
INTEGER myIter |
|
./pkg/land/land_output.F |
63 |
LAND_OUTPUT |
CALL LAND_MONITOR( aim_landFr, myTime, myIter, myThid ) |
|
./pkg/land/land_output.F |
80 |
LAND_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/land/land_output.F |
84 |
LAND_OUTPUT |
& land_groundT, myIter, myThid ) |
|
./pkg/land/land_output.F |
86 |
LAND_OUTPUT |
& land_enthalp, myIter, myThid ) |
|
./pkg/land/land_output.F |
88 |
LAND_OUTPUT |
& land_groundW, myIter, myThid ) |
|
./pkg/land/land_output.F |
91 |
LAND_OUTPUT |
& 'land_skinT.', suff, land_skinT, myIter, myThid ) |
|
./pkg/land/land_output.F |
93 |
LAND_OUTPUT |
& 'land_hSnow.', suff, land_hSnow, myIter, myThid ) |
|
./pkg/land/land_output.F |
95 |
LAND_OUTPUT |
& 'land_snAge.', suff, land_snowAge, myIter, myThid ) |
|
./pkg/land/land_output.F |
97 |
LAND_OUTPUT |
IF ( myIter.NE.nIter0 ) THEN |
|
./pkg/land/land_output.F |
9 |
LAND_OUTPUT |
SUBROUTINE LAND_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
31 |
LAND_READ_PICKUP |
INTEGER myIter |
|
./pkg/land/land_read_pickup.F |
48 |
LAND_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_land.',myIter |
|
./pkg/land/land_read_pickup.F |
54 |
LAND_READ_PICKUP |
& land_groundT, 1, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
56 |
LAND_READ_PICKUP |
& land_groundW, 2, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
62 |
LAND_READ_PICKUP |
& land_enthalp, 1, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
64 |
LAND_READ_PICKUP |
& land_groundW, 2, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
67 |
LAND_READ_PICKUP |
& land_skinT, k+1, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
69 |
LAND_READ_PICKUP |
& land_hSnow, k+2, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
71 |
LAND_READ_PICKUP |
& land_snowAge,k+3, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
86 |
LAND_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
|
./pkg/land/land_read_pickup.F |
9 |
LAND_READ_PICKUP |
SUBROUTINE LAND_READ_PICKUP( myIter, myThid ) |
|
./pkg/land/land_stepfwd.F |
10 |
LAND_STEPFWD |
I land_frc, bi, bj, myTime, myIter, myThid) |
|
./pkg/land/land_stepfwd.F |
38 |
LAND_STEPFWD |
INTEGER bi, bj, myIter, myThid |
|
./pkg/land/land_write_pickup.F |
101 |
LAND_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/land/land_write_pickup.F |
10 |
LAND_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./pkg/land/land_write_pickup.F |
39 |
LAND_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/land/land_write_pickup.F |
67 |
LAND_WRITE_PICKUP |
& land_enthalp, 1, myIter, myThid ) |
|
./pkg/land/land_write_pickup.F |
69 |
LAND_WRITE_PICKUP |
& land_groundW, 2, myIter, myThid ) |
|
./pkg/land/land_write_pickup.F |
72 |
LAND_WRITE_PICKUP |
& land_skinT, k+1, myIter, myThid ) |
|
./pkg/land/land_write_pickup.F |
74 |
LAND_WRITE_PICKUP |
& land_hSnow, k+2, myIter, myThid ) |
|
./pkg/land/land_write_pickup.F |
76 |
LAND_WRITE_PICKUP |
& land_snowAge,k+3, myIter, myThid ) |
|
./pkg/land/land_write_pickup.F |
94 |
LAND_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./pkg/layers/layers_calc.F |
14 |
LAYERS_CALC |
I myTime, myIter, myThid ) |
|
./pkg/layers/layers_calc.F |
40 |
LAYERS_CALC |
INTEGER myIter |
|
./pkg/layers/layers_output.F |
102 |
LAYERS_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/layers/layers_output.F |
10 |
LAYERS_OUTPUT |
SUBROUTINE LAYERS_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/layers/layers_output.F |
153 |
LAYERS_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/layers/layers_output.F |
156 |
LAYERS_OUTPUT |
& layers_UFlux_T, myIter, myThid ) |
|
./pkg/layers/layers_output.F |
159 |
LAYERS_OUTPUT |
& layers_HU_T, myIter, myThid ) |
|
./pkg/layers/layers_output.F |
164 |
LAYERS_OUTPUT |
& layers_VFlux_T, myIter, myThid ) |
|
./pkg/layers/layers_output.F |
167 |
LAYERS_OUTPUT |
& layers_HV_T, myIter, myThid ) |
|
./pkg/layers/layers_output.F |
37 |
LAYERS_OUTPUT |
INTEGER myIter |
|
./pkg/layers/layers_output.F |
66 |
LAYERS_OUTPUT |
& .AND. myIter .GT. 0 ) THEN |
|
./pkg/layers/layers_output.F |
69 |
LAYERS_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/layers/layers_output.F |
72 |
LAYERS_OUTPUT |
& layers_UFlux, myIter, myThid ) |
|
./pkg/layers/layers_output.F |
75 |
LAYERS_OUTPUT |
& layers_HU, myIter, myThid ) |
|
./pkg/layers/layers_output.F |
80 |
LAYERS_OUTPUT |
& layers_VFlux, myIter, myThid ) |
|
./pkg/layers/layers_output.F |
83 |
LAYERS_OUTPUT |
& layers_HV, myIter, myThid ) |
|
./pkg/longstep/longstep_average.F |
123 |
LONGSTEP_AVERAGE |
IF ( MOD(myIter, LS_nIter) .EQ. LS_nIter-1 ) THEN |
|
./pkg/longstep/longstep_average.F |
224 |
LONGSTEP_AVERAGE |
ELSEIF ( MOD(myIter, LS_nIter) .EQ. 0 ) THEN |
|
./pkg/longstep/longstep_average.F |
45 |
LONGSTEP_AVERAGE |
INTEGER myIter |
|
./pkg/longstep/longstep_average.F |
54 |
LONGSTEP_AVERAGE |
IF ( MOD(myIter, LS_nIter) .EQ. 0 ) THEN |
|
./pkg/longstep/longstep_average.F |
9 |
LONGSTEP_AVERAGE |
SUBROUTINE LONGSTEP_AVERAGE( myTime, myIter, myThid ) |
|
./pkg/longstep/longstep_correction_step.F |
10 |
LONGSTEP_CORRECTION_STEP |
SUBROUTINE LONGSTEP_CORRECTION_STEP(myTime, myIter, myThid) |
|
./pkg/longstep/longstep_correction_step.F |
41 |
LONGSTEP_CORRECTION_STEP |
INTEGER myIter |
|
./pkg/longstep/longstep_correction_step.F |
62 |
LONGSTEP_CORRECTION_STEP |
& CALL PTRACERS_CYCLE(bi,bj,myTime,myIter,myThid) |
|
./pkg/longstep/longstep_forcing_surf.F |
12 |
LONGSTEP_FORCING_SURF |
I myTime,myIter,myThid ) |
|
./pkg/longstep/longstep_forcing_surf.F |
40 |
LONGSTEP_FORCING_SURF |
INTEGER myIter |
|
./pkg/longstep/longstep_thermodynamics.F |
15 |
LONGSTEP_THERMODYNAMICS |
SUBROUTINE LONGSTEP_THERMODYNAMICS(myTime, myIter, myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
231 |
LONGSTEP_THERMODYNAMICS |
I myTime,myIter,myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
274 |
LONGSTEP_THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
429 |
LONGSTEP_THERMODYNAMICS |
I myTime,myIter,myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
440 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
452 |
LONGSTEP_THERMODYNAMICS |
& CALL MATRIX_STORE_TENDENCY_EXP(bi,bj, myTime,myIter,myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
465 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
73 |
LONGSTEP_THERMODYNAMICS |
INTEGER myIter |
|
./pkg/matrix/matrix_output.F |
12 |
MATRIX_OUTPUT |
I myTime, myIter, myThid ) |
|
./pkg/matrix/matrix_output.F |
28 |
MATRIX_OUTPUT |
INTEGER myIter |
|
./pkg/matrix/matrix_output.F |
36 |
MATRIX_OUTPUT |
IF (myIter.NE.nIter0) THEN |
|
./pkg/matrix/matrix_output.F |
38 |
MATRIX_OUTPUT |
CALL MATRIX_WRITE_TENDENCY( myTime, myIter, myThid ) |
|
./pkg/matrix/matrix_output.F |
39 |
MATRIX_OUTPUT |
ELSEIF (myIter.EQ.nIter0) THEN |
|
./pkg/matrix/matrix_store_tendency.F |
14 |
MATRIX_STORE_TENDENCY_EXP |
& bi, bj, myTime, myIter, myThid ) |
|
./pkg/matrix/matrix_store_tendency.F |
27 |
MATRIX_STORE_TENDENCY_EXP |
INTEGER myIter |
|
./pkg/matrix/matrix_store_tendency.F |
62 |
MATRIX_STORE_TENDENCY_IMP |
& bi, bj, myTime, myIter, myThid ) |
|
./pkg/matrix/matrix_store_tendency.F |
75 |
MATRIX_STORE_TENDENCY_IMP |
INTEGER myIter |
|
./pkg/matrix/matrix_write_tendency.F |
102 |
MATRIX_WRITE_TENDENCY |
& MATRIX(1-Olx,1-Oly,1,1,1,iTracer,2),iRec,myIter,myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
11 |
MATRIX_WRITE_TENDENCY |
SUBROUTINE MATRIX_WRITE_TENDENCY( myTime, myIter, myThid ) |
|
./pkg/matrix/matrix_write_tendency.F |
23 |
MATRIX_WRITE_TENDENCY |
INTEGER myIter |
|
./pkg/matrix/matrix_write_tendency.F |
59 |
MATRIX_WRITE_TENDENCY |
& MATRIX(1-Olx,1-Oly,1,1,1,iTracer,1),iRec,myIter,myThid) |
|
./pkg/mdsio/mdsio_gl.F |
1175 |
MDSWRITEFIELD_2D_GL |
I myIter, |
|
./pkg/mdsio/mdsio_gl.F |
1231 |
MDSWRITEFIELD_2D_GL |
integer myIter |
|
./pkg/mdsio/mdsio_gl.F |
1398 |
MDSWRITEFIELD_2D_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl.F |
1512 |
MDSWRITEFIELD_2D_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl.F |
414 |
MDSWRITEFIELD_3D_GL |
I myIter, |
|
./pkg/mdsio/mdsio_gl.F |
469 |
MDSWRITEFIELD_3D_GL |
integer myIter |
|
./pkg/mdsio/mdsio_gl.F |
635 |
MDSWRITEFIELD_3D_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl.F |
749 |
MDSWRITEFIELD_3D_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
477 |
MDSWRITEFIELD_XZ_GL |
I myIter, |
|
./pkg/mdsio/mdsio_gl_slice.F |
532 |
MDSWRITEFIELD_XZ_GL |
integer myIter |
|
./pkg/mdsio/mdsio_gl_slice.F |
679 |
MDSWRITEFIELD_XZ_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
705 |
MDSWRITEFIELD_YZ_GL |
I myIter, |
|
./pkg/mdsio/mdsio_gl_slice.F |
760 |
MDSWRITEFIELD_YZ_GL |
integer myIter |
|
./pkg/mdsio/mdsio_gl_slice.F |
907 |
MDSWRITEFIELD_YZ_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./model/src/adams_bashforth2.F |
12 |
ADAMS_BASHFORTH2 |
I startAB, myIter, myThid ) |
|
./model/src/adams_bashforth2.F |
40 |
ADAMS_BASHFORTH2 |
INTEGER myIter, myThid |
|
./model/src/adams_bashforth2.F |
52 |
ADAMS_BASHFORTH2 |
IF ( myIter.EQ.nIter0 .AND. startAB.EQ.0 ) THEN |
|
./model/src/adams_bashforth3.F |
12 |
ADAMS_BASHFORTH3 |
I startAB, myIter, myThid ) |
|
./model/src/adams_bashforth3.F |
65 |
ADAMS_BASHFORTH3 |
INTEGER myIter, myThid |
|
./model/src/adams_bashforth3.F |
79 |
ADAMS_BASHFORTH3 |
m1 = 1 + mod(myIter+1,2) |
|
./model/src/adams_bashforth3.F |
80 |
ADAMS_BASHFORTH3 |
m2 = 1 + mod( myIter ,2) |
|
./model/src/adams_bashforth3.F |
83 |
ADAMS_BASHFORTH3 |
IF ( myIter.EQ.nIter0 .AND. startAB.EQ.0 ) THEN |
|
./model/src/adams_bashforth3.F |
87 |
ADAMS_BASHFORTH3 |
ELSEIF ( (myIter.EQ.nIter0 .AND. startAB.EQ.1) |
|
./model/src/adams_bashforth3.F |
88 |
ADAMS_BASHFORTH3 |
& .OR. (myIter.EQ.1+nIter0 .AND. startAB.EQ.0) ) THEN |
|
./pkg/mdsio/mdsio_rw_field.F |
157 |
MDSWRITEFIELD |
I myIter, |
|
./pkg/mdsio/mdsio_rw_field.F |
192 |
MDSWRITEFIELD |
INTEGER myIter |
|
./pkg/mdsio/mdsio_rw_field.F |
204 |
MDSWRITEFIELD |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_field.F |
209 |
MDSWRITEFIELD |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_field.F |
229 |
MDSWRITEFIELD_LOC |
I myIter, |
|
./pkg/mdsio/mdsio_rw_field.F |
264 |
MDSWRITEFIELD_LOC |
INTEGER myIter |
|
./pkg/mdsio/mdsio_rw_field.F |
276 |
MDSWRITEFIELD_LOC |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_field.F |
281 |
MDSWRITEFIELD_LOC |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
289 |
MDSWRITEFIELDXZ |
I myIter, |
|
./pkg/mdsio/mdsio_rw_slice.F |
323 |
MDSWRITEFIELDXZ |
INTEGER myIter |
|
./pkg/mdsio/mdsio_rw_slice.F |
335 |
MDSWRITEFIELDXZ |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
340 |
MDSWRITEFIELDXZ |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
360 |
MDSWRITEFIELDYZ |
I myIter, |
|
./pkg/mdsio/mdsio_rw_slice.F |
394 |
MDSWRITEFIELDYZ |
INTEGER myIter |
|
./pkg/mdsio/mdsio_rw_slice.F |
406 |
MDSWRITEFIELDYZ |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
411 |
MDSWRITEFIELDYZ |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
431 |
MDSWRITEFIELDXZ_LOC |
I myIter, |
|
./pkg/mdsio/mdsio_rw_slice.F |
465 |
MDSWRITEFIELDXZ_LOC |
INTEGER myIter |
|
./pkg/mdsio/mdsio_rw_slice.F |
477 |
MDSWRITEFIELDXZ_LOC |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
482 |
MDSWRITEFIELDXZ_LOC |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
502 |
MDSWRITEFIELDYZ_LOC |
I myIter, |
|
./pkg/mdsio/mdsio_rw_slice.F |
536 |
MDSWRITEFIELDYZ_LOC |
INTEGER myIter |
|
./pkg/mdsio/mdsio_rw_slice.F |
548 |
MDSWRITEFIELDYZ_LOC |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
553 |
MDSWRITEFIELDYZ_LOC |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
139 |
MDS_WR_METAFILES |
I nTimRec, timList, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
208 |
MDS_WR_METAFILES |
I nTimRec, timList, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
20 |
MDS_WR_METAFILES |
I myIter, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
83 |
MDS_WR_METAFILES |
INTEGER myIter |
|
./pkg/mdsio/mdsio_write_field.F |
104 |
MDS_WRITE_FIELD |
INTEGER myIter |
|
./pkg/mdsio/mdsio_write_field.F |
175 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_write_field.F |
18 |
MDS_WRITE_FIELD |
I myIter, |
|
./pkg/mdsio/mdsio_write_field.F |
191 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_write_field.F |
208 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_write_field.F |
528 |
MDS_WRITE_FIELD |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
574 |
MDS_WRITE_FIELD |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_write_meta.F |
167 |
MDS_WRITE_META |
IF ( myIter.GE.0 ) |
|
./pkg/mdsio/mdsio_write_meta.F |
168 |
MDS_WRITE_META |
& WRITE(mUnit,'(1X,A,I10,A)') 'timeStepNumber = [ ',myIter,' ];' |
|
./pkg/mdsio/mdsio_write_meta.F |
18 |
MDS_WRITE_META |
I nrecords, myIter, myThid ) |
|
./pkg/mdsio/mdsio_write_meta.F |
66 |
MDS_WRITE_META |
INTEGER myIter |
|
./pkg/mdsio/mdsio_write_section.F |
25 |
MDS_WRITE_SEC_XZ |
I myIter, |
|
./pkg/mdsio/mdsio_write_section.F |
279 |
MDS_WRITE_SEC_YZ |
I myIter, |
|
./pkg/mdsio/mdsio_write_section.F |
334 |
MDS_WRITE_SEC_YZ |
INTEGER myIter |
|
./pkg/mdsio/mdsio_write_section.F |
80 |
MDS_WRITE_SEC_XZ |
INTEGER myIter |
|
./pkg/mdsio/mdsio_writelocal.F |
167 |
MDS_WRITELOCAL |
& 'MDS_WRITELOCAL (it=', myIter, ' ; bi,bj=', biArg,bjArg, |
|
./pkg/mdsio/mdsio_writelocal.F |
181 |
MDS_WRITELOCAL |
& ' MDS_WRITELOCAL: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_writelocal.F |
18 |
MDS_WRITELOCAL |
I myIter, |
|
./pkg/mdsio/mdsio_writelocal.F |
196 |
MDS_WRITELOCAL |
& ' MDS_WRITELOCAL: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_writelocal.F |
401 |
MDS_WRITELOCAL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
432 |
MDS_WRITELOCAL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
97 |
MDS_WRITELOCAL |
INTEGER myIter |
|
./pkg/mdsio/mdsio_writevec_loc.F |
18 |
MDS_WRITEVEC_LOC |
I myIter, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
246 |
MDS_WRITEVEC_LOC |
I 0, dummyRL, iRec, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
70 |
MDS_WRITEVEC_LOC |
INTEGER myIter |
|
./pkg/mdsio/mdsio_writevector.F |
16 |
MDSWRITEVECTOR |
I myIter, |
|
./pkg/mdsio/mdsio_writevector.F |
229 |
MDSWRITEVECTOR |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
329 |
MDSWRITEVECTOR |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
357 |
MDSWRITEVECTOR |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
57 |
MDSWRITEVECTOR |
INTEGER myIter |
|
./pkg/mom_common/mom_u_implicit_r.F |
11 |
MOM_U_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
35 |
MOM_U_IMPLICIT_R |
INTEGER myIter, myThid |
|
./model/src/calc_grad_phi_hyd.F |
13 |
CALC_GRAD_PHI_HYD |
I myTime, myIter, myThid) |
|
./model/src/calc_grad_phi_hyd.F |
52 |
CALC_GRAD_PHI_HYD |
INTEGER myIter, myThid |
|
./pkg/mom_common/mom_v_implicit_r.F |
11 |
MOM_V_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
35 |
MOM_V_IMPLICIT_R |
INTEGER myIter, myThid |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
12 |
MOM_CALC_RTRANS |
I myTime, myIter, myThid) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
47 |
MOM_CALC_RTRANS |
INTEGER k, bi, bj, myIter, myThid |
|
./pkg/mom_fluxform/mom_fluxform.F |
313 |
MOM_FLUXFORM |
I myTime, myIter, myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
332 |
MOM_FLUXFORM |
I myTime, myIter, myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
349 |
MOM_FLUXFORM |
I myTime, myIter, myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
358 |
MOM_FLUXFORM |
I myTime, myIter, myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
39 |
MOM_FLUXFORM |
I myTime, myIter, myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
85 |
MOM_FLUXFORM |
INTEGER myIter |
|
./model/src/calc_gs.F |
101 |
CALC_GS |
INTEGER myIter |
|
./model/src/calc_gs.F |
156 |
CALC_GS |
iterNb = myIter |
|
./model/src/calc_gs.F |
157 |
CALC_GS |
IF (staggerTimeStep) iterNb = myIter - 1 |
|
./model/src/calc_gs.F |
16 |
CALC_GS |
I myTime,myIter,myThid ) |
|
./model/src/calc_gs.F |
172 |
CALC_GS |
I myTime, myIter, myThid ) |
|
./model/src/calc_gs.F |
183 |
CALC_GS |
I myTime, myIter, myThid ) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
14 |
MOM_UV_BOUNDARY |
I myTime, myIter, myThid ) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
42 |
MOM_UV_BOUNDARY |
INTEGER myIter |
|
./model/src/calc_gt.F |
100 |
CALC_GT |
INTEGER myIter |
|
./model/src/calc_gt.F |
155 |
CALC_GT |
iterNb = myIter |
|
./model/src/calc_gt.F |
156 |
CALC_GT |
IF (staggerTimeStep) iterNb = myIter -1 |
|
./model/src/calc_gt.F |
16 |
CALC_GT |
I myTime,myIter,myThid ) |
|
./model/src/calc_gt.F |
171 |
CALC_GT |
I myTime, myIter, myThid ) |
|
./model/src/calc_gt.F |
182 |
CALC_GT |
I myTime, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
11 |
MOM_VECINV |
I myTime, myIter, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
153 |
MOM_VECINV |
CALL MNC_CW_I_W_S('I','mom_vi',0,0,'iter',myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
281 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Ds','I10',1,strain,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
460 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Z3','I10',1,vort3, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
511 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fV','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
512 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fU','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
581 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zV','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
582 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zU','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
63 |
MOM_VECINV |
INTEGER myIter |
|
./pkg/mom_vecinv/mom_vecinv.F |
646 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEx','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
647 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEy','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
707 |
MOM_VECINV |
& .AND. k.EQ.4 .AND. myIter.EQ.nIter0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
717 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('W3','I10',1,omega3, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
718 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KE','I10',1,KE, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
719 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('D', 'I10',1,hDiv, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
720 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dt','I10',1,tension,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
721 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Du','I10',1,guDiss, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
722 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dv','I10',1,gvDiss, bi,bj,k,myIter,myThid) |
|
./model/src/calc_gw.F |
13 |
CALC_GW |
I myTime, myIter, myThid ) |
|
./model/src/calc_gw.F |
51 |
CALC_GW |
INTEGER myIter |
|
./model/src/calc_gw.F |
601 |
CALC_GW |
I nHydStartAB, myIter, myThid ) |
|
./model/src/calc_gw.F |
606 |
CALC_GW |
I nHydStartAB, myIter, myThid ) |
|
./model/src/calc_ivdc.F |
11 |
CALC_IVDC |
I myTime,myIter, myThid ) |
|
./model/src/calc_ivdc.F |
39 |
CALC_IVDC |
INTEGER myIter |
|
./pkg/monitor/mon_ke.F |
12 |
MON_KE |
I myIter, myThid ) |
|
./pkg/monitor/mon_ke.F |
28 |
MON_KE |
INTEGER myIter, myThid |
|
./pkg/monitor/mon_solution.F |
13 |
MON_SOLUTION |
I myTime, myIter, myThid ) |
|
./pkg/monitor/mon_solution.F |
30 |
MON_SOLUTION |
INTEGER myIter |
|
./pkg/monitor/mon_solution.F |
59 |
MON_SOLUTION |
& 'MON_SOLUTION: STOPPING CALCULATION at Iter=', myIter |
|
./model/src/calc_oce_mxlayer.F |
12 |
CALC_OCE_MXLAYER |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
44 |
CALC_OCE_MXLAYER |
INTEGER myIter |
|
./pkg/monitor/mon_vort3.F |
12 |
MON_VORT3 |
I myIter, myThid ) |
|
./pkg/monitor/mon_vort3.F |
31 |
MON_VORT3 |
INTEGER myIter, myThid |
|
./pkg/monitor/monitor.F |
103 |
MONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid ) |
|
./pkg/monitor/monitor.F |
12 |
MONITOR |
I myTime, myIter, myThid ) |
|
./pkg/monitor/monitor.F |
156 |
MONITOR |
CALL MON_KE(myIter, myThid) |
|
./pkg/monitor/monitor.F |
159 |
MONITOR |
IF ( monitorSelect.GE.2 ) CALL MON_VORT3( myIter, myThid ) |
|
./pkg/monitor/monitor.F |
165 |
MONITOR |
CALL MON_SOLUTION( statsTemp, myTime, myIter, myThid ) |
|
./pkg/monitor/monitor.F |
33 |
MONITOR |
INTEGER myIter |
|
./pkg/monitor/monitor_ad.F |
106 |
ADMONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid) |
|
./pkg/monitor/monitor_ad.F |
15 |
ADMONITOR |
I myTime, myIter, myThid ) |
|
./pkg/monitor/monitor_ad.F |
41 |
ADMONITOR |
INTEGER myIter |
|
./pkg/monitor/monitor_g.F |
106 |
G_MONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid) |
|
./pkg/monitor/monitor_g.F |
15 |
G_MONITOR |
I myTime, myIter, myThid ) |
|
./pkg/monitor/monitor_g.F |
41 |
G_MONITOR |
INTEGER myIter |
|
./model/src/calc_phi_hyd.F |
142 |
CALC_PHI_HYD |
IF ( implicitIntGravWave .OR. myIter.LT.0 ) THEN |
|
./model/src/calc_phi_hyd.F |
15 |
CALC_PHI_HYD |
I myTime, myIter, myThid ) |
|
./model/src/calc_phi_hyd.F |
259 |
CALC_PHI_HYD |
IF ( implicitIntGravWave .OR. myIter.LT.0 ) THEN |
|
./model/src/calc_phi_hyd.F |
507 |
CALC_PHI_HYD |
I myTime, myIter, myThid) |
|
./model/src/calc_phi_hyd.F |
514 |
CALC_PHI_HYD |
I myTime, myIter, myThid) |
|
./model/src/calc_phi_hyd.F |
521 |
CALC_PHI_HYD |
I myTime, myIter, myThid) |
|
./model/src/calc_phi_hyd.F |
74 |
CALC_PHI_HYD |
INTEGER myIter, myThid |
|
./pkg/my82/my82_output.F |
100 |
MY82_OUTPUT |
& myIter,myThid) |
|
./pkg/my82/my82_output.F |
113 |
MY82_OUTPUT |
CALL MNC_CW_I_W_S('I','my_state',0,0,'iter',myIter,myThid) |
|
./pkg/my82/my82_output.F |
132 |
MY82_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/my82/my82_output.F |
161 |
MY82_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/my82/my82_output.F |
179 |
MY82_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/my82/my82_output.F |
181 |
MY82_OUTPUT |
& MYviscArTave, myIter, myThid ) |
|
./pkg/my82/my82_output.F |
183 |
MY82_OUTPUT |
& MYdiffKrTave, myIter, myThid ) |
|
./pkg/my82/my82_output.F |
185 |
MY82_OUTPUT |
& MYhblTave, myIter, myThid ) |
|
./pkg/my82/my82_output.F |
198 |
MY82_OUTPUT |
CALL MNC_CW_I_W_S('I','my_timeave',0,0,'iter',myIter,myThid) |
|
./pkg/my82/my82_output.F |
59 |
MY82_OUTPUT |
INTEGER myIter |
|
./pkg/my82/my82_output.F |
86 |
MY82_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/my82/my82_output.F |
94 |
MY82_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/my82/my82_output.F |
96 |
MY82_OUTPUT |
& myIter,myThid) |
|
./pkg/my82/my82_output.F |
98 |
MY82_OUTPUT |
& myIter,myThid) |
|
./pkg/my82/my82_output.F |
9 |
MY82_OUTPUT |
SUBROUTINE MY82_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/calc_r_star.F |
14 |
CALC_R_STAR |
I myTime, myIter, myThid ) |
|
./model/src/calc_r_star.F |
197 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
209 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
220 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
236 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
39 |
CALC_R_STAR |
INTEGER myIter |
|
./pkg/mypackage/mypackage_calc_rhs.F |
11 |
MYPACKAGE_CALC_RHS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/mypackage/mypackage_calc_rhs.F |
26 |
MYPACKAGE_CALC_RHS |
INTEGER myIter, myThid |
|
./pkg/mypackage/mypackage_diagnostics_state.F |
12 |
MYPACKAGE_DIAGNOSTICS_STATE |
I myTime, myIter, myThid ) |
|
./pkg/mypackage/mypackage_diagnostics_state.F |
31 |
MYPACKAGE_DIAGNOSTICS_STATE |
INTEGER myIter, myThid |
|
./model/src/calc_surf_dr.F |
10 |
CALC_SURF_DR |
I myTime, myIter, myThid ) |
|
./model/src/calc_surf_dr.F |
123 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
|
./model/src/calc_surf_dr.F |
181 |
CALC_SURF_DR |
& ' SURF_ADJUSTMENT: Iter=', myIter, |
|
./model/src/calc_surf_dr.F |
36 |
CALC_SURF_DR |
INTEGER myIter |
|
./model/src/calc_surf_dr.F |
85 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
|
./model/src/calc_surf_dr.F |
89 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
|
./pkg/mypackage/mypackage_read_pickup.F |
11 |
MYPACKAGE_READ_PICKUP |
SUBROUTINE MYPACKAGE_READ_PICKUP( myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
129 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
131 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
133 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
135 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
141 |
MYPACKAGE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
143 |
MYPACKAGE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
154 |
MYPACKAGE_READ_PICKUP |
I myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
26 |
MYPACKAGE_READ_PICKUP |
INTEGER myIter |
|
./pkg/mypackage/mypackage_read_pickup.F |
57 |
MYPACKAGE_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_mypackage.',myIter |
|
./pkg/mypackage/mypackage_read_pickup.F |
66 |
MYPACKAGE_READ_PICKUP |
I Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
104 |
MYPACKAGE_WRITE_PICKUP |
& myPa_Surf1, nj, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
110 |
MYPACKAGE_WRITE_PICKUP |
& myPa_Surf2, nj, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
11 |
MYPACKAGE_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
138 |
MYPACKAGE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
32 |
MYPACKAGE_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/mypackage/mypackage_write_pickup.F |
79 |
MYPACKAGE_WRITE_PICKUP |
& myPa_StatScal1, -j, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
84 |
MYPACKAGE_WRITE_PICKUP |
& myPa_StatScal2, -j, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
89 |
MYPACKAGE_WRITE_PICKUP |
& myPa_StatVelU, -j, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
93 |
MYPACKAGE_WRITE_PICKUP |
& myPa_StatVelV, -j, myIter, myThid ) |
|
./pkg/obcs/obcs_apply_r_star.F |
27 |
OBCS_APPLY_R_STAR |
INTEGER myIter, myThid |
|
./pkg/obcs/obcs_apply_r_star.F |
9 |
OBCS_APPLY_R_STAR |
I myTime, myIter, myThid ) |
|
./model/src/calc_wsurf_tr.F |
10 |
CALC_WSURF_TR |
I myTime, myIter, myThid ) |
|
./model/src/calc_wsurf_tr.F |
41 |
CALC_WSURF_TR |
INTEGER myIter |
|
./pkg/obcs/obcs_external_fields_load.F |
118 |
OBCS_EXTERNAL_FIELDS_LOAD |
& .OR. myIter .EQ. nIter0 |
|
./pkg/obcs/obcs_external_fields_load.F |
131 |
OBCS_EXTERNAL_FIELDS_LOAD |
& iRec0, iRec1, myIter, myTime |
|
./pkg/obcs/obcs_external_fields_load.F |
138 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
139 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
142 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
143 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
146 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
147 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
150 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
151 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
155 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
156 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
161 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
162 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta1,iRec1,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
169 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
16 |
OBCS_EXTERNAL_FIELDS_LOAD |
SUBROUTINE OBCS_EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
170 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
173 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
174 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
177 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
178 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
181 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
182 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
186 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
187 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
192 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
193 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta1,iRec1,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
200 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
201 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
204 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
205 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
208 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
209 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
212 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
213 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
217 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
218 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
223 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
224 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta1,iRec1,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
231 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
232 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
235 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
236 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
239 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
240 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
243 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
244 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
248 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
249 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
254 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
255 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta1,iRec1,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
267 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
269 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
276 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
278 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
285 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
287 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
294 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
296 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
321 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/obcs/obcs_external_fields_load.F |
329 |
OBCS_EXTERNAL_FIELDS_LOAD |
& myIter, myTime |
|
./pkg/obcs/obcs_external_fields_load.F |
337 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile,fp,Nr,OBEu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
340 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile,fp,Nr,OBEv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
343 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile,fp,Nr,OBEt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
346 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile,fp,Nr,OBEs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
350 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile,fp,Nr,OBEw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
356 |
OBCS_EXTERNAL_FIELDS_LOAD |
& myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
363 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile,fp,Nr,OBWu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
366 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile,fp,Nr,OBWv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
369 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile,fp,Nr,OBWt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
372 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile,fp,Nr,OBWs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
376 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile,fp,Nr,OBWw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
382 |
OBCS_EXTERNAL_FIELDS_LOAD |
& myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
389 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile,fp,Nr,OBNu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
392 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile,fp,Nr,OBNv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
395 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile,fp,Nr,OBNt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
398 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile,fp,Nr,OBNs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
402 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile,fp,Nr,OBNw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
408 |
OBCS_EXTERNAL_FIELDS_LOAD |
& myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
415 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile,fp,Nr,OBSu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
418 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile,fp,Nr,OBSv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
421 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile,fp,Nr,OBSt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
424 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile,fp,Nr,OBSs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
428 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile,fp,Nr,OBSw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
434 |
OBCS_EXTERNAL_FIELDS_LOAD |
& myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
446 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0,myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
453 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
460 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
467 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
72 |
OBCS_EXTERNAL_FIELDS_LOAD |
INTEGER myIter |
|
./pkg/obcs/obcs_output.F |
100 |
OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'obcs_N.', myIter |
|
./pkg/obcs/obcs_output.F |
101 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
102 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
103 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
104 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
107 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
10 |
OBCS_OUTPUT |
SUBROUTINE OBCS_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
114 |
OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'obcs_S.', myIter |
|
./pkg/obcs/obcs_output.F |
115 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
116 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
117 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
118 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
121 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
128 |
OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'obcs_E.', myIter |
|
./pkg/obcs/obcs_output.F |
129 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
130 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
131 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
132 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
135 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
142 |
OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'obcs_W.', myIter |
|
./pkg/obcs/obcs_output.F |
143 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
144 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
145 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
146 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
149 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
32 |
OBCS_OUTPUT |
INTEGER myIter |
|
./pkg/obcs/obcs_output.F |
59 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNu, 'OBNu' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
60 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNv, 'OBNv' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
61 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNt, 'OBNt' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
62 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNs, 'OBNs' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
66 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSu, 'OBSu' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
67 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSv, 'OBSv' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
68 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSt, 'OBSt' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
69 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSs, 'OBSs' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
73 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEu, 'OBEu' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
74 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEv, 'OBEv' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
75 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEt, 'OBEt' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
76 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEs, 'OBEs' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
80 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWu, 'OBWu' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
81 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWv, 'OBWv' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
82 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWt, 'OBWt' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
83 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWs, 'OBWs' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_read_pickup.F |
100 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
101 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
102 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
103 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
104 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
105 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
106 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
107 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
108 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
109 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
110 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_US , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
111 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_VS , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
112 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_TS , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
113 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_SS , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
116 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
117 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
118 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
119 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
11 |
OBCS_READ_PICKUP |
SUBROUTINE OBCS_READ_PICKUP( myIter, myThid ) |
|
./pkg/obcs/obcs_read_pickup.F |
120 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_WS , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
121 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, OBSw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
131 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
132 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
133 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
134 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
135 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
136 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
137 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
138 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
139 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
140 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
141 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
142 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
143 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
144 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
145 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
146 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
147 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_UE , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
148 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_VE , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
149 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_TE , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
150 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_SE , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
153 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
154 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
155 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
156 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
157 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_WE , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
158 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, OBEw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
167 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
168 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
169 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
170 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
171 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
172 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
173 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
174 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
175 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
176 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
177 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
178 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
179 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
180 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
181 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
182 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
183 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_UW , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
184 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_VW , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
185 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_TW , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
186 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_SW , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
189 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
190 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
191 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
192 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
193 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_WW , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
194 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, OBWw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
31 |
OBCS_READ_PICKUP |
INTEGER myIter |
|
./pkg/obcs/obcs_read_pickup.F |
43 |
OBCS_READ_PICKUP |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/obcs/obcs_read_pickup.F |
58 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
59 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
60 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
61 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
62 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
63 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
64 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
65 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
66 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
67 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
68 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
69 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
70 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
71 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
72 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
73 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
74 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_UN , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
75 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_VN , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
76 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_TN , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
77 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_SN , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
80 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
81 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
82 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
83 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
84 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_WN , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
85 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, OBNw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
94 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
95 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
96 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
97 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
98 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
99 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
100 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
101 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
102 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
103 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
104 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
105 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
106 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
107 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
108 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
109 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
110 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
111 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
112 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
113 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
114 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
115 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_US , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
116 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_VS , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
117 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_TS , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
118 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_SS , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
121 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
122 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
123 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
124 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
125 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_WS , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
126 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, OBSw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
12 |
OBCS_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
|
./pkg/obcs/obcs_write_pickup.F |
136 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
137 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
138 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
139 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
140 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
141 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
142 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
143 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
144 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
145 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
146 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
147 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
148 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
149 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
150 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
151 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
152 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_UE , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
153 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_VE , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
154 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_TE , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
155 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_SE , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
158 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
159 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
160 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
161 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
162 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_WE , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
163 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, OBEw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
172 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
173 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
174 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
175 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
176 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
177 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
178 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
179 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
180 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
181 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
182 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
183 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
184 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
185 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
186 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
187 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
188 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_UW , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
189 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_VW , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
190 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_TW , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
191 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_SW , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
194 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
195 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
196 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
197 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
198 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_WW , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
199 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, OBWw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
35 |
OBCS_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/obcs/obcs_write_pickup.F |
63 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
64 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
65 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
66 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
67 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
68 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
69 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
70 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
71 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
72 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
73 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
74 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
75 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
76 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
77 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
78 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
79 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_UN , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
80 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_VN , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
81 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_TN , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
82 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_SN , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
85 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
86 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
87 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
88 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
89 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_WN , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
90 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, OBNw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
99 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_1, 1,myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_export_my_data.F |
11 |
CPL_EXPORT_MY_DATA |
I myTime, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_export_my_data.F |
35 |
CPL_EXPORT_MY_DATA |
INTEGER myIter |
|
./pkg/ocn_compon_interf/cpl_export_my_data.F |
47 |
CPL_EXPORT_MY_DATA |
I myTime, myIter, bi,bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_import_external_data.F |
10 |
CPL_IMPORT_EXTERNAL_DATA |
I myTime, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_import_external_data.F |
37 |
CPL_IMPORT_EXTERNAL_DATA |
INTEGER myIter |
|
./pkg/ocn_compon_interf/cpl_import_external_data.F |
55 |
CPL_IMPORT_EXTERNAL_DATA |
CALL OCN_CPL_DIAGS( myTime, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
100 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, FWtave , 6, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
101 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SFxtave , 7, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
102 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SICtave , 8, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
103 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, MXLtave , 9, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
104 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SSTtave , 10, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
105 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SSStave , 11, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
106 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, vSqtave , 12, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
108 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, aCO2tave , 13, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
109 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, sWSpdtave, 14, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
10 |
CPL_OUTPUT |
SUBROUTINE CPL_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
110 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, iceftave , 15, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
111 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, fCO2tave , 16, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
125 |
CPL_OUTPUT |
CALL MNC_CW_I_W_S('I','cpl_tave',0,0,'iter',myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
38 |
CPL_OUTPUT |
INTEGER myIter |
|
./pkg/ocn_compon_interf/cpl_output.F |
60 |
CPL_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/ocn_compon_interf/cpl_output.F |
94 |
CPL_OUTPUT |
WRITE(fn,'(A,I10.10)') 'cplFldtave.', myIter |
|
./pkg/ocn_compon_interf/cpl_output.F |
95 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SLPtave , 1, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
96 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, HFtave , 2, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
97 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, QSWtave , 3, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
98 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, TXtave , 4, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
99 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, TYtave , 5, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
10 |
CPL_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
43 |
CPL_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
59 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, atmSLPr , 1, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
60 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, HeatFlux , 2, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
61 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, qShortWave, 3, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
67 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tauX , 4, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
68 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tauY , 5, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
69 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, FWFlux , 6, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
70 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, iceSaltFlx, 7, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
71 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, seaIceMass, 8, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
83 |
CPL_WRITE_PICKUP |
& fluxCO2cpl, rec_ind+1,myIter,myThid) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
11 |
OCN_APPLY_IMPORT |
I apply2AllFields, myTime, myIter, myThid ) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
46 |
OCN_APPLY_IMPORT |
INTEGER myIter |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
10 |
OCN_CPL_DIAGS |
SUBROUTINE OCN_CPL_DIAGS( myTime, myIter, myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
36 |
OCN_CPL_DIAGS |
INTEGER myIter |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
10 |
OCN_CPL_READ_PICKUP |
SUBROUTINE OCN_CPL_READ_PICKUP( myIter, myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
39 |
OCN_CPL_READ_PICKUP |
INTEGER myIter |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
52 |
OCN_CPL_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
60 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,atmSLPr , 1,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
61 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,HeatFlux , 2,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
62 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,qShortWave, 3,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
63 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,tauX , 4,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
64 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,tauY , 5,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
65 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,FWFlux , 6,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
66 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,iceSaltFlx, 7,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
67 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,seaIceMass, 8,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
79 |
OCN_CPL_READ_PICKUP |
& fluxCO2cpl, rec_ind, myIter, myThid ) |
|
./model/src/cg3d.F |
22 |
CG3D |
I myIter, myThid ) |
|
./model/src/cg3d.F |
245 |
CG3D |
I 'cg3d_r_I', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
|
./model/src/cg3d.F |
535 |
CG3D |
I 'cg3d_r_F', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
|
./model/src/cg3d.F |
73 |
CG3D |
INTEGER myIter |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
39 |
OCN_STORE_MY_DATA |
INTEGER myIter |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
8 |
OCN_STORE_MY_DATA |
I myTime, myIter, bi,bj, myThid ) |
|
./model/src/check_pickup.F |
14 |
CHECK_PICKUP |
I myIter, myThid ) |
|
./model/src/check_pickup.F |
40 |
CHECK_PICKUP |
INTEGER myIter |
|
./pkg/offline/offline_fields_load.F |
126 |
OFFLINE_FIELDS_LOAD |
& .OR. myIter .EQ. nIter0 |
|
./pkg/offline/offline_fields_load.F |
136 |
OFFLINE_FIELDS_LOAD |
& intime0, intime1, myIter, myTime |
|
./pkg/offline/offline_fields_load.F |
149 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, uvel0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
153 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, uvel1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
161 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, vvel0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
164 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, vvel1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
172 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, wvel0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
175 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, wvel1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
183 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, tave0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
186 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, tave1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
194 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, save0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
197 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, save1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
205 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, conv0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
208 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, conv1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
217 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkx0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
220 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkx1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
228 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmky0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
231 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmky1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
239 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkz0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
242 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkz1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
251 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, hflx0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
254 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, hflx1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
262 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, sflx0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
265 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, sflx1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
273 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, icem0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
276 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, icem1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
285 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kdfs0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
288 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kdfs1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
298 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kght0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
301 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kght1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
51 |
OFFLINE_FIELDS_LOAD |
INTEGER myIter |
|
./pkg/offline/offline_fields_load.F |
77 |
OFFLINE_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/offline/offline_fields_load.F |
8 |
OFFLINE_FIELDS_LOAD |
SUBROUTINE OFFLINE_FIELDS_LOAD( myTime, myIter, myThid ) |
|
./pkg/opps/opps_calc.F |
14 |
OPPS_CALC |
I I, J, bi, bj, myTime, myIter, myThid ) |
|
./pkg/opps/opps_calc.F |
80 |
OPPS_CALC |
INTEGER myThid, myIter |
|
./pkg/opps/opps_interface.F |
11 |
OPPS_INTERFACE |
I myTime, myIter, myThid ) |
|
./pkg/opps/opps_interface.F |
145 |
OPPS_INTERFACE |
I I,J,bi,bj,myTime,myIter,myThid) |
|
./pkg/opps/opps_interface.F |
54 |
OPPS_INTERFACE |
INTEGER myIter |
|
./pkg/opps/opps_output.F |
100 |
OPPS_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/opps/opps_output.F |
123 |
OPPS_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/opps/opps_output.F |
136 |
OPPS_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/opps/opps_output.F |
138 |
OPPS_OUTPUT |
& myIter,myThid) |
|
./pkg/opps/opps_output.F |
56 |
OPPS_OUTPUT |
INTEGER myIter |
|
./pkg/opps/opps_output.F |
9 |
OPPS_OUTPUT |
SUBROUTINE OPPS_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/pp81/pp81_output.F |
100 |
PP81_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/pp81/pp81_output.F |
126 |
PP81_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/pp81/pp81_output.F |
141 |
PP81_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/pp81/pp81_output.F |
143 |
PP81_OUTPUT |
& PPviscArTave, myIter, myThid ) |
|
./pkg/pp81/pp81_output.F |
145 |
PP81_OUTPUT |
& PPdiffKrTave, myIter, myThid ) |
|
./pkg/pp81/pp81_output.F |
56 |
PP81_OUTPUT |
INTEGER myIter |
|
./pkg/pp81/pp81_output.F |
78 |
PP81_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/pp81/pp81_output.F |
84 |
PP81_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/pp81/pp81_output.F |
86 |
PP81_OUTPUT |
& myIter,myThid) |
|
./pkg/pp81/pp81_output.F |
88 |
PP81_OUTPUT |
& myIter,myThid) |
|
./pkg/pp81/pp81_output.F |
9 |
PP81_OUTPUT |
SUBROUTINE PP81_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/convective_adjustment.F |
11 |
CONVECTIVE_ADJUSTMENT |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/convective_adjustment.F |
206 |
CONVECTIVE_ADJUSTMENT |
IF (myIter.NE.nIter0 .AND. taveFreq.GT.0.) THEN |
|
./model/src/convective_adjustment.F |
213 |
CONVECTIVE_ADJUSTMENT |
IF ( myIter.NE.nIter0 .AND. useDiagnostics ) THEN |
|
./model/src/convective_adjustment.F |
45 |
CONVECTIVE_ADJUSTMENT |
INTEGER myIter |
|
./model/src/convective_adjustment_ini.F |
11 |
CONVECTIVE_ADJUSTMENT_INI |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/convective_adjustment_ini.F |
49 |
CONVECTIVE_ADJUSTMENT_INI |
INTEGER myIter |
|
./pkg/ptracers/ptracers_advection.F |
105 |
PTRACERS_ADVECTION |
I bi,bj,myTime,myIter,myThid) |
|
./pkg/ptracers/ptracers_advection.F |
11 |
PTRACERS_ADVECTION |
SUBROUTINE PTRACERS_ADVECTION( bi,bj,myTime,myIter,myThid ) |
|
./pkg/ptracers/ptracers_advection.F |
123 |
PTRACERS_ADVECTION |
I bi,bj,myTime,myIter,myThid) |
|
./pkg/ptracers/ptracers_advection.F |
44 |
PTRACERS_ADVECTION |
INTEGER myIter |
|
./pkg/ptracers/ptracers_check_pickup.F |
13 |
PTRACERS_CHECK_PICKUP |
I myIter, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
38 |
PTRACERS_CHECK_PICKUP |
INTEGER myIter |
|
./pkg/ptracers/ptracers_cycle.F |
10 |
PTRACERS_CYCLE |
SUBROUTINE PTRACERS_CYCLE(bi,bj,myTime,myIter,myThid) |
|
./pkg/ptracers/ptracers_cycle.F |
30 |
PTRACERS_CYCLE |
INTEGER myIter |
|
./pkg/ptracers/ptracers_cycle.F |
51 |
PTRACERS_CYCLE |
I myTime,myIter,myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
10 |
PTRACERS_DIAGNOSTICS_STATE |
SUBROUTINE PTRACERS_DIAGNOSTICS_STATE(myTime, myIter, myThid) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
31 |
PTRACERS_DIAGNOSTICS_STATE |
INTEGER myIter |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
55 |
PTRACERS_DIAGNOSTICS_STATE |
trIter = myIter-1 |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
57 |
PTRACERS_DIAGNOSTICS_STATE |
trIter = myIter |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
12 |
PTRACERS_DWNSLP_APPLY |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
36 |
PTRACERS_DWNSLP_APPLY |
INTEGER myIter |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
61 |
PTRACERS_DWNSLP_APPLY |
I myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
69 |
PTRACERS_DWNSLP_APPLY |
I myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_forcing.F |
13 |
PTRACERS_FORCING |
I myIter,myTime,myThid ) |
|
./pkg/ptracers/ptracers_forcing.F |
38 |
PTRACERS_FORCING |
INTEGER myIter |
|
./pkg/ptracers/ptracers_forcing.F |
69 |
PTRACERS_FORCING |
I myTime,myIter, myThid) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
13 |
PTRACERS_FORCING_SURF |
I myTime,myIter,myThid ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
42 |
PTRACERS_FORCING_SURF |
INTEGER myIter |
|
./pkg/ptracers/ptracers_implicit.F |
121 |
PTRACERS_IMPLICIT |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_implicit.F |
12 |
PTRACERS_IMPLICIT |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_implicit.F |
49 |
PTRACERS_IMPLICIT |
INTEGER myIter |
|
./pkg/ptracers/ptracers_integrate.F |
155 |
PTRACERS_INTEGRATE |
I myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
163 |
PTRACERS_INTEGRATE |
I myIter,myTime,myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
16 |
PTRACERS_INTEGRATE |
I myTime,myIter,myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
175 |
PTRACERS_INTEGRATE |
iterNb = myIter - LS_nIter + 1 |
|
./pkg/ptracers/ptracers_integrate.F |
176 |
PTRACERS_INTEGRATE |
IF (LS_whenToSample.GE.2) iterNb = myIter - LS_nIter |
|
./pkg/ptracers/ptracers_integrate.F |
178 |
PTRACERS_INTEGRATE |
iterNb = myIter |
|
./pkg/ptracers/ptracers_integrate.F |
179 |
PTRACERS_INTEGRATE |
IF (staggerTimeStep) iterNb = myIter - 1 |
|
./pkg/ptracers/ptracers_integrate.F |
197 |
PTRACERS_INTEGRATE |
I myIter,myTime,myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
221 |
PTRACERS_INTEGRATE |
I myIter,myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
71 |
PTRACERS_INTEGRATE |
INTEGER myIter |
|
./pkg/ptracers/ptracers_monitor.F |
106 |
PTRACERS_MONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
11 |
PTRACERS_MONITOR |
I myIter, myTime, myThid ) |
|
./pkg/ptracers/ptracers_monitor.F |
34 |
PTRACERS_MONITOR |
INTEGER myIter |
|
./pkg/ptracers/ptracers_output.F |
11 |
PTRACERS_OUTPUT |
I myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_output.F |
29 |
PTRACERS_OUTPUT |
INTEGER myIter |
|
./pkg/ptracers/ptracers_output.F |
38 |
PTRACERS_OUTPUT |
CALL PTRACERS_WRITE_STATE( myIter, myTime, myThid ) |
|
./pkg/ptracers/ptracers_output.F |
41 |
PTRACERS_OUTPUT |
IF ( PTRACERS_taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN |
|
./pkg/ptracers/ptracers_output.F |
42 |
PTRACERS_OUTPUT |
CALL PTRACERS_WRITE_TIMEAVE( myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_output.F |
47 |
PTRACERS_OUTPUT |
CALL PTRACERS_MONITOR( myIter, myTime, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
105 |
PTRACERS_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_ptracers.',myIter |
|
./pkg/ptracers/ptracers_read_pickup.F |
114 |
PTRACERS_READ_PICKUP |
I Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
11 |
PTRACERS_READ_PICKUP |
SUBROUTINE PTRACERS_READ_PICKUP( myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
171 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
189 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
204 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
208 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
223 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
233 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
247 |
PTRACERS_READ_PICKUP |
I myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
257 |
PTRACERS_READ_PICKUP |
I myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
266 |
PTRACERS_READ_PICKUP |
& PTRACERS_ioLabel(iTracer),'.', myIter |
|
./pkg/ptracers/ptracers_read_pickup.F |
284 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
31 |
PTRACERS_READ_PICKUP |
INTEGER myIter |
|
./pkg/ptracers/ptracers_read_pickup.F |
72 |
PTRACERS_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
|
./pkg/ptracers/ptracers_timeave.F |
10 |
PTRACERS_TIMEAVE |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_timeave.F |
40 |
PTRACERS_TIMEAVE |
INTEGER myIter |
|
./pkg/ptracers/ptracers_timeave.F |
59 |
PTRACERS_TIMEAVE |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/ptracers/ptracers_timeave.F |
72 |
PTRACERS_TIMEAVE |
IF ( myIter .EQ. nIter0 .OR. |
|
./pkg/ptracers/ptracers_timeave.F |
90 |
PTRACERS_TIMEAVE |
IF ( myIter .NE. nIter0 ) THEN |
|
./pkg/ptracers/ptracers_write_pickup.F |
100 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/ptracers/ptracers_write_pickup.F |
12 |
PTRACERS_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
138 |
PTRACERS_WRITE_PICKUP |
& -j, myIter, myThid ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
149 |
PTRACERS_WRITE_PICKUP |
& -j, myIter, myThid ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
174 |
PTRACERS_WRITE_PICKUP |
& j, myIter, myThid ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
201 |
PTRACERS_WRITE_PICKUP |
I iRec, myIter, myThid ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
38 |
PTRACERS_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/ptracers/ptracers_write_pickup.F |
84 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
|
./pkg/ptracers/ptracers_write_pickup.F |
93 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/ptracers/ptracers_write_state.F |
102 |
PTRACERS_WRITE_STATE |
WRITE(pref,'(A,I10.10)') 'PTRACERS.',myIter |
|
./pkg/ptracers/ptracers_write_state.F |
107 |
PTRACERS_WRITE_STATE |
& 'PTRACER',PTRACERS_ioLabel(iTracer),'.',myIter |
|
./pkg/ptracers/ptracers_write_state.F |
113 |
PTRACERS_WRITE_STATE |
& pTracer(1-Olx,1-Oly,1,1,1,iTracer),iRec,myIter,myThid) |
|
./pkg/ptracers/ptracers_write_state.F |
11 |
PTRACERS_WRITE_STATE |
I myIter, myTime, myThid ) |
|
./pkg/ptracers/ptracers_write_state.F |
29 |
PTRACERS_WRITE_STATE |
INTEGER myIter |
|
./pkg/ptracers/ptracers_write_state.F |
72 |
PTRACERS_WRITE_STATE |
CALL MNC_CW_I_W_S('I','ptracers',0,0,'iter',myIter,myThid) |
|
./model/src/cycle_tracer.F |
12 |
CYCLE_TRACER |
I myTime, myIter, myThid ) |
|
./model/src/cycle_tracer.F |
39 |
CYCLE_TRACER |
INTEGER myIter, myThid |
|
./pkg/ptracers/ptracers_write_timeave.F |
10 |
PTRACERS_WRITE_TIMEAVE |
SUBROUTINE PTRACERS_WRITE_TIMEAVE( myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
119 |
PTRACERS_WRITE_TIMEAVE |
& iTr, '.', myIter |
|
./pkg/ptracers/ptracers_write_timeave.F |
122 |
PTRACERS_WRITE_TIMEAVE |
& myIter, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
124 |
PTRACERS_WRITE_TIMEAVE |
& iTr, '.', myIter |
|
./pkg/ptracers/ptracers_write_timeave.F |
127 |
PTRACERS_WRITE_TIMEAVE |
& myIter, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
140 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./pkg/ptracers/ptracers_write_timeave.F |
146 |
PTRACERS_WRITE_TIMEAVE |
& '// PTRACER time-average data written, t-step', myIter |
|
./pkg/ptracers/ptracers_write_timeave.F |
36 |
PTRACERS_WRITE_TIMEAVE |
INTEGER myIter |
|
./pkg/ptracers/ptracers_write_timeave.F |
89 |
PTRACERS_WRITE_TIMEAVE |
CALL MNC_CW_I_W_S('I','ptr_tave',0,0,'iter',myIter,myThid) |
|
./pkg/ptracers/ptracers_write_timeave.F |
95 |
PTRACERS_WRITE_TIMEAVE |
CALL MNC_CW_I_W_S('I','ptr_flux_tave',0,0,'iter',myIter, |
|
./pkg/rbcs/rbcs_fields_load.F |
148 |
RBCS_FIELDS_LOAD |
& .OR. myIter .EQ. nIter0 |
|
./pkg/rbcs/rbcs_fields_load.F |
156 |
RBCS_FIELDS_LOAD |
& intime0, intime1, myIter, myTime |
|
./pkg/rbcs/rbcs_fields_load.F |
163 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbct0, 1, myIter, myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
165 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbct1, 1, myIter, myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
167 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxTFile,rbct0,intime0,myIter,myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
168 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxTFile,rbct1,intime1,myIter,myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
175 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcs0, 1, myIter, myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
177 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcs1, 1, myIter, myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
179 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxSFile,rbcs0,intime0,myIter,myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
180 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxSFile,rbcs1,intime1,myIter,myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
195 |
RBCS_FIELDS_LOAD |
& 1, myIter, myThid ) |
|
./pkg/rbcs/rbcs_fields_load.F |
200 |
RBCS_FIELDS_LOAD |
& 1, myIter, myThid ) |
|
./pkg/rbcs/rbcs_fields_load.F |
204 |
RBCS_FIELDS_LOAD |
& intime0, myIter, myThid ) |
|
./pkg/rbcs/rbcs_fields_load.F |
207 |
RBCS_FIELDS_LOAD |
& intime1, myIter, myThid ) |
|
./pkg/rbcs/rbcs_fields_load.F |
42 |
RBCS_FIELDS_LOAD |
INTEGER myIter |
|
./pkg/rbcs/rbcs_fields_load.F |
74 |
RBCS_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/rbcs/rbcs_fields_load.F |
8 |
RBCS_FIELDS_LOAD |
SUBROUTINE RBCS_FIELDS_LOAD( myTime, myIter, myThid ) |
|
./model/src/diags_oceanic_surf_flux.F |
10 |
DIAGS_OCEANIC_SURF_FLUX |
SUBROUTINE DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid ) |
|
./model/src/diags_oceanic_surf_flux.F |
37 |
DIAGS_OCEANIC_SURF_FLUX |
INTEGER myIter |
|
./model/src/diags_phi_hyd.F |
12 |
DIAGS_PHI_HYD |
I myTime, myIter, myThid) |
|
./model/src/diags_phi_hyd.F |
46 |
DIAGS_PHI_HYD |
INTEGER myIter, myThid |
|
./model/src/diags_phi_rlow.F |
12 |
DIAGS_PHI_RLOW |
I myTime, myIter, myThid) |
|
./model/src/diags_phi_rlow.F |
54 |
DIAGS_PHI_RLOW |
INTEGER myIter, myThid |
|
./pkg/rw/read_fld_xy_rl.F |
17 |
READ_FLD_XY_RL |
INTEGER myIter |
|
./pkg/rw/read_fld_xy_rl.F |
6 |
READ_FLD_XY_RL |
SUBROUTINE READ_FLD_XY_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xy_rs.F |
17 |
READ_FLD_XY_RS |
INTEGER myIter |
|
./pkg/rw/read_fld_xy_rs.F |
6 |
READ_FLD_XY_RS |
SUBROUTINE READ_FLD_XY_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xyz_rl.F |
17 |
READ_FLD_XYZ_RL |
INTEGER myIter |
|
./pkg/rw/read_fld_xyz_rl.F |
6 |
READ_FLD_XYZ_RL |
SUBROUTINE READ_FLD_XYZ_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xyz_rs.F |
17 |
READ_FLD_XYZ_RS |
INTEGER myIter |
|
./pkg/rw/read_fld_xyz_rs.F |
6 |
READ_FLD_XYZ_RS |
SUBROUTINE READ_FLD_XYZ_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_mflds.F |
241 |
READ_MFLDS_3D_RL |
I fPrec, nNz, myIter, myThid ) |
|
./pkg/rw/read_mflds.F |
270 |
READ_MFLDS_3D_RL |
INTEGER myIter |
|
./pkg/rw/read_mflds.F |
365 |
READ_MFLDS_LEV_RL |
I fPrec, kSiz, kLo, kHi, myIter, myThid ) |
|
./pkg/rw/read_mflds.F |
397 |
READ_MFLDS_LEV_RL |
INTEGER myIter |
|
./pkg/rw/read_mflds.F |
491 |
READ_MFLDS_CHECK |
I myIter, myThid ) |
|
./pkg/rw/read_mflds.F |
517 |
READ_MFLDS_CHECK |
INTEGER myIter |
|
./pkg/rw/read_mflds.F |
64 |
READ_MFLDS_SET |
I fileDim3, myIter, myThid ) |
|
./pkg/rw/read_mflds.F |
93 |
READ_MFLDS_SET |
INTEGER myIter |
|
./pkg/rw/read_rec.F |
139 |
READ_REC_XYZ_RS |
SUBROUTINE READ_REC_XYZ_RS( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/read_rec.F |
158 |
READ_REC_XYZ_RS |
INTEGER myIter |
|
./pkg/rw/read_rec.F |
199 |
READ_REC_XYZ_RL |
SUBROUTINE READ_REC_XYZ_RL( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/read_rec.F |
218 |
READ_REC_XYZ_RL |
INTEGER myIter |
|
./pkg/rw/read_rec.F |
24 |
READ_REC_XY_RS |
SUBROUTINE READ_REC_XY_RS( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/read_rec.F |
262 |
READ_REC_3D_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/read_rec.F |
284 |
READ_REC_3D_RS |
INTEGER myIter |
|
./pkg/rw/read_rec.F |
326 |
READ_REC_3D_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/read_rec.F |
348 |
READ_REC_3D_RL |
INTEGER myIter |
|
./pkg/rw/read_rec.F |
390 |
READ_REC_LEV_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/read_rec.F |
40 |
READ_REC_XY_RS |
INTEGER myIter |
|
./pkg/rw/read_rec.F |
413 |
READ_REC_LEV_RS |
INTEGER myIter |
|
./pkg/rw/read_rec.F |
455 |
READ_REC_LEV_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/read_rec.F |
478 |
READ_REC_LEV_RL |
INTEGER myIter |
|
./pkg/rw/read_rec.F |
520 |
READ_REC_XZ_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/read_rec.F |
540 |
READ_REC_XZ_RS |
INTEGER myIter |
|
./pkg/rw/read_rec.F |
581 |
READ_REC_XZ_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/read_rec.F |
602 |
READ_REC_XZ_RL |
INTEGER myIter |
|
./pkg/rw/read_rec.F |
643 |
READ_REC_YZ_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/read_rec.F |
664 |
READ_REC_YZ_RS |
INTEGER myIter |
|
./pkg/rw/read_rec.F |
706 |
READ_REC_YZ_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/read_rec.F |
727 |
READ_REC_YZ_RL |
INTEGER myIter |
|
./pkg/rw/read_rec.F |
80 |
READ_REC_XY_RL |
SUBROUTINE READ_REC_XY_RL( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/read_rec.F |
99 |
READ_REC_XY_RL |
INTEGER myIter |
|
./model/src/diags_rho.F |
122 |
DIAGS_RHO_G |
INTEGER myIter, myThid |
|
./model/src/diags_rho.F |
19 |
DIAGS_RHO_L |
I myTime, myIter, myThid ) |
|
./model/src/diags_rho.F |
52 |
DIAGS_RHO_L |
INTEGER myIter, myThid |
|
./model/src/diags_rho.F |
92 |
DIAGS_RHO_G |
I myTime, myIter, myThid ) |
|
./pkg/rw/write_fld_3d_rl.F |
19 |
WRITE_FLD_3D_RL |
INTEGER myIter |
|
./pkg/rw/write_fld_3d_rl.F |
42 |
WRITE_FLD_3D_RL |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_fld_3d_rl.F |
57 |
WRITE_FLD_3D_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_fld_3d_rl.F |
7 |
WRITE_FLD_3D_RL |
I pref, suff, nNz, field, myIter, myThid ) |
|
./pkg/rw/write_fld_3d_rs.F |
19 |
WRITE_FLD_3D_RS |
INTEGER myIter |
|
./pkg/rw/write_fld_3d_rs.F |
42 |
WRITE_FLD_3D_RS |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_fld_3d_rs.F |
57 |
WRITE_FLD_3D_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_fld_3d_rs.F |
7 |
WRITE_FLD_3D_RS |
I pref, suff, nNz, field, myIter, myThid ) |
|
./pkg/rw/write_fld_s3d_rl.F |
103 |
WRITE_FLD_S3D_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_fld_s3d_rl.F |
10 |
WRITE_FLD_S3D_RL |
I pref, suff, Ovl, nNz, field, myIter, myThid ) |
|
./pkg/rw/write_fld_s3d_rl.F |
40 |
WRITE_FLD_S3D_RL |
INTEGER myIter |
|
./pkg/rw/write_fld_s3d_rl.F |
80 |
WRITE_FLD_S3D_RL |
WRITE( fName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_fld_s3d_rs.F |
103 |
WRITE_FLD_S3D_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_fld_s3d_rs.F |
10 |
WRITE_FLD_S3D_RS |
I pref, suff, Ovl, nNz, field, myIter, myThid ) |
|
./pkg/rw/write_fld_s3d_rs.F |
40 |
WRITE_FLD_S3D_RS |
INTEGER myIter |
|
./pkg/rw/write_fld_s3d_rs.F |
80 |
WRITE_FLD_S3D_RS |
WRITE( fName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_fld_xy_rl.F |
17 |
WRITE_FLD_XY_RL |
INTEGER myIter |
|
./pkg/rw/write_fld_xy_rl.F |
55 |
WRITE_FLD_XY_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_fld_xy_rl.F |
6 |
WRITE_FLD_XY_RL |
SUBROUTINE WRITE_FLD_XY_RL( pref,suff,field,myIter,myThid ) |
|
./pkg/rw/write_fld_xy_rs.F |
17 |
WRITE_FLD_XY_RS |
INTEGER myIter |
|
./pkg/rw/write_fld_xy_rs.F |
55 |
WRITE_FLD_XY_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_fld_xy_rs.F |
6 |
WRITE_FLD_XY_RS |
SUBROUTINE WRITE_FLD_XY_RS( pref,suff,field,myIter,myThid ) |
|
./pkg/rw/write_fld_xyz_rl.F |
17 |
WRITE_FLD_XYZ_RL |
INTEGER myIter |
|
./pkg/rw/write_fld_xyz_rl.F |
55 |
WRITE_FLD_XYZ_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_fld_xyz_rl.F |
6 |
WRITE_FLD_XYZ_RL |
SUBROUTINE WRITE_FLD_XYZ_RL( pref,suff,field,myIter,myThid ) |
|
./pkg/rw/write_fld_xyz_rs.F |
17 |
WRITE_FLD_XYZ_RS |
INTEGER myIter |
|
./pkg/rw/write_fld_xyz_rs.F |
55 |
WRITE_FLD_XYZ_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_fld_xyz_rs.F |
6 |
WRITE_FLD_XYZ_RS |
SUBROUTINE WRITE_FLD_XYZ_RS( pref,suff,field,myIter,myThid ) |
|
./pkg/rw/write_glvec_rl.F |
10 |
WRITE_GLVEC_RL |
I pref, suff, array, sizArr, myIter, myThid ) |
|
./pkg/rw/write_glvec_rl.F |
29 |
WRITE_GLVEC_RL |
INTEGER myIter |
|
./pkg/rw/write_glvec_rl.F |
66 |
WRITE_GLVEC_RL |
I bi, bj, iRec, myIter, myThid ) |
|
./pkg/rw/write_glvec_rs.F |
10 |
WRITE_GLVEC_RS |
I pref, suff, array, sizArr, myIter, myThid ) |
|
./pkg/rw/write_glvec_rs.F |
29 |
WRITE_GLVEC_RS |
INTEGER myIter |
|
./pkg/rw/write_glvec_rs.F |
66 |
WRITE_GLVEC_RS |
I bi, bj, iRec, myIter, myThid ) |
|
./model/src/do_atmospheric_phys.F |
10 |
DO_ATMOSPHERIC_PHYS |
SUBROUTINE DO_ATMOSPHERIC_PHYS(myTime, myIter, myThid) |
|
./model/src/do_atmospheric_phys.F |
34 |
DO_ATMOSPHERIC_PHYS |
INTEGER myIter |
|
./model/src/do_atmospheric_phys.F |
49 |
DO_ATMOSPHERIC_PHYS |
CALL UPDATE_OCEAN_EXPORTS ( myTime, myIter, myThid ) |
|
./model/src/do_atmospheric_phys.F |
50 |
DO_ATMOSPHERIC_PHYS |
CALL UPDATE_EARTH_EXPORTS ( myTime, myIter, myThid ) |
|
./model/src/do_atmospheric_phys.F |
51 |
DO_ATMOSPHERIC_PHYS |
CALL UPDATE_CHEMISTRY_EXPORTS ( myTime, myIter, myThid ) |
|
./model/src/do_atmospheric_phys.F |
52 |
DO_ATMOSPHERIC_PHYS |
CALL FIZHI_WRAPPER ( myTime, myIter, myThid ) |
|
./model/src/do_atmospheric_phys.F |
53 |
DO_ATMOSPHERIC_PHYS |
CALL STEP_FIZHI_FG ( myTime, myIter, myThid, dTtracerLev(1) ) |
|
./model/src/do_atmospheric_phys.F |
54 |
DO_ATMOSPHERIC_PHYS |
CALL FIZHI_UPDATE_TIME ( myIter, myThid, deltaTclock ) |
|
./model/src/do_atmospheric_phys.F |
66 |
DO_ATMOSPHERIC_PHYS |
CALL AIM_DO_PHYSICS( myTime, myIter, myThid ) |
|
./model/src/do_atmospheric_phys.F |
69 |
DO_ATMOSPHERIC_PHYS |
CALL AIM_AIM2DYN_EXCHANGES( myTime, myIter, myThid ) |
|
./pkg/rw/write_local_rl.F |
11 |
WRITE_LOCAL_RL |
I bi, bj, iRec, myIter, myThArg ) |
|
./pkg/rw/write_local_rl.F |
39 |
WRITE_LOCAL_RL |
INTEGER myIter |
|
./pkg/rw/write_local_rl.F |
66 |
WRITE_LOCAL_RL |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_local_rl.F |
86 |
WRITE_LOCAL_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_local_rl.F |
91 |
WRITE_LOCAL_RL |
I bi, bj, iRec, myIter, myThArg ) |
|
./pkg/rw/write_local_rs.F |
11 |
WRITE_LOCAL_RS |
I bi, bj, iRec, myIter, myThArg ) |
|
./pkg/rw/write_local_rs.F |
39 |
WRITE_LOCAL_RS |
INTEGER myIter |
|
./pkg/rw/write_local_rs.F |
66 |
WRITE_LOCAL_RS |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_local_rs.F |
86 |
WRITE_LOCAL_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_local_rs.F |
91 |
WRITE_LOCAL_RS |
I bi, bj, iRec, myIter, myThArg ) |
|
./pkg/rw/write_rec.F |
103 |
WRITE_REC_XY_RS |
INTEGER myIter |
|
./pkg/rw/write_rec.F |
139 |
WRITE_REC_XY_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
148 |
WRITE_REC_XY_RL |
SUBROUTINE WRITE_REC_XY_RL( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/write_rec.F |
167 |
WRITE_REC_XY_RL |
INTEGER myIter |
|
./pkg/rw/write_rec.F |
203 |
WRITE_REC_XY_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
212 |
WRITE_REC_XYZ_RS |
SUBROUTINE WRITE_REC_XYZ_RS( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/write_rec.F |
231 |
WRITE_REC_XYZ_RS |
INTEGER myIter |
|
./pkg/rw/write_rec.F |
267 |
WRITE_REC_XYZ_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
276 |
WRITE_REC_XYZ_RL |
SUBROUTINE WRITE_REC_XYZ_RL( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/write_rec.F |
295 |
WRITE_REC_XYZ_RL |
INTEGER myIter |
|
./pkg/rw/write_rec.F |
331 |
WRITE_REC_XYZ_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
342 |
WRITE_REC_3D_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
364 |
WRITE_REC_3D_RS |
INTEGER myIter |
|
./pkg/rw/write_rec.F |
397 |
WRITE_REC_3D_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
408 |
WRITE_REC_3D_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
430 |
WRITE_REC_3D_RL |
INTEGER myIter |
|
./pkg/rw/write_rec.F |
463 |
WRITE_REC_3D_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
474 |
WRITE_REC_LEV_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
497 |
WRITE_REC_LEV_RS |
INTEGER myIter |
|
./pkg/rw/write_rec.F |
530 |
WRITE_REC_LEV_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
541 |
WRITE_REC_LEV_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
564 |
WRITE_REC_LEV_RL |
INTEGER myIter |
|
./pkg/rw/write_rec.F |
597 |
WRITE_REC_LEV_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
609 |
WRITE_REC_XZ_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
629 |
WRITE_REC_XZ_RS |
INTEGER myIter |
|
./pkg/rw/write_rec.F |
662 |
WRITE_REC_XZ_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
674 |
WRITE_REC_XZ_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
695 |
WRITE_REC_XZ_RL |
INTEGER myIter |
|
./pkg/rw/write_rec.F |
728 |
WRITE_REC_XZ_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
740 |
WRITE_REC_YZ_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
761 |
WRITE_REC_YZ_RS |
INTEGER myIter |
|
./pkg/rw/write_rec.F |
795 |
WRITE_REC_YZ_RS |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
807 |
WRITE_REC_YZ_RL |
I iRec, myIter, myThid ) |
|
./pkg/rw/write_rec.F |
828 |
WRITE_REC_YZ_RL |
INTEGER myIter |
|
./pkg/rw/write_rec.F |
84 |
WRITE_REC_XY_RS |
SUBROUTINE WRITE_REC_XY_RS( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/write_rec.F |
862 |
WRITE_REC_YZ_RL |
I iRec, myIter, myThid ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
11 |
SALT_PLUME_CALC_DEPTH |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
43 |
SALT_PLUME_CALC_DEPTH |
INTEGER myIter |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
11 |
SALT_PLUME_FORCING_SURF |
I myTime,myIter,myThid ) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
40 |
SALT_PLUME_FORCING_SURF |
INTEGER myIter |
|
./pkg/salt_plume/salt_plume_frac.F |
12 |
SALT_PLUME_FRAC |
I myTime, myIter, myThid ) |
|
./pkg/salt_plume/salt_plume_frac.F |
50 |
SALT_PLUME_FRAC |
INTEGER myIter |
|
./pkg/sbo/sbo_calc.F |
10 |
SBO_CALC |
SUBROUTINE SBO_CALC( myTime, myIter, myThid ) |
|
./pkg/sbo/sbo_calc.F |
131 |
SBO_CALC |
INTEGER myIter, myThid |
|
./pkg/sbo/sbo_output.F |
103 |
SBO_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/sbo/sbo_output.F |
113 |
SBO_OUTPUT |
IF ( myIter .EQ. nIter0 .OR. |
|
./pkg/sbo/sbo_output.F |
129 |
SBO_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/sbo/sbo_output.F |
140 |
SBO_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/sbo/sbo_output.F |
142 |
SBO_OUTPUT |
& OBPtave, myIter, myThid ) |
|
./pkg/sbo/sbo_output.F |
24 |
SBO_OUTPUT |
INTEGER myIter |
|
./pkg/sbo/sbo_output.F |
6 |
SBO_OUTPUT |
SUBROUTINE SBO_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/sbo/sbo_output.F |
71 |
SBO_OUTPUT |
irecord = myIter - nIter0 + 1 |
|
./pkg/sbo/sbo_output.F |
91 |
SBO_OUTPUT |
I 0, 0, irecord, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
157 |
DO_OCEANIC_PHYS |
CALL OBCS_CALC( myTime+deltaTclock, myIter+1, |
|
./model/src/do_oceanic_phys.F |
22 |
DO_OCEANIC_PHYS |
SUBROUTINE DO_OCEANIC_PHYS(myTime, myIter, myThid) |
|
./model/src/do_oceanic_phys.F |
240 |
DO_OCEANIC_PHYS |
CALL SEAICE_MODEL( myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
243 |
DO_OCEANIC_PHYS |
CALL SEAICE_COST_SENSI ( myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
267 |
DO_OCEANIC_PHYS |
CALL THSICE_MAIN( myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
285 |
DO_OCEANIC_PHYS |
CALL SHELFICE_THERMODYNAMICS( myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
300 |
DO_OCEANIC_PHYS |
CALL ICEFRONT_THERMODYNAMICS( myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
312 |
DO_OCEANIC_PHYS |
CALL FREEZE_SURFACE( myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
319 |
DO_OCEANIC_PHYS |
CALL OCN_APPLY_IMPORT( .TRUE., myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
475 |
DO_OCEANIC_PHYS |
I k, bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
552 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid) |
|
./model/src/do_oceanic_phys.F |
560 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
577 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
584 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
620 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
657 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
662 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
702 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
709 |
DO_OCEANIC_PHYS |
CALL TIMEAVE_SURF_FLUX( bi, bj, myTime, myIter, myThid) |
|
./model/src/do_oceanic_phys.F |
741 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
747 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
758 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
762 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
770 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
793 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
794 |
DO_OCEANIC_PHYS |
CALL DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
88 |
DO_OCEANIC_PHYS |
INTEGER myIter |
|
./pkg/seaice/dynsolver.F |
38 |
DYNSOLVER |
INTEGER myIter |
|
./pkg/seaice/dynsolver.F |
7 |
DYNSOLVER |
SUBROUTINE DYNSOLVER( myTime, myIter, myThid ) |
|
./model/src/do_stagger_fields_exchanges.F |
31 |
DO_STAGGER_FIELDS_EXCHANGES |
INTEGER myIter |
|
./model/src/do_stagger_fields_exchanges.F |
9 |
DO_STAGGER_FIELDS_EXCHANGES |
SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES(myTime, myIter, myThid) |
|
./pkg/seaice/seaice_ad_dump.F |
100 |
SEAICE_AD_DUMP |
& 1, aduice, 1, myIter, myThid ) |
|
./pkg/seaice/seaice_ad_dump.F |
103 |
SEAICE_AD_DUMP |
& 1, advice, 1, myIter, myThid ) |
|
./pkg/seaice/seaice_ad_dump.F |
113 |
SEAICE_AD_DUMP |
CALL MNC_CW_I_W_S('I','adseaice',0,0,'iter',myIter,myThid) |
|
./pkg/seaice/seaice_ad_dump.F |
81 |
SEAICE_AD_DUMP |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/seaice/seaice_ad_dump.F |
89 |
SEAICE_AD_DUMP |
& 1, adarea, 1, myIter, myThid ) |
|
./pkg/seaice/seaice_ad_dump.F |
92 |
SEAICE_AD_DUMP |
& 1, adheff, 1, myIter, myThid ) |
|
./pkg/seaice/seaice_ad_dump.F |
95 |
SEAICE_AD_DUMP |
& 1, adhsnow, 1, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
11 |
SEAICE_ADVDIFF |
I myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
193 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
200 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
219 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
226 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
245 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
252 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
272 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
279 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
300 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
307 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
47 |
SEAICE_ADVDIFF |
INTEGER myIter |
|
./pkg/seaice/seaice_advection.F |
172 |
SEAICE_ADVECTION |
& .AND. myIter.EQ.nIter0 |
|
./pkg/seaice/seaice_advection.F |
19 |
SEAICE_ADVECTION |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/seaice/seaice_advection.F |
726 |
SEAICE_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/seaice/seaice_advection.F |
88 |
SEAICE_ADVECTION |
INTEGER myIter |
|
./pkg/seaice/seaice_budget_ocean.F |
11 |
SEAICE_BUDGET_OCEAN |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_budget_ocean.F |
48 |
SEAICE_BUDGET_OCEAN |
INTEGER bi, bj, myIter, myThid |
|
./pkg/seaice/seaice_calc_strainrates.F |
10 |
SEAICE_CALC_STRAINRATES |
I iStep, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
38 |
SEAICE_CALC_STRAINRATES |
INTEGER myIter |
|
./pkg/seaice/seaice_calc_viscosities.F |
10 |
SEAICE_CALC_VISCOSITIES |
I iStep, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
39 |
SEAICE_CALC_VISCOSITIES |
INTEGER myIter |
|
./model/src/do_statevars_diags.F |
109 |
DO_STATEVARS_DIAGS |
CALL LAND_DIAGNOSTICS_STATE( myTime,myIter, bi,bj, myThid ) |
|
./model/src/do_statevars_diags.F |
117 |
DO_STATEVARS_DIAGS |
CALL MYPACKAGE_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
|
./model/src/do_statevars_diags.F |
11 |
DO_STATEVARS_DIAGS |
SUBROUTINE DO_STATEVARS_DIAGS( myTime, seqFlag, myIter, myThid ) |
|
./model/src/do_statevars_diags.F |
42 |
DO_STATEVARS_DIAGS |
INTEGER myIter |
|
./model/src/do_statevars_diags.F |
78 |
DO_STATEVARS_DIAGS |
CALL GAD_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
|
./model/src/do_statevars_diags.F |
85 |
DO_STATEVARS_DIAGS |
CALL PTRACERS_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
|
./model/src/do_statevars_diags.F |
91 |
DO_STATEVARS_DIAGS |
CALL SEAICE_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
|
./model/src/do_statevars_diags.F |
99 |
DO_STATEVARS_DIAGS |
CALL THSICE_DIAGNOSTICS_STATE( myTime,myIter,bi,bj,myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
12 |
SEAICE_CHECK_PICKUP |
I myIter, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
39 |
SEAICE_CHECK_PICKUP |
INTEGER myIter |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
30 |
SEAICE_COST_ACCUMULATE_MEAN |
INTEGER myIter |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
7 |
SEAICE_COST_ACCUMULATE_MEAN |
& myTime, myIter, myThid ) |
|
./model/src/do_statevars_tave.F |
11 |
DO_STATEVARS_TAVE |
SUBROUTINE DO_STATEVARS_TAVE( myTime, myIter, myThid ) |
|
./model/src/do_statevars_tave.F |
40 |
DO_STATEVARS_TAVE |
INTEGER myIter |
|
./model/src/do_statevars_tave.F |
55 |
DO_STATEVARS_TAVE |
CALL TIMEAVE_STATVARS( myTime, myIter, bi, bj, myThid ) |
|
./model/src/do_statevars_tave.F |
59 |
DO_STATEVARS_TAVE |
CALL PTRACERS_TIMEAVE( myTime, myIter, bi, bj, myThid ) |
|
./pkg/seaice/seaice_cost_sensi.F |
22 |
SEAICE_COST_SENSI |
integer myIter |
|
./pkg/seaice/seaice_cost_sensi.F |
28 |
SEAICE_COST_SENSI |
CALL COST_ICE_TEST ( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_cost_sensi.F |
31 |
SEAICE_COST_SENSI |
& myTime, myIter, myThid) |
|
./pkg/seaice/seaice_cost_sensi.F |
6 |
SEAICE_COST_SENSI |
subroutine SEAICE_COST_SENSI( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
10 |
SEAICE_DIAGNOSTICS_STATE |
I myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
145 |
SEAICE_DIAGNOSTICS_STATE |
I 0, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
40 |
SEAICE_DIAGNOSTICS_STATE |
INTEGER myIter |
|
./pkg/seaice/seaice_diffusion.F |
13 |
SEAICE_DIFFUSION |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_diffusion.F |
50 |
SEAICE_DIFFUSION |
INTEGER myIter |
|
./pkg/seaice/seaice_dynsolver.F |
168 |
SEAICE_DYNSOLVER |
I myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_dynsolver.F |
225 |
SEAICE_DYNSOLVER |
CALL SEAICE_FREEDRIFT( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_dynsolver.F |
240 |
SEAICE_DYNSOLVER |
CALL SEAICE_EVP( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_dynsolver.F |
283 |
SEAICE_DYNSOLVER |
CALL SEAICE_LSR( ipseudo, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_dynsolver.F |
308 |
SEAICE_DYNSOLVER |
CALL SEAICE_OCEAN_STRESS ( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_dynsolver.F |
39 |
SEAICE_DYNSOLVER |
INTEGER myIter |
|
./pkg/seaice/seaice_dynsolver.F |
7 |
SEAICE_DYNSOLVER |
SUBROUTINE SEAICE_DYNSOLVER( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_evp.F |
178 |
SEAICE_EVP |
I iEVPstep, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_evp.F |
37 |
SEAICE_EVP |
INTEGER myIter |
|
./pkg/seaice/seaice_evp.F |
7 |
SEAICE_EVP |
SUBROUTINE SEAICE_EVP( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
100 |
DO_THE_MODEL_IO |
IF (useOBCS .AND. myIter.NE.nIter0 ) |
|
./model/src/do_the_model_io.F |
101 |
DO_THE_MODEL_IO |
& CALL OBCS_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
106 |
DO_THE_MODEL_IO |
IF (useGMRedi .AND. myIter.NE.nIter0 .AND. .NOT.useOffLine ) |
|
./model/src/do_the_model_io.F |
107 |
DO_THE_MODEL_IO |
& CALL GMREDI_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
113 |
DO_THE_MODEL_IO |
& CALL KPP_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
119 |
DO_THE_MODEL_IO |
& CALL PP81_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
125 |
DO_THE_MODEL_IO |
& CALL MY82_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
131 |
DO_THE_MODEL_IO |
& CALL OPPS_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
137 |
DO_THE_MODEL_IO |
& CALL GGL90_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
143 |
DO_THE_MODEL_IO |
CALL SBO_CALC( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
144 |
DO_THE_MODEL_IO |
CALL SBO_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
14 |
DO_THE_MODEL_IO |
I myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
150 |
DO_THE_MODEL_IO |
CALL SEAICE_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
156 |
DO_THE_MODEL_IO |
CALL SHELFICE_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
162 |
DO_THE_MODEL_IO |
IF ( useBulkForce .AND. myIter.NE.nIter0 ) |
|
./model/src/do_the_model_io.F |
163 |
DO_THE_MODEL_IO |
& CALL BULKF_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
169 |
DO_THE_MODEL_IO |
& CALL THSICE_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
175 |
DO_THE_MODEL_IO |
& CALL PTRACERS_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
181 |
DO_THE_MODEL_IO |
& CALL MATRIX_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
187 |
DO_THE_MODEL_IO |
& CALL GCHEM_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
198 |
DO_THE_MODEL_IO |
& CALL CPL_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
204 |
DO_THE_MODEL_IO |
CALL LAYERS_CALC( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
205 |
DO_THE_MODEL_IO |
CALL LAYERS_OUTPUT( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
212 |
DO_THE_MODEL_IO |
& CALL DIAGNOSTICS_WRITE( modelEnd, myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
46 |
DO_THE_MODEL_IO |
INTEGER myIter |
|
./model/src/do_the_model_io.F |
60 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
62 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
64 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
66 |
DO_THE_MODEL_IO |
& myIter, myThid ) |
|
./model/src/do_the_model_io.F |
73 |
DO_THE_MODEL_IO |
CALL WRITE_STATE( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
78 |
DO_THE_MODEL_IO |
IF (taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN |
|
./model/src/do_the_model_io.F |
79 |
DO_THE_MODEL_IO |
CALL TIMEAVE_STATV_WRITE( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
85 |
DO_THE_MODEL_IO |
& CALL FIZHI_WRITE_STATE( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
91 |
DO_THE_MODEL_IO |
& CALL AIM_WRITE_TAVE( myTime, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
96 |
DO_THE_MODEL_IO |
& CALL LAND_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_freedrift.F |
32 |
SEAICE_FREEDRIFT |
INTEGER myIter |
|
./pkg/seaice/seaice_freedrift.F |
7 |
SEAICE_FREEDRIFT |
SUBROUTINE SEAICE_FREEDRIFT( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
10 |
SEAICE_GET_DYNFORCING |
I myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
47 |
SEAICE_GET_DYNFORCING |
INTEGER myIter |
|
./pkg/seaice/seaice_growth.F |
1468 |
SEAICE_GROWTH |
CALL PLOT_FIELD_XYRL( QSW,'Current QSW ', myIter, myThid ) |
|
./pkg/seaice/seaice_growth.F |
1469 |
SEAICE_GROWTH |
CALL PLOT_FIELD_XYRL( QNET,'Current QNET ', myIter, myThid ) |
|
./pkg/seaice/seaice_growth.F |
1470 |
SEAICE_GROWTH |
CALL PLOT_FIELD_XYRL( EmPmR,'Current EmPmR ', myIter, myThid ) |
|
./pkg/seaice/seaice_growth.F |
46 |
SEAICE_GROWTH |
INTEGER myIter, myThid |
|
./pkg/seaice/seaice_growth.F |
524 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_growth.F |
586 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_growth.F |
605 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_growth.F |
9 |
SEAICE_GROWTH |
SUBROUTINE SEAICE_GROWTH( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_growth_if.F |
1095 |
SEAICE_GROWTH_IF |
print *,'ifsig: myTime,myIter:',myTime,myIter |
|
./pkg/seaice/seaice_growth_if.F |
40 |
SEAICE_GROWTH_IF |
INTEGER myIter, myThid |
|
./pkg/seaice/seaice_growth_if.F |
564 |
SEAICE_GROWTH_IF |
print *,'myiter', myIter |
|
./pkg/seaice/seaice_growth_if.F |
7 |
SEAICE_GROWTH_IF |
SUBROUTINE SEAICE_GROWTH_IF( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
287 |
SEAICE_INIT_VARIA |
myIter=0 |
|
./pkg/seaice/seaice_init_varia.F |
289 |
SEAICE_INIT_VARIA |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
292 |
SEAICE_INIT_VARIA |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
294 |
SEAICE_INIT_VARIA |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
297 |
SEAICE_INIT_VARIA |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
45 |
SEAICE_INIT_VARIA |
INTEGER myIter, kSurface |
|
./pkg/seaice/seaice_lsr.F |
208 |
SEAICE_LSR |
I ilcall, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
213 |
SEAICE_LSR |
I ilcall, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
41 |
SEAICE_LSR |
INTEGER myIter |
|
./pkg/seaice/seaice_lsr.F |
7 |
SEAICE_LSR |
SUBROUTINE SEAICE_LSR( ilcall, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
886 |
SEAICE_LSR |
I 3, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_map_thsice.F |
10 |
SEAICE_MAP_THSICE |
SUBROUTINE SEAICE_MAP_THSICE( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_map_thsice.F |
33 |
SEAICE_MAP_THSICE |
INTEGER myIter |
|
./pkg/seaice/seaice_model.F |
10 |
SEAICE_MODEL |
SUBROUTINE SEAICE_MODEL( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_model.F |
163 |
SEAICE_MODEL |
CALL SEAICE_DYNSOLVER ( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_model.F |
167 |
SEAICE_MODEL |
CALL DYNSOLVER ( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_model.F |
192 |
SEAICE_MODEL |
CALL SEAICE_ADVDIFF( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_model.F |
218 |
SEAICE_MODEL |
CALL SEAICE_GROWTH( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_model.F |
220 |
SEAICE_MODEL |
CALL SEAICE_GROWTH_IF( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_model.F |
306 |
SEAICE_MODEL |
CALL EXF_ADJOINT_SNAPSHOTS( 3, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_model.F |
53 |
SEAICE_MODEL |
INTEGER myIter |
|
./pkg/seaice/seaice_model.F |
74 |
SEAICE_MODEL |
CALL SEAICE_MAP_THSICE( myTime, myIter, myThid ) |
|
./model/src/do_write_pickup.F |
104 |
DO_WRITE_PICKUP |
& "%CHECKPOINT ",myIter,fn |
|
./model/src/do_write_pickup.F |
13 |
DO_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./model/src/do_write_pickup.F |
46 |
DO_WRITE_PICKUP |
INTEGER myIter |
|
./model/src/do_write_pickup.F |
72 |
DO_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./model/src/do_write_pickup.F |
75 |
DO_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./model/src/do_write_pickup.F |
85 |
DO_WRITE_PICKUP |
I permPickup, myTime, myIter, myThid ) |
|
./model/src/do_write_pickup.F |
90 |
DO_WRITE_PICKUP |
I permPickup, myTime, myIter, myThid ) |
|
./model/src/do_write_pickup.F |
96 |
DO_WRITE_PICKUP |
WRITE(fn,'(I10.10)') myIter |
|
./pkg/seaice/seaice_monitor.F |
12 |
SEAICE_MONITOR |
I myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
30 |
SEAICE_MONITOR |
INTEGER myIter |
|
./pkg/seaice/seaice_monitor.F |
93 |
SEAICE_MONITOR |
CALL MON_OUT_I ('_tsnumber', myIter,mon_string_none,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
13 |
SEAICE_OBCS_OUTPUT |
SUBROUTINE SEAICE_OBCS_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_obcs_output.F |
37 |
SEAICE_OBCS_OUTPUT |
INTEGER myIter |
|
./pkg/seaice/seaice_obcs_output.F |
65 |
SEAICE_OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'seaice_ob_N.', myIter |
|
./pkg/seaice/seaice_obcs_output.F |
66 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNa, 1,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
67 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNh, 2,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
68 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNsl, 3,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
69 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNsn, 4,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
70 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNuice, 5,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
71 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNvice, 6,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
74 |
SEAICE_OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'seaice_ob_S.', myIter |
|
./pkg/seaice/seaice_obcs_output.F |
75 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSa, 1,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
76 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSh, 2,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
77 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSsl, 3,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
78 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSsn, 4,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
79 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSuice, 5,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
80 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSvice, 6,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
83 |
SEAICE_OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'seaice_ob_E.', myIter |
|
./pkg/seaice/seaice_obcs_output.F |
84 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEa, 1,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
85 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEh, 2,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
86 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEsl, 3,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
87 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEsn, 4,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
88 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEuice, 5,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
89 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEvice, 6,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
92 |
SEAICE_OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'seaice_ob_W.', myIter |
|
./pkg/seaice/seaice_obcs_output.F |
93 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWa, 1,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
94 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWh, 2,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
95 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWsl, 3,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
96 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWsn, 4,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
97 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWuice, 5,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
98 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWvice, 6,myIter,myThid) |
|
./pkg/seaice/seaice_ocean_stress.F |
32 |
SEAICE_OCEAN_STRESS |
INTEGER myIter |
|
./pkg/seaice/seaice_ocean_stress.F |
8 |
SEAICE_OCEAN_STRESS |
I myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_output.F |
108 |
SEAICE_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/seaice/seaice_output.F |
109 |
SEAICE_OUTPUT |
IF ( myIter.NE.nIter0 ) THEN |
|
./pkg/seaice/seaice_output.F |
10 |
SEAICE_OUTPUT |
SUBROUTINE SEAICE_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_output.F |
110 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('UWIND.',suff,uwind,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
111 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('VWIND.',suff,vwind,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
112 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('FU.',suff,fu,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
113 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('FV.',suff,fv,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
114 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('EmPmR.',suff,EmPmR,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
115 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('Qnet.',suff,Qnet,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
116 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('Qsw.',suff,Qsw,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
118 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'UICE.',suff,uIce,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
119 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'VICE.',suff,vIce,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
120 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'HEFF.',suff,hEff,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
121 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'AREA.',suff,area,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
122 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'HSNOW.',suff,HSNOW,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
124 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'HSALT.',suff,HSALT,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
127 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'ICEAGE.',suff,ICEAGE,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
132 |
SEAICE_OUTPUT |
& myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
134 |
SEAICE_OUTPUT |
& myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
136 |
SEAICE_OUTPUT |
& myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
184 |
SEAICE_OUTPUT |
IF ( myIter .NE. nIter0 ) THEN |
|
./pkg/seaice/seaice_output.F |
191 |
SEAICE_OUTPUT |
I myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_output.F |
232 |
SEAICE_OUTPUT |
CALL MNC_CW_I_W_S('I','sice_tave',0,0,'iter', myIter, myThid) |
|
./pkg/seaice/seaice_output.F |
256 |
SEAICE_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/seaice/seaice_output.F |
257 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('FUtave.' ,suff,FUtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
258 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('FVtave.' ,suff,FVtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
259 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('EmPmRtave.',suff,EmPmRtave,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
260 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('QNETtave.' ,suff,QNETtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
261 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('QSWtave.' ,suff,QSWtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
262 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('UICEtave.' ,suff,UICEtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
263 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('VICEtave.' ,suff,VICEtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
264 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('HEFFtave.' ,suff,HEFFtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
265 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('AREAtave.' ,suff,AREAtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
292 |
SEAICE_OUTPUT |
CALL SEAICE_MONITOR( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_output.F |
295 |
SEAICE_OUTPUT |
IF ( useOBCS ) CALL SEAICE_OBCS_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_output.F |
40 |
SEAICE_OUTPUT |
INTEGER myIter |
|
./pkg/seaice/seaice_output.F |
81 |
SEAICE_OUTPUT |
CALL MNC_CW_I_W_S('I','sice',0,0,'iter', myIter, myThid) |
|
./pkg/seaice/seaice_solve4temp.F |
17 |
SEAICE_SOLVE4TEMP |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_solve4temp.F |
376 |
SEAICE_SOLVE4TEMP |
print '(A,i6)','ibi merged initialization ', myIter |
|
./pkg/seaice/seaice_solve4temp.F |
379 |
SEAICE_SOLVE4TEMP |
& 'ibi iter, TSL, TS ',myIter, |
|
./pkg/seaice/seaice_solve4temp.F |
383 |
SEAICE_SOLVE4TEMP |
& 'ibi iter, TMELT ',myIter,TMELT |
|
./pkg/seaice/seaice_solve4temp.F |
386 |
SEAICE_SOLVE4TEMP |
& 'ibi iter, HIA, EFKCON ',myIter, |
|
./pkg/seaice/seaice_solve4temp.F |
390 |
SEAICE_SOLVE4TEMP |
& 'ibi iter, HSNOW ',myIter, |
|
./pkg/seaice/seaice_solve4temp.F |
394 |
SEAICE_SOLVE4TEMP |
print '(A,i6)','ibi energy balance iterat ', myIter |
|
./pkg/seaice/seaice_solve4temp.F |
620 |
SEAICE_SOLVE4TEMP |
print '(A,i6)','ibi complete ', myIter |
|
./pkg/seaice/seaice_solve4temp.F |
77 |
SEAICE_SOLVE4TEMP |
INTEGER myIter, myThid |
|
./pkg/seaice/seaice_write_pickup.F |
102 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSNOW , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
107 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSALT , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
10 |
SEAICE_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
113 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, ICEAGE, nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
121 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, UICE , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
126 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, VICE , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
134 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
140 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
146 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
169 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
39 |
SEAICE_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/seaice/seaice_write_pickup.F |
78 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,fp,MULTDIM,TICES, nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
85 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, TICE , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
92 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, AREA , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
97 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HEFF , nj, myIter, myThid ) |
|
./model/src/dynamics.F |
146 |
DYNAMICS |
INTEGER myIter |
|
./model/src/dynamics.F |
15 |
DYNAMICS |
SUBROUTINE DYNAMICS(myTime, myIter, myThid) |
|
./model/src/dynamics.F |
488 |
DYNAMICS |
I myTime, myIter, myThid ) |
|
./model/src/dynamics.F |
495 |
DYNAMICS |
I myTime, myIter, myThid ) |
|
./model/src/dynamics.F |
530 |
DYNAMICS |
I myTime, myIter, myThid) |
|
./model/src/dynamics.F |
549 |
DYNAMICS |
I myTime, myIter, myThid) |
|
./model/src/dynamics.F |
557 |
DYNAMICS |
I myTime, myIter, myThid) |
|
./model/src/dynamics.F |
576 |
DYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/dynamics.F |
578 |
DYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/dynamics.F |
647 |
DYNAMICS |
I myTime, myIter, myThid ) |
|
./model/src/dynamics.F |
650 |
DYNAMICS |
& CALL TIMESTEP_WVEL( bi,bj, myTime, myIter, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
114 |
SHAP_FILT_APPLY_TS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
116 |
SHAP_FILT_APPLY_TS |
& myIter, myThid) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
12 |
SHAP_FILT_APPLY_TS |
I myTime, myIter, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
139 |
SHAP_FILT_APPLY_TS |
I nShapS, exchInOut, Nr, myTime, myIter, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
159 |
SHAP_FILT_APPLY_TS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
161 |
SHAP_FILT_APPLY_TS |
& myIter, myThid) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
32 |
SHAP_FILT_APPLY_TS |
INTEGER myIter |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
94 |
SHAP_FILT_APPLY_TS |
I nShapT, exchInOut, Nr, myTime, myIter, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
116 |
SHAP_FILT_APPLY_UV |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
118 |
SHAP_FILT_APPLY_UV |
& myIter,myThid) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
11 |
SHAP_FILT_APPLY_UV |
I myTime, myIter, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
120 |
SHAP_FILT_APPLY_UV |
& myIter,myThid) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
42 |
SHAP_FILT_APPLY_UV |
INTEGER myIter |
|
./model/src/external_fields_load.F |
102 |
EXTERNAL_FIELDS_LOAD |
& intime0, intime1, myIter, myTime |
|
./model/src/external_fields_load.F |
107 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
|
./model/src/external_fields_load.F |
109 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
|
./model/src/external_fields_load.F |
10 |
EXTERNAL_FIELDS_LOAD |
SUBROUTINE EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid ) |
|
./model/src/external_fields_load.F |
113 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
|
./model/src/external_fields_load.F |
115 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
|
./model/src/external_fields_load.F |
119 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
|
./model/src/external_fields_load.F |
121 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
|
./model/src/external_fields_load.F |
124 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
|
./model/src/external_fields_load.F |
126 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
|
./model/src/external_fields_load.F |
130 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
|
./model/src/external_fields_load.F |
132 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
|
./model/src/external_fields_load.F |
149 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
|
./model/src/external_fields_load.F |
151 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
|
./model/src/external_fields_load.F |
155 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
|
./model/src/external_fields_load.F |
157 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
|
./model/src/external_fields_load.F |
161 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
|
./model/src/external_fields_load.F |
163 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
|
./model/src/external_fields_load.F |
168 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
|
./model/src/external_fields_load.F |
170 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
|
./model/src/external_fields_load.F |
189 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
|
./model/src/external_fields_load.F |
191 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
|
./model/src/external_fields_load.F |
53 |
EXTERNAL_FIELDS_LOAD |
INTEGER myIter |
|
./model/src/external_fields_load.F |
94 |
EXTERNAL_FIELDS_LOAD |
& .OR. myIter .EQ. nIter0 |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
12 |
SHAP_FILT_TRACER_S2 |
I myTime, myIter, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
53 |
SHAP_FILT_TRACER_S2 |
INTEGER myIter |
|
./pkg/shelfice/shelfice_output.F |
129 |
SHELFICE_OUTPUT |
IF ( myIter .NE. nIter0 ) THEN |
|
./pkg/shelfice/shelfice_output.F |
136 |
SHELFICE_OUTPUT |
I myTime, myIter, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
164 |
SHELFICE_OUTPUT |
& 'iter', myIter, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
174 |
SHELFICE_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/shelfice/shelfice_output.F |
176 |
SHELFICE_OUTPUT |
& shelfice_frshFluxtave, myIter, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
178 |
SHELFICE_OUTPUT |
& shelfice_heatFluxtave, myIter, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
35 |
SHELFICE_OUTPUT |
INTEGER myIter |
|
./pkg/shelfice/shelfice_output.F |
57 |
SHELFICE_OUTPUT |
IF ( myIter .NE. nIter0 .AND. |
|
./pkg/shelfice/shelfice_output.F |
71 |
SHELFICE_OUTPUT |
CALL MNC_CW_I_W_S('I','shelfice',0,0,'iter', myIter, myThid) |
|
./pkg/shelfice/shelfice_output.F |
81 |
SHELFICE_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/shelfice/shelfice_output.F |
83 |
SHELFICE_OUTPUT |
& shelficeFreshWaterFlux,myIter,myThid) |
|
./pkg/shelfice/shelfice_output.F |
85 |
SHELFICE_OUTPUT |
& shelficeHeatFlux,myIter,myThid) |
|
./pkg/shelfice/shelfice_output.F |
98 |
SHELFICE_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/shelfice/shelfice_output.F |
9 |
SHELFICE_OUTPUT |
SUBROUTINE SHELFICE_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
10 |
SHELFICE_THERMODYNAMICS |
I myTime, myIter, myThid ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
40 |
SHELFICE_THERMODYNAMICS |
INTEGER myIter |
|
./model/src/external_forcing_surf.F |
12 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
|
./model/src/external_forcing_surf.F |
240 |
EXTERNAL_FORCING_SURF |
I myTime,myIter,myThid ) |
|
./model/src/external_forcing_surf.F |
370 |
EXTERNAL_FORCING_SURF |
I myTime,myIter,myThid ) |
|
./model/src/external_forcing_surf.F |
433 |
EXTERNAL_FORCING_SURF |
I myTime,myIter,myThid ) |
|
./model/src/external_forcing_surf.F |
50 |
EXTERNAL_FORCING_SURF |
INTEGER myIter |
|
./pkg/smooth/smooth_diff2d.F |
163 |
SMOOTH_DIFF2D |
myIter(bi,bj)=iloop-1 |
|
./pkg/smooth/smooth_diff2d.F |
164 |
SMOOTH_DIFF2D |
IF ( myIter(bi,bj).EQ.0 ) THEN |
|
./pkg/smooth/smooth_diff2d.F |
28 |
SMOOTH_DIFF2D |
integer myThid,myIter(nSx,nSy),key_in |
|
./pkg/smooth/smooth_diff3d.F |
139 |
SMOOTH_DIFF3D |
myIter(bi,bj)=iloop-1 |
|
./pkg/smooth/smooth_diff3d.F |
144 |
SMOOTH_DIFF3D |
& myIter(bi,bj) , myThid ) |
|
./pkg/smooth/smooth_diff3d.F |
31 |
SMOOTH_DIFF3D |
integer myThid, myIter(nSx,nSy) |
|
./model/src/forward_step.F |
1008 |
FORWARD_STEP |
CALL STEP_FIZHI_CORR ( myTime, myIter, myThid, dTtracerLev(1) ) |
|
./model/src/forward_step.F |
1017 |
FORWARD_STEP |
CALL FLT_MAIN( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
1025 |
FORWARD_STEP |
CALL DO_STATEVARS_TAVE( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
1031 |
FORWARD_STEP |
CALL NEST_PARENT_IO_2( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
1037 |
FORWARD_STEP |
CALL NEST_CHILD_TRANSP( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
1045 |
FORWARD_STEP |
CALL MONITOR( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
1054 |
FORWARD_STEP |
CALL COST_TILE ( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
1059 |
FORWARD_STEP |
modelEnd = myTime.EQ.endTime .OR. myIter.EQ.nEndIter |
|
./model/src/forward_step.F |
1068 |
FORWARD_STEP |
CALL DO_THE_MODEL_IO( modelEnd, myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
1073 |
FORWARD_STEP |
CALL DO_WRITE_PICKUP( modelEnd, myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
167 |
FORWARD_STEP |
INTEGER myIter |
|
./model/src/forward_step.F |
195 |
FORWARD_STEP |
myIter = nIter0 + (iloop-1) |
|
./model/src/forward_step.F |
203 |
FORWARD_STEP |
myIterBeg = myIter |
|
./model/src/forward_step.F |
20 |
FORWARD_STEP |
SUBROUTINE FORWARD_STEP( iloop, myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
217 |
FORWARD_STEP |
CALL DIAGNOSTICS_SWITCH_ONOFF( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
220 |
FORWARD_STEP |
CALL DO_STATEVARS_DIAGS( myTime, 0, myIter, myThid ) |
|
./model/src/forward_step.F |
227 |
FORWARD_STEP |
CALL NEST_CHILD_SETMEMO( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
233 |
FORWARD_STEP |
CALL NEST_PARENT_IO_1( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
259 |
FORWARD_STEP |
CALL LOAD_FIELDS_DRIVER( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
270 |
FORWARD_STEP |
CALL BULKF_FORCING( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
283 |
FORWARD_STEP |
CALL CHEAPAML( myTime, myIter,myThid ) |
|
./model/src/forward_step.F |
291 |
FORWARD_STEP |
IF ( myIter .EQ. nIter0 ) |
|
./model/src/forward_step.F |
296 |
FORWARD_STEP |
CALL DUMMY_IN_STEPPING( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
304 |
FORWARD_STEP |
CALL CPL_EXPORT_MY_DATA( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
305 |
FORWARD_STEP |
CALL CPL_IMPORT_EXTERNAL_DATA( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
313 |
FORWARD_STEP |
CALL OASIS_PUT( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
315 |
FORWARD_STEP |
CALL OASIS_GET( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
327 |
FORWARD_STEP |
CALL EBM_DRIVER ( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
338 |
FORWARD_STEP |
CALL DO_ATMOSPHERIC_PHYS( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
380 |
FORWARD_STEP |
CALL DO_OCEANIC_PHYS( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
433 |
FORWARD_STEP |
CALL GCHEM_CALC_TENDENCY( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
511 |
FORWARD_STEP |
CALL LONGSTEP_AVERAGE( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
520 |
FORWARD_STEP |
CALL LONGSTEP_THERMODYNAMICS( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
534 |
FORWARD_STEP |
CALL THERMODYNAMICS( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
549 |
FORWARD_STEP |
CALL LONGSTEP_AVERAGE( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
558 |
FORWARD_STEP |
CALL LONGSTEP_THERMODYNAMICS( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
568 |
FORWARD_STEP |
CALL DO_STAGGER_FIELDS_EXCHANGES( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
577 |
FORWARD_STEP |
myItP1 = myIter + 1 |
|
./model/src/forward_step.F |
584 |
FORWARD_STEP |
CALL OCN_APPLY_IMPORT( .FALSE., myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
637 |
FORWARD_STEP |
CALL DYNAMICS( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
652 |
FORWARD_STEP |
myIter = nIter0 + iLoop |
|
./model/src/forward_step.F |
658 |
FORWARD_STEP |
CALL MNC_CW_CITER_SETG( 1, 1, -1, myIter , myThid ) |
|
./model/src/forward_step.F |
670 |
FORWARD_STEP |
CALL MNC_CW_CITER_SETG( 1, 1, myIter, -1 , myThid ) |
|
./model/src/forward_step.F |
707 |
FORWARD_STEP |
CALL UPDATE_R_STAR( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
726 |
FORWARD_STEP |
CALL UPDATE_SIGMA( etaH, myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
735 |
FORWARD_STEP |
CALL UPDATE_SURF_DR( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
756 |
FORWARD_STEP |
CALL UPDATE_CG2D( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
769 |
FORWARD_STEP |
& myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
771 |
FORWARD_STEP |
CALL SHAP_FILT_APPLY_UV( gU,gV,myTime,myIter,myThid) |
|
./model/src/forward_step.F |
805 |
FORWARD_STEP |
CALL SOLVE_FOR_PRESSURE(myTime, myIter, myThid) |
|
./model/src/forward_step.F |
828 |
FORWARD_STEP |
CALL MOMENTUM_CORRECTION_STEP(myTime, myIter, myThid) |
|
./model/src/forward_step.F |
839 |
FORWARD_STEP |
CALL UPDATE_ETAH( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
854 |
FORWARD_STEP |
CALL CALC_R_STAR(etaH, myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
864 |
FORWARD_STEP |
CALL CALC_SURF_DR(etaH, myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
883 |
FORWARD_STEP |
CALL DO_STAGGER_FIELDS_EXCHANGES( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
890 |
FORWARD_STEP |
CALL DO_STATEVARS_DIAGS( myTime, 1, myIter, myThid ) |
|
./model/src/forward_step.F |
899 |
FORWARD_STEP |
CALL THERMODYNAMICS( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
914 |
FORWARD_STEP |
CALL TRACERS_CORRECTION_STEP(myTime, myIter, myThid) |
|
./model/src/forward_step.F |
938 |
FORWARD_STEP |
CALL LONGSTEP_THERMODYNAMICS( myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
946 |
FORWARD_STEP |
CALL LONGSTEP_CORRECTION_STEP(myTime, myIter, myThid) |
|
./model/src/forward_step.F |
974 |
FORWARD_STEP |
CALL GCHEM_FORCING_SEP( myTime,myIter,myThid ) |
|
./model/src/forward_step.F |
994 |
FORWARD_STEP |
CALL DO_STATEVARS_DIAGS( myTime, 2, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
15 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
179 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
214 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
227 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
245 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
267 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
|
./pkg/thsice/thsice_advdiff.F |
274 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
|
./pkg/thsice/thsice_advdiff.F |
287 |
THSICE_ADVDIFF |
& bi,bj,myIter, ' ; Npts,aveDiff,Epsil=', |
|
./pkg/thsice/thsice_advdiff.F |
325 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
362 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
378 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
|
./pkg/thsice/thsice_advdiff.F |
394 |
THSICE_ADVDIFF |
& bi,bj,myIter, ' ; Npts,aveDiff,Epsil=', |
|
./pkg/thsice/thsice_advdiff.F |
60 |
THSICE_ADVDIFF |
INTEGER myIter |
|
./pkg/thsice/thsice_advection.F |
162 |
THSICE_ADVECTION |
& .AND. myIter.EQ.nIter0 |
|
./pkg/thsice/thsice_advection.F |
21 |
THSICE_ADVECTION |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/thsice/thsice_advection.F |
727 |
THSICE_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/thsice/thsice_advection.F |
90 |
THSICE_ADVECTION |
INTEGER myIter |
|
./pkg/thsice/thsice_albedo.F |
14 |
THSICE_ALBEDO |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_albedo.F |
175 |
THSICE_ALBEDO |
& 'THSICE_ALBEDO: Problem, e.g., at:', myIter,ii,jj,bi,bj |
|
./pkg/thsice/thsice_albedo.F |
62 |
THSICE_ALBEDO |
INTEGER myIter |
|
./pkg/thsice/thsice_ave.F |
10 |
THSICE_AVE |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_ave.F |
42 |
THSICE_AVE |
INTEGER myIter |
|
./pkg/thsice/thsice_calc_thickn.F |
1125 |
THSICE_CALC_THICKN |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_calc_thickn.F |
131 |
THSICE_CALC_THICKN |
INTEGER myIter |
|
./pkg/thsice/thsice_calc_thickn.F |
17 |
THSICE_CALC_THICKN |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_check_conserv.F |
12 |
THSICE_CHECK_CONSERV |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_check_conserv.F |
41 |
THSICE_CHECK_CONSERV |
INTEGER myIter |
|
./pkg/thsice/thsice_diagnostics_state.F |
10 |
THSICE_DIAGNOSTICS_STATE |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/thsice/thsice_diagnostics_state.F |
36 |
THSICE_DIAGNOSTICS_STATE |
INTEGER myIter |
|
./pkg/thsice/thsice_diffusion.F |
13 |
THSICE_DIFFUSION |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_diffusion.F |
52 |
THSICE_DIFFUSION |
INTEGER myIter |
|
./pkg/thsice/thsice_do_advect.F |
10 |
THSICE_DO_ADVECT |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_do_advect.F |
35 |
THSICE_DO_ADVECT |
INTEGER myIter |
|
./pkg/thsice/thsice_do_advect.F |
48 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_do_advect.F |
51 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_extend.F |
16 |
THSICE_EXTEND |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_extend.F |
230 |
THSICE_EXTEND |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_extend.F |
88 |
THSICE_EXTEND |
INTEGER myIter |
|
./pkg/thsice/thsice_get_bulkf.F |
17 |
THSICE_GET_BULKF |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_get_bulkf.F |
62 |
THSICE_GET_BULKF |
INTEGER myIter |
|
./pkg/thsice/thsice_get_exf.F |
17 |
THSICE_GET_EXF |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_get_exf.F |
70 |
THSICE_GET_EXF |
INTEGER myIter |
|
./pkg/thsice/thsice_get_velocity.F |
16 |
THSICE_GET_VELOCITY |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_get_velocity.F |
51 |
THSICE_GET_VELOCITY |
INTEGER myIter |
|
./pkg/thsice/thsice_impl_temp.F |
111 |
THSICE_IMPL_TEMP |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_impl_temp.F |
11 |
THSICE_IMPL_TEMP |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/thsice/thsice_impl_temp.F |
49 |
THSICE_IMPL_TEMP |
INTEGER myIter |
|
./pkg/thsice/thsice_main.F |
10 |
THSICE_MAIN |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_main.F |
193 |
THSICE_MAIN |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_main.F |
221 |
THSICE_MAIN |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_main.F |
239 |
THSICE_MAIN |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_main.F |
242 |
THSICE_MAIN |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_main.F |
44 |
THSICE_MAIN |
INTEGER myIter |
|
./model/src/freeze_surface.F |
10 |
FREEZE_SURFACE |
SUBROUTINE FREEZE_SURFACE( myTime, myIter, myThid ) |
|
./model/src/freeze_surface.F |
35 |
FREEZE_SURFACE |
INTEGER myIter |
|
./pkg/thsice/thsice_monitor.F |
34 |
THSICE_MONITOR |
INTEGER myIter |
|
./pkg/thsice/thsice_monitor.F |
71 |
THSICE_MONITOR |
& .OR. myIter.EQ.nIter0 ) THEN |
|
./pkg/thsice/thsice_monitor.F |
91 |
THSICE_MONITOR |
& 'I',mon_fname,1,1,'iter', myIter, myThid) |
|
./pkg/thsice/thsice_monitor.F |
9 |
THSICE_MONITOR |
SUBROUTINE THSICE_MONITOR( myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
189 |
THSICE_OUTPUT |
WRITE(fn,'(A,I10.10)') 'thSIce_tave.', myIter |
|
./pkg/thsice/thsice_output.F |
191 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_fract_Ave, 1, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
192 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_iceH_Ave, 2, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
193 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_snowH_Ave, 3, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
194 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_Tsrf_Ave, 4, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
195 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_Tice1_Ave, 5, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
196 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_Tice2_Ave, 6, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
197 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_snowPr_Ave, 7, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
198 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_albedo_Ave, 8, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
199 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_flx2oc_Ave, 9, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
200 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_frw2oc_Ave,10, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
202 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_salFx_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
205 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_flxAtm_Ave,kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
207 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_frwAtm_Ave,kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
211 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_tMxL_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
213 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_sMxL_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
234 |
THSICE_OUTPUT |
CALL MNC_CW_I_W_S('I',mncf,0,0,'iter', myIter, myThid) |
|
./pkg/thsice/thsice_output.F |
305 |
THSICE_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/thsice/thsice_output.F |
308 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
310 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
312 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
314 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
316 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
318 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
320 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
322 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
324 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
327 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
329 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
331 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
335 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
337 |
THSICE_OUTPUT |
& myIter,myThid) |
|
./pkg/thsice/thsice_output.F |
356 |
THSICE_OUTPUT |
CALL MNC_CW_I_W_S('I',mncf,0,0,'iter', myIter, myThid) |
|
./pkg/thsice/thsice_output.F |
379 |
THSICE_OUTPUT |
& CALL THSICE_MONITOR( myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
38 |
THSICE_OUTPUT |
INTEGER myIter |
|
./pkg/thsice/thsice_output.F |
63 |
THSICE_OUTPUT |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/thsice/thsice_output.F |
9 |
THSICE_OUTPUT |
SUBROUTINE THSICE_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
31 |
THSICE_READ_PICKUP |
INTEGER myIter |
|
./pkg/thsice/thsice_read_pickup.F |
43 |
THSICE_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter |
|
./pkg/thsice/thsice_read_pickup.F |
47 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, iceMask, 1, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
48 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, iceHeight,2, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
49 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1,snowHeight,3, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
50 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tsrf, 4, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
51 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tice1, 5, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
52 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tice2, 6, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
53 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Qice1, 7, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
54 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Qice2, 8, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
55 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, snowAge, 9, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
58 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, tOceMxL, 10, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
59 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, sOceMxL, 11, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
69 |
THSICE_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
9 |
THSICE_READ_PICKUP |
SUBROUTINE THSICE_READ_PICKUP( prec, myIter, myThid ) |
|
./pkg/thsice/thsice_slab_ocean.F |
12 |
THSICE_SLAB_OCEAN |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_slab_ocean.F |
55 |
THSICE_SLAB_OCEAN |
INTEGER myIter, myThid |
|
./pkg/thsice/thsice_solve4temp.F |
112 |
THSICE_SOLVE4TEMP |
INTEGER myIter |
|
./pkg/thsice/thsice_solve4temp.F |
17 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_solve4temp.F |
289 |
THSICE_SOLVE4TEMP |
& ' BBerr: Tice(1) > 0 ; it=', myIter, qIc1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
295 |
THSICE_SOLVE4TEMP |
& ' BBerr: Tice(2) > 0 ; it=', myIter, qIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
359 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_solve4temp.F |
367 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_solve4temp.F |
408 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_solve4temp.F |
416 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_solve4temp.F |
494 |
THSICE_SOLVE4TEMP |
& ' BB: not converge: i,j,it,hi=',i,j,bi,bj,myIter,hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
502 |
THSICE_SOLVE4TEMP |
& myIter, Tsf(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
15 |
THSICE_STEP_FWD |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_step_fwd.F |
241 |
THSICE_STEP_FWD |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_step_fwd.F |
319 |
THSICE_STEP_FWD |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_step_fwd.F |
398 |
THSICE_STEP_FWD |
I isIceFree, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_step_fwd.F |
71 |
THSICE_STEP_FWD |
INTEGER myIter |
|
./pkg/thsice/thsice_step_temp.F |
11 |
THSICE_STEP_TEMP |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_step_temp.F |
121 |
THSICE_STEP_TEMP |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_step_temp.F |
177 |
THSICE_STEP_TEMP |
I myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_step_temp.F |
61 |
THSICE_STEP_TEMP |
INTEGER myIter |
|
./pkg/thsice/thsice_test_addfluid.h |
11 |
NO PROCEDURE |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/thsice/thsice_write_pickup.F |
38 |
THSICE_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/thsice/thsice_write_pickup.F |
52 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, iceMask, 1, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
53 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, iceHeight,2, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
54 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1,snowHeight,3, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
55 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tsrf, 4, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
56 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tice1, 5, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
57 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tice2, 6, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
58 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Qice1, 7, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
59 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Qice2, 8, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
60 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, snowAge, 9, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
63 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tOceMxL, 10, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
64 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, sOceMxL, 11, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
78 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
84 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
9 |
THSICE_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./pkg/timeave/timeave_statv_write.F |
10 |
TIMEAVE_STATV_WRITE |
SUBROUTINE TIMEAVE_STATV_WRITE( myTime, myIter, myThid ) |
|
./pkg/timeave/timeave_statv_write.F |
135 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('ETAtave.' ,suff,etatave ,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
136 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
137 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
138 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('uVeltave.',suff,uVeltave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
139 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('vVeltave.',suff,vVeltave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
140 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('wVeltave.',suff,wVeltave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
141 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('Eta2tave.',suff,Eta2tave ,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
142 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UTtave.',suff,UTtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
143 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('VTtave.',suff,VTtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
144 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('WTtave.',suff,WTtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
145 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UStave.',suff,UStave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
146 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('VStave.',suff,VStave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
147 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('WStave.',suff,WStave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
148 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('TTtave.',suff,TTtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
149 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UUtave.',suff,UUtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
150 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('VVtave.',suff,VVtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
151 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UVtave.',suff,UVtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
156 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
160 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
162 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
166 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
169 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
171 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
173 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
175 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
177 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
179 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
181 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
185 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('hUtave.',suff,hUtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
186 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('hVtave.',suff,hVtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
202 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./pkg/timeave/timeave_statv_write.F |
208 |
TIMEAVE_STATV_WRITE |
& '// Time-average data written, t-step', myIter |
|
./pkg/timeave/timeave_statv_write.F |
231 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_I_W_S('I','tave',0,0,'iter', myIter, myThid) |
|
./pkg/timeave/timeave_statv_write.F |
33 |
TIMEAVE_STATV_WRITE |
INTEGER myIter |
|
./pkg/timeave/timeave_statv_write.F |
67 |
TIMEAVE_STATV_WRITE |
I myTime, myIter, myThid ) |
|
./pkg/timeave/timeave_statv_write.F |
74 |
TIMEAVE_STATV_WRITE |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/timeave/timeave_statvars.F |
105 |
TIMEAVE_STATVARS |
I myTime, myIter, myThid ) |
|
./pkg/timeave/timeave_statvars.F |
11 |
TIMEAVE_STATVARS |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/timeave/timeave_statvars.F |
180 |
TIMEAVE_STATVARS |
IF ( myIter .NE. nIter0 ) THEN |
|
./pkg/timeave/timeave_statvars.F |
36 |
TIMEAVE_STATVARS |
INTEGER myIter, bi, bj |
|
./pkg/timeave/timeave_statvars.F |
52 |
TIMEAVE_STATVARS |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/timeave/timeave_statvars.F |
96 |
TIMEAVE_STATVARS |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/timeave/timeave_surf_flux.F |
30 |
TIMEAVE_SURF_FLUX |
INTEGER myIter |
|
./pkg/timeave/timeave_surf_flux.F |
6 |
TIMEAVE_SURF_FLUX |
I bi, bj, myTime, myIter, myThid) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
13 |
GAD_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
48 |
GAD_IMPLICIT_R |
INTEGER myIter, myThid |
|
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F |
18 |
OPENAD_DUMPADJOINT |
SUBROUTINE OPENAD_DUMPADJOINT(myTime, myIter, myThid ) |
|
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F |
81 |
OPENAD_DUMPADJOINT |
INTEGER myIter |
|
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F |
90 |
OPENAD_DUMPADJOINT |
WRITE(suff,'(I10.10)') myIter |
|
./verification/OpenAD/code_oad_all/the_first_level_loop.F |
19 |
THE_FIRST_LEVEL_LOOP |
+myTime, myIter, myThid ) |
|
./verification/OpenAD/code_oad_all/the_first_level_loop.F |
86 |
THE_FIRST_LEVEL_LOOP |
INTEGER myIter |
|
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
126 |
THE_FOURTH_LEVEL_PLAIN |
+myTime, myIter,myThid ) |
|
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
194 |
THE_FOURTH_LEVEL_PLAIN |
INTEGER myIter |
|
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
21 |
THE_FOURTH_LEVEL_LOOP |
+myTime, myIter,myThid ) |
|
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
90 |
THE_FOURTH_LEVEL_LOOP |
INTEGER myIter |
|
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
131 |
THE_SECOND_LEVEL_PLAIN |
+myTime, myIter, myThid ) |
|
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
199 |
THE_SECOND_LEVEL_PLAIN |
INTEGER myIter |
|
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
21 |
THE_SECOND_LEVEL_LOOP |
+myTime, myIter, myThid ) |
|
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
92 |
THE_SECOND_LEVEL_LOOP |
INTEGER myIter |
|
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
126 |
THE_THIRD_LEVEL_PLAIN |
+myTime, myIter,myThid ) |
|
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
194 |
THE_THIRD_LEVEL_PLAIN |
INTEGER myIter |
|
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
21 |
THE_THIRD_LEVEL_LOOP |
+myTime, myIter,myThid ) |
|
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
91 |
THE_THIRD_LEVEL_LOOP |
INTEGER myIter |
|
./verification/OpenAD/code_oad_all/write_state.F |
104 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'U', uVel,iRec,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
105 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'V', vVel,iRec,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
106 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'T', theta,iRec,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
107 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'S', salt,iRec,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
108 |
WRITE_STATE |
CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
109 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
112 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
126 |
WRITE_STATE |
WRITE(suff,'(I10.10)') myIter |
|
./verification/OpenAD/code_oad_all/write_state.F |
127 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVelv,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
128 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVelv,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
129 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'T.',suff,thetav,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
130 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,saltv,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
131 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('Eta.',suff,etaNv,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
132 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVelv,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
133 |
WRITE_STATE |
IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 ) THEN |
|
./verification/OpenAD/code_oad_all/write_state.F |
134 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHydv,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
136 |
WRITE_STATE |
IF ( fluidIsWater .AND. (myIter.NE.nIter0) ) THEN |
|
./verification/OpenAD/code_oad_all/write_state.F |
137 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
141 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
14 |
WRITE_STATE |
SUBROUTINE WRITE_STATE ( myTime, myIter, myThid ) |
|
./verification/OpenAD/code_oad_all/write_state.F |
170 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','state',0,0,'iter', myIter, myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
178 |
WRITE_STATE |
IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 ) THEN |
|
./verification/OpenAD/code_oad_all/write_state.F |
182 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','phiHyd',0,0,'iter',myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
186 |
WRITE_STATE |
IF ( fluidIsWater .AND. (myIter .NE. nIter0) ) THEN |
|
./verification/OpenAD/code_oad_all/write_state.F |
190 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','phiHydLow',0,0,'iter',myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
72 |
WRITE_STATE |
INTEGER myIter |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
12 |
AIM_SURF_BC |
I bi, bj, myTime, myIter, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
333 |
AIM_SURF_BC |
IF (myIter.EQ.nIter0) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
334 |
AIM_SURF_BC |
WRITE(suff,'(I10.10)') myIter |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
336 |
AIM_SURF_BC |
& 1, bi, bj, 1, myIter, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
378 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
404 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
415 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
70 |
AIM_SURF_BC |
INTEGER myIter, myThid |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
102 |
ADDUMMY_IN_STEPPING |
& 'ADJtheta.',suff, adtheta, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
104 |
ADDUMMY_IN_STEPPING |
& 'ADJsalt.',suff, adsalt, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
106 |
ADDUMMY_IN_STEPPING |
& 'ADJuvel.',suff, aduvel, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
108 |
ADDUMMY_IN_STEPPING |
& 'ADJvvel.',suff, advvel, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
110 |
ADDUMMY_IN_STEPPING |
& 'ADJwvel.',suff, adwvel, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
130 |
ADDUMMY_IN_STEPPING |
& adhfacc, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
132 |
ADDUMMY_IN_STEPPING |
& adhfacs, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
134 |
ADDUMMY_IN_STEPPING |
& adhfacw, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
136 |
ADDUMMY_IN_STEPPING |
& adrecip_hfacc, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
138 |
ADDUMMY_IN_STEPPING |
& adrecip_hfacs, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
140 |
ADDUMMY_IN_STEPPING |
& adrecip_hfacw, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
155 |
ADDUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
159 |
ADDUMMY_IN_STEPPING |
& '// Model state written, timestep', myIter |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
77 |
ADDUMMY_IN_STEPPING |
WRITE(suff,'(I10.10)') myIter |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
103 |
ADDUMMY_IN_HFAC |
WRITE(suff,'(I10.10)') myIter |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
112 |
ADDUMMY_IN_HFAC |
& myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
116 |
ADDUMMY_IN_HFAC |
& myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
120 |
ADDUMMY_IN_HFAC |
& myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
133 |
ADDUMMY_IN_HFAC |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
137 |
ADDUMMY_IN_HFAC |
& '// ad'//myfullname//' written, timestep', myIter |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
20 |
DUMMY_IN_HFAC |
INTEGER myIter |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
32 |
ADDUMMY_IN_HFAC |
subroutine ADDUMMY_IN_HFAC( myname, myIter, myThid ) |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
68 |
ADDUMMY_IN_HFAC |
integer myIter |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
6 |
DUMMY_IN_HFAC |
subroutine DUMMY_IN_HFAC( myname, myIter, myThid ) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
25 |
UPDATE_OCEAN_EXPORTS |
integer myIter, myThid |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
5 |
UPDATE_OCEAN_EXPORTS |
subroutine UPDATE_OCEAN_EXPORTS (myTime, myIter, myThid) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
34 |
DO_FIZHI |
integer myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
4 |
DO_FIZHI |
subroutine DO_FIZHI(myIter,myid, |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
21 |
UPDATE_OCEAN_EXPORTS |
integer myIter, myThid |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
5 |
UPDATE_OCEAN_EXPORTS |
subroutine UPDATE_OCEAN_EXPORTS (myTime, myIter, myThid) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
108 |
PLOT_FIELD_XYRL |
I fld, fldNam , myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
138 |
PLOT_FIELD_XYRL |
INTEGER myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
14 |
PLOT_FIELD_XYRS |
I fld, fldNam , myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
156 |
PLOT_FIELD_XYRL |
IF ( myIter .GE. 0 ) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
159 |
PLOT_FIELD_XYRL |
& myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
185 |
PLOT_FIELD_XYRL |
& ' at iteration ', myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
202 |
PLOT_FIELD_XYZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
237 |
PLOT_FIELD_XYZRS |
INTEGER myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
252 |
PLOT_FIELD_XYZRS |
IF ( myIter .GE. 0 ) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
255 |
PLOT_FIELD_XYZRS |
& myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
295 |
PLOT_FIELD_XYZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
330 |
PLOT_FIELD_XYZRL |
INTEGER myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
345 |
PLOT_FIELD_XYZRL |
IF ( myIter .GE. 0 ) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
348 |
PLOT_FIELD_XYZRL |
& myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
389 |
PLOT_FIELD_XZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
424 |
PLOT_FIELD_XZRS |
INTEGER myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
439 |
PLOT_FIELD_XZRS |
IF ( myIter .GE. 0 ) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
442 |
PLOT_FIELD_XZRS |
& myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
44 |
PLOT_FIELD_XYRS |
INTEGER myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
477 |
PLOT_FIELD_XZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
512 |
PLOT_FIELD_XZRL |
INTEGER myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
527 |
PLOT_FIELD_XZRL |
IF ( myIter .GE. 0 ) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
530 |
PLOT_FIELD_XZRL |
& myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
567 |
PLOT_FIELD_YZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
602 |
PLOT_FIELD_YZRS |
INTEGER myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
617 |
PLOT_FIELD_YZRS |
IF ( myIter .GE. 0 ) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
620 |
PLOT_FIELD_YZRS |
& myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
62 |
PLOT_FIELD_XYRS |
IF ( myIter .GE. 0 ) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
656 |
PLOT_FIELD_YZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
65 |
PLOT_FIELD_XYRS |
& myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
691 |
PLOT_FIELD_YZRL |
INTEGER myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
706 |
PLOT_FIELD_YZRL |
IF ( myIter .GE. 0 ) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
709 |
PLOT_FIELD_YZRL |
& myIter |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
91 |
PLOT_FIELD_XYRS |
& ' at iteration ', myIter |
|
./model/src/integr_continuity.F |
12 |
INTEGR_CONTINUITY |
I myTime, myIter, myThid ) |
|
./model/src/integr_continuity.F |
42 |
INTEGR_CONTINUITY |
INTEGER myIter |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
17 |
THE_MAIN_LOOP |
subroutine THE_MAIN_LOOP( myTime, myIter, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
387 |
THE_MAIN_LOOP |
CALL DUMMY_IN_STEPPING( myTime, myIter, myThid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
410 |
THE_MAIN_LOOP |
CALL SEAICE_MODEL( myTime, myIter, myThid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
413 |
THE_MAIN_LOOP |
CALL COST_ICE_TEST ( myTime, myIter, myThid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
431 |
THE_MAIN_LOOP |
CALL DO_OCEANIC_PHYS( myTime, myIter, myThid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
436 |
THE_MAIN_LOOP |
myIter = nIter0 + iLoop |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
448 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, myIter, myThid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
454 |
THE_MAIN_LOOP |
CALL MONITOR( myIter, myTime, myThid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
461 |
THE_MAIN_LOOP |
CALL OFFLINE_MODEL_IO( myTime, myIter, myThid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
465 |
THE_MAIN_LOOP |
CALL DO_THE_MODEL_IO( myTime, myIter, myThid ) |
|
./model/src/load_fields_driver.F |
116 |
LOAD_FIELDS_DRIVER |
INTEGER myIter |
|
./model/src/load_fields_driver.F |
133 |
LOAD_FIELDS_DRIVER |
CALL BULKF_FIELDS_LOAD( myTime, myIter, myThid ) |
|
./model/src/load_fields_driver.F |
145 |
LOAD_FIELDS_DRIVER |
CALL EXF_GETFORCING( myTime, myIter, myThid ) |
|
./model/src/load_fields_driver.F |
156 |
LOAD_FIELDS_DRIVER |
CALL CHEAPAML_FIELDS_LOAD( myTime, myIter, myThid ) |
|
./model/src/load_fields_driver.F |
167 |
LOAD_FIELDS_DRIVER |
CALL EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid ) |
|
./model/src/load_fields_driver.F |
184 |
LOAD_FIELDS_DRIVER |
CALL OFFLINE_FIELDS_LOAD( myTime, myIter, myThid ) |
|
./model/src/load_fields_driver.F |
18 |
LOAD_FIELDS_DRIVER |
SUBROUTINE LOAD_FIELDS_DRIVER( myTime, myIter, myThid ) |
|
./model/src/load_fields_driver.F |
194 |
LOAD_FIELDS_DRIVER |
CALL GCHEM_FIELDS_LOAD( myTime, myIter, myThid ) |
|
./model/src/load_fields_driver.F |
200 |
LOAD_FIELDS_DRIVER |
CALL RBCS_FIELDS_LOAD( myTime, myIter, myThid ) |
|
./model/src/load_fields_driver.F |
207 |
LOAD_FIELDS_DRIVER |
CALL AIM_FIELDS_LOAD( myTime, myIter, myThid ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
126 |
THE_MAIN_LOOP |
INTEGER myIter |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
19 |
THE_MAIN_LOOP |
SUBROUTINE THE_MAIN_LOOP( myTime, myIter, myThid ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
391 |
THE_MAIN_LOOP |
myIter = nIter0 + (iloop-1) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
408 |
THE_MAIN_LOOP |
CALL DIAGNOSTICS_SWITCH_ONOFF( myTime, myIter, myThid ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
411 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, 0, myIter, myThid ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
422 |
THE_MAIN_LOOP |
CALL LOAD_FIELDS_DRIVER( myTime, myIter, myThid ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
434 |
THE_MAIN_LOOP |
CALL BULKF_FORCING( myTime, myIter, myThid ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
441 |
THE_MAIN_LOOP |
IF ( myIter .EQ. nIter0 ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
447 |
THE_MAIN_LOOP |
CALL DUMMY_IN_STEPPING( myTime, myIter, myThid ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
456 |
THE_MAIN_LOOP |
CALL DO_OCEANIC_PHYS( myTime, myIter, myThid ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
466 |
THE_MAIN_LOOP |
myIter = nIter0 + iloop |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
473 |
THE_MAIN_LOOP |
CALL COST_TILE ( myTime, myIter, myThid ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
481 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, 1, myIter, myThid ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
485 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, 2, myIter, myThid ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
493 |
THE_MAIN_LOOP |
CALL MONITOR( myIter, myTime, myThid ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
498 |
THE_MAIN_LOOP |
CALL DO_THE_MODEL_IO( .FALSE., myTime, myIter, myThid ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
539 |
THE_MAIN_LOOP |
+myTime, myIter, myThid ) |
|
./model/src/momentum_correction_step.F |
10 |
MOMENTUM_CORRECTION_STEP |
SUBROUTINE MOMENTUM_CORRECTION_STEP(myTime, myIter, myThid) |
|
./model/src/momentum_correction_step.F |
133 |
MOMENTUM_CORRECTION_STEP |
CALL SHAP_FILT_APPLY_UV( uVel, vVel, myTime, myIter, myThid ) |
|
./model/src/momentum_correction_step.F |
180 |
MOMENTUM_CORRECTION_STEP |
I myTime, myIter, myThid ) |
|
./model/src/momentum_correction_step.F |
61 |
MOMENTUM_CORRECTION_STEP |
INTEGER myIter |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
13 |
PTRACERS_FORCING |
I myIter,myTime,myThid ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
42 |
PTRACERS_FORCING |
INTEGER myIter |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
73 |
PTRACERS_FORCING |
I myTime,myIter, myThid) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
13 |
PTRACERS_FORCING_SURF |
I myTime,myIter,myThid ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
42 |
PTRACERS_FORCING_SURF |
INTEGER myIter |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
12 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
226 |
EXTERNAL_FORCING_SURF |
I myTime,myIter,myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
356 |
EXTERNAL_FORCING_SURF |
I myTime,myIter,myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
419 |
EXTERNAL_FORCING_SURF |
I myTime,myIter,myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
50 |
EXTERNAL_FORCING_SURF |
INTEGER myIter |
|
./model/src/packages_write_pickup.F |
105 |
PACKAGES_WRITE_PICKUP |
& suffix, myTime, myIter, myThid ) |
|
./model/src/packages_write_pickup.F |
113 |
PACKAGES_WRITE_PICKUP |
& suffix, myTime, myIter, myThid ) |
|
./model/src/packages_write_pickup.F |
120 |
PACKAGES_WRITE_PICKUP |
CALL FIZHI_WRITE_PICKUP(suffix,myTime,myIter,myThid) |
|
./model/src/packages_write_pickup.F |
121 |
PACKAGES_WRITE_PICKUP |
CALL FIZHI_WRITE_VEGTILES(suffix,0,myTime,myIter,myThid) |
|
./model/src/packages_write_pickup.F |
122 |
PACKAGES_WRITE_PICKUP |
CALL FIZHI_WRITE_DATETIME(myTime,myIter,myThid) |
|
./model/src/packages_write_pickup.F |
130 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
|
./model/src/packages_write_pickup.F |
137 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
|
./model/src/packages_write_pickup.F |
145 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
|
./model/src/packages_write_pickup.F |
153 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
|
./model/src/packages_write_pickup.F |
161 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid) |
|
./model/src/packages_write_pickup.F |
168 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
|
./model/src/packages_write_pickup.F |
16 |
PACKAGES_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./model/src/packages_write_pickup.F |
38 |
PACKAGES_WRITE_PICKUP |
INTEGER myIter |
|
./model/src/packages_write_pickup.F |
53 |
PACKAGES_WRITE_PICKUP |
WRITE(suffix,'(I10.10)') myIter |
|
./model/src/packages_write_pickup.F |
62 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
|
./model/src/packages_write_pickup.F |
69 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
|
./model/src/packages_write_pickup.F |
76 |
PACKAGES_WRITE_PICKUP |
& suffix, myTime, myIter, myThid ) |
|
./model/src/packages_write_pickup.F |
83 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
|
./model/src/packages_write_pickup.F |
90 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
|
./model/src/packages_write_pickup.F |
97 |
PACKAGES_WRITE_PICKUP |
& suffix, myTime, myIter, myThid ) |
|
./model/src/plot_field.F |
127 |
PLOT_FIELD_XYRL |
INTEGER myIter |
|
./model/src/plot_field.F |
142 |
PLOT_FIELD_XYRL |
IF ( myIter .GE. 0 ) THEN |
|
./model/src/plot_field.F |
145 |
PLOT_FIELD_XYRL |
& myIter |
|
./model/src/plot_field.F |
14 |
PLOT_FIELD_XYRS |
I fld, fldNam , myIter, myThid ) |
|
./model/src/plot_field.F |
180 |
PLOT_FIELD_XYZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./model/src/plot_field.F |
215 |
PLOT_FIELD_XYZRS |
INTEGER myIter |
|
./model/src/plot_field.F |
230 |
PLOT_FIELD_XYZRS |
IF ( myIter .GE. 0 ) THEN |
|
./model/src/plot_field.F |
233 |
PLOT_FIELD_XYZRS |
& myIter |
|
./model/src/plot_field.F |
273 |
PLOT_FIELD_XYZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./model/src/plot_field.F |
308 |
PLOT_FIELD_XYZRL |
INTEGER myIter |
|
./model/src/plot_field.F |
323 |
PLOT_FIELD_XYZRL |
IF ( myIter .GE. 0 ) THEN |
|
./model/src/plot_field.F |
326 |
PLOT_FIELD_XYZRL |
& myIter |
|
./model/src/plot_field.F |
367 |
PLOT_FIELD_XZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./model/src/plot_field.F |
402 |
PLOT_FIELD_XZRS |
INTEGER myIter |
|
./model/src/plot_field.F |
417 |
PLOT_FIELD_XZRS |
IF ( myIter .GE. 0 ) THEN |
|
./model/src/plot_field.F |
420 |
PLOT_FIELD_XZRS |
& myIter |
|
./model/src/plot_field.F |
44 |
PLOT_FIELD_XYRS |
INTEGER myIter |
|
./model/src/plot_field.F |
455 |
PLOT_FIELD_XZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./model/src/plot_field.F |
490 |
PLOT_FIELD_XZRL |
INTEGER myIter |
|
./model/src/plot_field.F |
505 |
PLOT_FIELD_XZRL |
IF ( myIter .GE. 0 ) THEN |
|
./model/src/plot_field.F |
508 |
PLOT_FIELD_XZRL |
& myIter |
|
./model/src/plot_field.F |
545 |
PLOT_FIELD_YZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./model/src/plot_field.F |
580 |
PLOT_FIELD_YZRS |
INTEGER myIter |
|
./model/src/plot_field.F |
595 |
PLOT_FIELD_YZRS |
IF ( myIter .GE. 0 ) THEN |
|
./model/src/plot_field.F |
598 |
PLOT_FIELD_YZRS |
& myIter |
|
./model/src/plot_field.F |
59 |
PLOT_FIELD_XYRS |
IF ( myIter .GE. 0 ) THEN |
|
./model/src/plot_field.F |
62 |
PLOT_FIELD_XYRS |
& myIter |
|
./model/src/plot_field.F |
634 |
PLOT_FIELD_YZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
|
./model/src/plot_field.F |
669 |
PLOT_FIELD_YZRL |
INTEGER myIter |
|
./model/src/plot_field.F |
684 |
PLOT_FIELD_YZRL |
IF ( myIter .GE. 0 ) THEN |
|
./model/src/plot_field.F |
687 |
PLOT_FIELD_YZRL |
& myIter |
|
./model/src/plot_field.F |
97 |
PLOT_FIELD_XYRL |
I fld, fldNam , myIter, myThid ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
13 |
PTRACERS_FORCING_SURF |
I myTime,myIter,myThid ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
42 |
PTRACERS_FORCING_SURF |
INTEGER myIter |
|
./model/src/post_cg3d.F |
11 |
POST_CG3D |
I myTime, myIter, myThid ) |
|
./model/src/post_cg3d.F |
131 |
POST_CG3D |
WRITE(sufx,'(I10.10)') myIter |
|
./model/src/post_cg3d.F |
132 |
POST_CG3D |
CALL WRITE_FLD_XYZ_RL( 'cg3d_x.',sufx, phi_nh, myIter, myThid ) |
|
./model/src/post_cg3d.F |
44 |
POST_CG3D |
INTEGER myIter |
|
./model/src/pre_cg3d.F |
14 |
PRE_CG3D |
I myTime, myIter, myThid ) |
|
./model/src/pre_cg3d.F |
53 |
PRE_CG3D |
INTEGER myIter |
|
./model/src/read_pickup.F |
105 |
READ_PICKUP |
I Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
12 |
READ_PICKUP |
I myIter, myThid ) |
|
./model/src/read_pickup.F |
163 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
164 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gU, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
165 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 3, myIter,myThid ) |
|
./model/src/read_pickup.F |
166 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 4, myIter,myThid ) |
|
./model/src/read_pickup.F |
167 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gV, 5, myIter,myThid ) |
|
./model/src/read_pickup.F |
168 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 6, myIter,myThid ) |
|
./model/src/read_pickup.F |
169 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 7, myIter,myThid ) |
|
./model/src/read_pickup.F |
170 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gT, 8, myIter,myThid ) |
|
./model/src/read_pickup.F |
171 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 9, myIter,myThid ) |
|
./model/src/read_pickup.F |
172 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 10, myIter,myThid ) |
|
./model/src/read_pickup.F |
173 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gS, 11, myIter,myThid ) |
|
./model/src/read_pickup.F |
174 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1,12, myIter,myThid ) |
|
./model/src/read_pickup.F |
177 |
READ_PICKUP |
& 12*Nr+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
181 |
READ_PICKUP |
& 12*Nr+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
189 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
191 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
193 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
|
./model/src/read_pickup.F |
195 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
197 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
199 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
|
./model/src/read_pickup.F |
201 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta,nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
203 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
205 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
|
./model/src/read_pickup.F |
207 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
209 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
211 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
|
./model/src/read_pickup.F |
214 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
215 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
216 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 3, myIter,myThid ) |
|
./model/src/read_pickup.F |
217 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 4, myIter,myThid ) |
|
./model/src/read_pickup.F |
218 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 5, myIter,myThid ) |
|
./model/src/read_pickup.F |
219 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 6, myIter,myThid ) |
|
./model/src/read_pickup.F |
220 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 7, myIter,myThid ) |
|
./model/src/read_pickup.F |
221 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1, 8, myIter,myThid ) |
|
./model/src/read_pickup.F |
224 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,1, etaN, nj*Nr+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
227 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,dEtaHdt,nj*Nr+2,myIter,myThid ) |
|
./model/src/read_pickup.F |
230 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1, etaH, nj*Nr+3, myIter,myThid ) |
|
./model/src/read_pickup.F |
237 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, totPhiHyd,1,myIter,myThid ) |
|
./model/src/read_pickup.F |
242 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phi_nh, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
245 |
READ_PICKUP |
& 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
247 |
READ_PICKUP |
& 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
249 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm1, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
258 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
260 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
262 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
264 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
267 |
READ_PICKUP |
m1 = 1 + MOD(myIter+1,2) |
|
./model/src/read_pickup.F |
268 |
READ_PICKUP |
m2 = 1 + MOD( myIter ,2) |
|
./model/src/read_pickup.F |
273 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
277 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
282 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
286 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
293 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
297 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
302 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
306 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
313 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
317 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
322 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
326 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
334 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
338 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
346 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
349 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
354 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
359 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
364 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
372 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
377 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
384 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
391 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
395 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
401 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
405 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./model/src/read_pickup.F |
416 |
READ_PICKUP |
I myIter, myThid ) |
|
./model/src/read_pickup.F |
41 |
READ_PICKUP |
INTEGER myIter |
|
./model/src/read_pickup.F |
426 |
READ_PICKUP |
I myIter, myThid ) |
|
./model/src/read_pickup.F |
436 |
READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
|
./model/src/read_pickup.F |
87 |
READ_PICKUP |
WRITE(suff,'(I10.10)') myIter |
|
./model/src/solve_for_pressure.F |
102 |
SOLVE_FOR_PRESSURE |
IF ( myIter.EQ.1+nIter0 .AND. debugLevel .GE. debLevA ) THEN |
|
./model/src/solve_for_pressure.F |
10 |
SOLVE_FOR_PRESSURE |
SUBROUTINE SOLVE_FOR_PRESSURE( myTime, myIter, myThid ) |
|
./model/src/solve_for_pressure.F |
272 |
SOLVE_FOR_PRESSURE |
WRITE(sufx,'(I10.10)') myIter |
|
./model/src/solve_for_pressure.F |
273 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XY_RL( 'cg2d_b.', sufx, cg2d_b, myIter, myThid ) |
|
./model/src/solve_for_pressure.F |
356 |
SOLVE_FOR_PRESSURE |
WRITE(sufx,'(I10.10)') myIter |
|
./model/src/solve_for_pressure.F |
357 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XY_RL( 'cg2d_x.',sufx, cg2d_x, myIter, myThid ) |
|
./model/src/solve_for_pressure.F |
371 |
SOLVE_FOR_PRESSURE |
I myTime, myIter, myThid ) |
|
./model/src/solve_for_pressure.F |
380 |
SOLVE_FOR_PRESSURE |
WRITE(sufx,'(I10.10)') myIter |
|
./model/src/solve_for_pressure.F |
381 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XYZ_RL('cg3d_b.',sufx, cg3d_b, myIter,myThid ) |
|
./model/src/solve_for_pressure.F |
394 |
SOLVE_FOR_PRESSURE |
I myIter, myThid ) |
|
./model/src/solve_for_pressure.F |
416 |
SOLVE_FOR_PRESSURE |
WRITE(sufx,'(I10.10)') myIter |
|
./model/src/solve_for_pressure.F |
417 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XYZ_RL('cg3d_x.',sufx, phi_nh, myIter,myThid ) |
|
./model/src/solve_for_pressure.F |
421 |
SOLVE_FOR_PRESSURE |
I myTime, myIter, myThid ) |
|
./model/src/solve_for_pressure.F |
52 |
SOLVE_FOR_PRESSURE |
INTEGER myIter |
|
./model/src/swfrac.F |
13 |
SWFRAC |
I myTime, myIter, myThid ) |
|
./model/src/swfrac.F |
49 |
SWFRAC |
INTEGER myIter |
|
./model/src/the_main_loop.F |
153 |
THE_MAIN_LOOP |
INTEGER myIter |
|
./model/src/the_main_loop.F |
19 |
THE_MAIN_LOOP |
SUBROUTINE THE_MAIN_LOOP( myTime, myIter, myThid ) |
|
./model/src/the_main_loop.F |
459 |
THE_MAIN_LOOP |
myIter = nIter0 + (iloop-1) |
|
./model/src/the_main_loop.F |
482 |
THE_MAIN_LOOP |
+myTime, myIter, myThid ) |
|
./model/src/the_main_loop.F |
515 |
THE_MAIN_LOOP |
+myTime, myIter, myThid ) |
|
./model/src/the_main_loop.F |
539 |
THE_MAIN_LOOP |
CALL ECCO_COST_DRIVER ( myTime, myIter, mythid ) |
|
./model/src/thermodynamics.F |
128 |
THERMODYNAMICS |
INTEGER myIter |
|
./model/src/thermodynamics.F |
223 |
THERMODYNAMICS |
& myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
25 |
THERMODYNAMICS |
SUBROUTINE THERMODYNAMICS(myTime, myIter, myThid) |
|
./model/src/thermodynamics.F |
319 |
THERMODYNAMICS |
iterNb = myIter |
|
./model/src/thermodynamics.F |
320 |
THERMODYNAMICS |
IF (staggerTimeStep) iterNb = myIter - 1 |
|
./model/src/thermodynamics.F |
384 |
THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
397 |
THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
410 |
THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
423 |
THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
435 |
THERMODYNAMICS |
CALL PTRACERS_ADVECTION( bi,bj,myTime,myIter,myThid ) |
|
./model/src/thermodynamics.F |
630 |
THERMODYNAMICS |
I myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
637 |
THERMODYNAMICS |
I myIter, myThid) |
|
./model/src/thermodynamics.F |
644 |
THERMODYNAMICS |
I myIter, myThid) |
|
./model/src/thermodynamics.F |
680 |
THERMODYNAMICS |
I myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
687 |
THERMODYNAMICS |
I myIter, myThid) |
|
./model/src/thermodynamics.F |
694 |
THERMODYNAMICS |
I myIter, myThid) |
|
./model/src/thermodynamics.F |
719 |
THERMODYNAMICS |
I myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
748 |
THERMODYNAMICS |
I myTime, myIter, myThid ) |
|
./model/src/thermodynamics.F |
756 |
THERMODYNAMICS |
I myTime, myIter, myThid ) |
|
./model/src/thermodynamics.F |
767 |
THERMODYNAMICS |
I myTime, myIter, myThid ) |
|
./model/src/thermodynamics.F |
775 |
THERMODYNAMICS |
I myTime, myIter, myThid ) |
|
./model/src/thermodynamics.F |
782 |
THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/thermodynamics.F |
795 |
THERMODYNAMICS |
& CALL MATRIX_STORE_TENDENCY_EXP(bi,bj, myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
824 |
THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/thermodynamics.F |
875 |
THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/thermodynamics.F |
898 |
THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/timestep.F |
16 |
TIMESTEP |
I myTime, myIter, myThid ) |
|
./model/src/timestep.F |
186 |
TIMESTEP |
I mom_StartAB, myIter, myThid ) |
|
./model/src/timestep.F |
190 |
TIMESTEP |
I mom_StartAB, myIter, myThid ) |
|
./model/src/timestep.F |
195 |
TIMESTEP |
I mom_StartAB, myIter, myThid ) |
|
./model/src/timestep.F |
199 |
TIMESTEP |
I mom_StartAB, myIter, myThid ) |
|
./model/src/timestep.F |
272 |
TIMESTEP |
I myTime, myIter, myThid) |
|
./model/src/timestep.F |
55 |
TIMESTEP |
INTEGER myIter, myThid |
|
./model/src/timestep_tracer.F |
13 |
TIMESTEP_TRACER |
I myIter, myThid ) |
|
./model/src/timestep_tracer.F |
35 |
TIMESTEP_TRACER |
INTEGER myIter, myThid |
|
./model/src/timestep_wvel.F |
11 |
TIMESTEP_WVEL |
I bi,bj, myTime, myIter, myThid ) |
|
./model/src/timestep_wvel.F |
34 |
TIMESTEP_WVEL |
INTEGER myIter, myThid |
|
./model/src/tracers_correction_step.F |
10 |
TRACERS_CORRECTION_STEP |
SUBROUTINE TRACERS_CORRECTION_STEP(myTime, myIter, myThid) |
|
./model/src/tracers_correction_step.F |
120 |
TRACERS_CORRECTION_STEP |
CALL SALT_FILL( uVel,vVel,salt,1,myTime,myIter,myThid ) |
|
./model/src/tracers_correction_step.F |
137 |
TRACERS_CORRECTION_STEP |
I myTime, myIter, myThid ) |
|
./model/src/tracers_correction_step.F |
143 |
TRACERS_CORRECTION_STEP |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/tracers_correction_step.F |
148 |
TRACERS_CORRECTION_STEP |
& CALL MATRIX_STORE_TENDENCY_IMP( bi, bj, myTime, myIter, myThid ) |
|
./model/src/tracers_correction_step.F |
46 |
TRACERS_CORRECTION_STEP |
INTEGER myIter |
|
./model/src/tracers_correction_step.F |
66 |
TRACERS_CORRECTION_STEP |
I myTime,myIter,myThid ) |
|
./model/src/tracers_correction_step.F |
71 |
TRACERS_CORRECTION_STEP |
I myTime,myIter,myThid ) |
|
./model/src/tracers_correction_step.F |
76 |
TRACERS_CORRECTION_STEP |
& CALL PTRACERS_CYCLE(bi,bj,myTime,myIter,myThid) |
|
./model/src/tracers_correction_step.F |
82 |
TRACERS_CORRECTION_STEP |
CALL TRACERS_IIGW_CORRECTION(bi,bj, myTime,myIter,myThid) |
|
./model/src/tracers_correction_step.F |
99 |
TRACERS_CORRECTION_STEP |
CALL SHAP_FILT_APPLY_TS( theta,salt, myTime, myIter, myThid ) |
|
./model/src/tracers_iigw_correction.F |
10 |
TRACERS_IIGW_CORRECTION |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/tracers_iigw_correction.F |
40 |
TRACERS_IIGW_CORRECTION |
INTEGER myIter |
|
./model/src/update_cg2d.F |
10 |
UPDATE_CG2D |
SUBROUTINE UPDATE_CG2D( myTime, myIter, myThid ) |
|
./model/src/update_cg2d.F |
42 |
UPDATE_CG2D |
INTEGER myIter |
|
./model/src/update_cg2d.F |
64 |
UPDATE_CG2D |
updatePreCond = ( myIter.EQ.nIter0 ) |
|
./model/src/update_cg2d.F |
65 |
UPDATE_CG2D |
IF ( MOD(myIter,cg2dPreCondFreq).EQ.0 ) updatePreCond=.TRUE. |
|
./model/src/update_etah.F |
10 |
UPDATE_ETAH |
SUBROUTINE UPDATE_ETAH( myTime, myIter, myThid ) |
|
./model/src/update_etah.F |
36 |
UPDATE_ETAH |
INTEGER myIter |
|
./model/src/update_r_star.F |
10 |
UPDATE_R_STAR |
SUBROUTINE UPDATE_R_STAR( myTime, myIter, myThid ) |
|
./model/src/update_r_star.F |
39 |
UPDATE_R_STAR |
INTEGER myIter |
|
./model/src/update_r_star.F |
81 |
UPDATE_R_STAR |
I myTime, myIter, myThid ) |
|
./model/src/update_sigma.F |
10 |
UPDATE_SIGMA |
SUBROUTINE UPDATE_SIGMA( etaHc, myTime, myIter, myThid ) |
|
./model/src/update_sigma.F |
41 |
UPDATE_SIGMA |
INTEGER myIter |
|
./model/src/update_surf_dr.F |
10 |
UPDATE_SURF_DR |
SUBROUTINE UPDATE_SURF_DR( myTime, myIter, myThid ) |
|
./model/src/update_surf_dr.F |
39 |
UPDATE_SURF_DR |
INTEGER myIter |
|
./model/src/write_pickup.F |
112 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, uVel, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
115 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, vVel, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
119 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, theta, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
122 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, salt, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
126 |
WRITE_PICKUP |
m1 = 1 + MOD(myIter+1,2) |
|
./model/src/write_pickup.F |
127 |
WRITE_PICKUP |
m2 = 1 + MOD( myIter ,2) |
|
./model/src/write_pickup.F |
133 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
139 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
13 |
WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./model/src/write_pickup.F |
146 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
152 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
161 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
170 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
182 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
191 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
204 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
210 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
218 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
221 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
226 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
231 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
237 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
246 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr,totPhiHyd,-j,myIter, myThid ) |
|
./model/src/write_pickup.F |
252 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, phi_nh, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
260 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr,addMass,-j,myIter, myThid ) |
|
./model/src/write_pickup.F |
269 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1 , etaN, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
275 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dPhiNH, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
283 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dEtaHdt, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
291 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, etaHnm1, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
316 |
WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
331 |
WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./model/src/write_pickup.F |
338 |
WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./model/src/write_pickup.F |
47 |
WRITE_PICKUP |
INTEGER myIter |
|
./model/src/write_pickup.F |
95 |
WRITE_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup.',myIter |
|
./model/src/write_state.F |
104 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'U', uVel,iRec,myIter,myThid) |
|
./model/src/write_state.F |
105 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'V', vVel,iRec,myIter,myThid) |
|
./model/src/write_state.F |
106 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'T', theta,iRec,myIter,myThid) |
|
./model/src/write_state.F |
107 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'S', salt,iRec,myIter,myThid) |
|
./model/src/write_state.F |
108 |
WRITE_STATE |
CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid) |
|
./model/src/write_state.F |
109 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
|
./model/src/write_state.F |
112 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid) |
|
./model/src/write_state.F |
126 |
WRITE_STATE |
WRITE(suff,'(I10.10)') myIter |
|
./model/src/write_state.F |
127 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVel,myIter,myThid) |
|
./model/src/write_state.F |
128 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVel,myIter,myThid) |
|
./model/src/write_state.F |
129 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'T.',suff,theta,myIter,myThid) |
|
./model/src/write_state.F |
130 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid) |
|
./model/src/write_state.F |
131 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid) |
|
./model/src/write_state.F |
132 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid) |
|
./model/src/write_state.F |
133 |
WRITE_STATE |
IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 ) THEN |
|
./model/src/write_state.F |
134 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHyd,myIter,myThid) |
|
./model/src/write_state.F |
136 |
WRITE_STATE |
IF ( fluidIsWater .AND. (myIter.NE.nIter0) ) THEN |
|
./model/src/write_state.F |
137 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid) |
|
./model/src/write_state.F |
141 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid ) |
|
./model/src/write_state.F |
144 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL( 'dPnh.',suff,dPhiNH,myIter,myThid ) |
|
./model/src/write_state.F |
14 |
WRITE_STATE |
SUBROUTINE WRITE_STATE ( myTime, myIter, myThid ) |
|
./model/src/write_state.F |
170 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','state',0,0,'iter', myIter, myThid) |
|
./model/src/write_state.F |
178 |
WRITE_STATE |
IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 ) THEN |
|
./model/src/write_state.F |
182 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','phiHyd',0,0,'iter',myIter,myThid) |
|
./model/src/write_state.F |
186 |
WRITE_STATE |
IF ( fluidIsWater .AND. (myIter .NE. nIter0) ) THEN |
|
./model/src/write_state.F |
190 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','phiHydLow',0,0,'iter',myIter,myThid) |
|
./model/src/write_state.F |
72 |
WRITE_STATE |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_apply_import.F |
13 |
ATM_APPLY_IMPORT |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_compon_interf/atm_apply_import.F |
54 |
ATM_APPLY_IMPORT |
INTEGER myIter, bi, bj, myThid |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
34 |
ATM_CPL_READ_PICKUP |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
44 |
ATM_CPL_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
57 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, ocMxlD , 1, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
58 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, SSTocn , 2, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
59 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, SSSocn , 3, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
60 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, vSqocn , 4, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
62 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, atmSLPr , 5, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
63 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, HeatFlux , 6, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
64 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, qShortWave, 7, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
65 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, tauX , 8, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
66 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, tauY , 9, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
67 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, EvMPrFlux , 10, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
68 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, RunOffFlux, 11, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
69 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, RunOffEnFx, 12, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
70 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, iceSaltFlx, 13, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
71 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, seaIceMass, 14, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
74 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, flxCO2ocn , 15, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
75 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, airCO2 , 16, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
76 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, sWSpeed , 17, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
77 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, fracIce , 18, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
9 |
ATM_CPL_READ_PICKUP |
SUBROUTINE ATM_CPL_READ_PICKUP( myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_airco2.F |
14 |
ATM_STORE_AIRCO2 |
I myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_airco2.F |
53 |
ATM_STORE_AIRCO2 |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_atmslp.F |
38 |
ATM_STORE_ATMSLP |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_atmslp.F |
9 |
ATM_STORE_ATMSLP |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_evmpr.F |
38 |
ATM_STORE_EVMPR |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_evmpr.F |
9 |
ATM_STORE_EVMPR |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_fracice.F |
11 |
ATM_STORE_FRACICE |
I myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_fracice.F |
47 |
ATM_STORE_FRACICE |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_heatflux.F |
38 |
ATM_STORE_HEATFLUX |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_heatflux.F |
9 |
ATM_STORE_HEATFLUX |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
10 |
ATM_STORE_MY_DATA |
I myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
39 |
ATM_STORE_MY_DATA |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
47 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_ATMSLP( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
48 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_HEATFLUX( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
49 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_QSHORTWAVE( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
57 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_EVMPR( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
59 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_RUNOFF( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
60 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_ROENFX( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
63 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_SALTFX( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
64 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_SEAICE( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
67 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_WSPEED( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
69 |
ATM_STORE_MY_DATA |
& CALL ATM_STORE_FRACICE( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
70 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_AIRCO2( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_qshortwave.F |
38 |
ATM_STORE_QSHORTWAVE |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_qshortwave.F |
9 |
ATM_STORE_QSHORTWAVE |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_roenfx.F |
10 |
ATM_STORE_ROENFX |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_roenfx.F |
47 |
ATM_STORE_ROENFX |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
10 |
ATM_STORE_RUNOFF |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
47 |
ATM_STORE_RUNOFF |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_saltfx.F |
38 |
ATM_STORE_SALTFX |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_saltfx.F |
9 |
ATM_STORE_SALTFX |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
10 |
ATM_STORE_SEAICE |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
42 |
ATM_STORE_SEAICE |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_taux.F |
44 |
ATM_STORE_TAUX |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_taux.F |
9 |
ATM_STORE_TAUX |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
44 |
ATM_STORE_TAUY |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
9 |
ATM_STORE_TAUY |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_wspeed.F |
11 |
ATM_STORE_WSPEED |
I myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_wspeed.F |
50 |
ATM_STORE_WSPEED |
INTEGER myIter |
|
./pkg/aim_compon_interf/cpl_export_my_data.F |
10 |
CPL_EXPORT_MY_DATA |
I myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/cpl_export_my_data.F |
39 |
CPL_EXPORT_MY_DATA |
INTEGER myIter |
|
./pkg/aim_compon_interf/cpl_export_my_data.F |
50 |
CPL_EXPORT_MY_DATA |
IF ( MOD(myIter,cplSendFrq_iter).EQ.0 ) THEN |
|
./pkg/aim_compon_interf/cpl_export_my_data.F |
53 |
CPL_EXPORT_MY_DATA |
& ' ) atmospheric fluxes at iter.', myIter |
|
./pkg/aim_compon_interf/cpl_import_external_data.F |
10 |
CPL_IMPORT_EXTERNAL_DATA |
I myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/cpl_import_external_data.F |
35 |
CPL_IMPORT_EXTERNAL_DATA |
INTEGER myIter |
|
./pkg/aim_compon_interf/cpl_import_external_data.F |
47 |
CPL_IMPORT_EXTERNAL_DATA |
IF ( MOD(myIter,cplSendFrq_iter).EQ.0 ) THEN |
|
./pkg/aim_compon_interf/cpl_import_external_data.F |
50 |
CPL_IMPORT_EXTERNAL_DATA |
& ' ) oceanic fields at iteration', myIter |
|
./pkg/aim_compon_interf/cpl_output.F |
27 |
CPL_OUTPUT |
INTEGER myIter |
|
./pkg/aim_compon_interf/cpl_output.F |
7 |
CPL_OUTPUT |
SUBROUTINE CPL_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
10 |
CPL_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
38 |
CPL_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
64 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, ocMxlD , 1, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
65 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, SSTocn , 2, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
66 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, SSSocn , 3, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
67 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, vSqocn , 4, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
69 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, atmSLPr , 5, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
70 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, HeatFlux , 6, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
71 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, qShortWave, 7, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
72 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tauX , 8, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
73 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tauY , 9, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
74 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, EvMPrFlux , 10, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
75 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, RunOffFlux, 11, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
76 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, RunOffEnFx, 12, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
77 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, iceSaltFlx, 13, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
78 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, seaIceMass, 14, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
81 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,1, flxCO2ocn , 15, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
82 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,1, airCO2 , 16, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
83 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,1, sWSpeed , 17, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
84 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,1, fracIce , 18, myIter,myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
10 |
AIM_AIM2DYN |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
55 |
AIM_AIM2DYN |
INTEGER myIter, myThid |
|
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
13 |
AIM_AIM2DYN_EXCHANGES |
I myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
43 |
AIM_AIM2DYN_EXCHANGES |
INTEGER myIter |
|
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
75 |
AIM_AIM2DYN_EXCHANGES |
CALL ATM_STORE_TAUX( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
76 |
AIM_AIM2DYN_EXCHANGES |
CALL ATM_STORE_TAUY( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_aim2land.F |
13 |
AIM_AIM2LAND |
I land_frc, bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
51 |
AIM_AIM2LAND |
INTEGER bi, bj, myIter, myThid |
|
./pkg/aim_v23/aim_aim2sioce.F |
15 |
AIM_AIM2SIOCE |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
78 |
AIM_AIM2SIOCE |
INTEGER bi, bj, myIter, myThid |
|
./pkg/aim_v23/aim_diagnostics.F |
101 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
106 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
108 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
133 |
AIM_DIAGNOSTICS |
CALL MNC_CW_I_W_S('I',suff,0,0,'iter',myIter,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
160 |
AIM_DIAGNOSTICS |
WRITE(suff,'(A1,I10.10)') '.', myIter+1 |
|
./pkg/aim_v23/aim_diagnostics.F |
164 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
168 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
170 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 2, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
172 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 3, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
174 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 4, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
176 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 5, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
178 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 6, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
180 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 7, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
182 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 8, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
184 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 9, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
186 |
AIM_DIAGNOSTICS |
& 1, bi, bj,10, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
188 |
AIM_DIAGNOSTICS |
& 1, bi, bj,11, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
190 |
AIM_DIAGNOSTICS |
& 1, bi, bj,12, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
192 |
AIM_DIAGNOSTICS |
& 1, bi, bj,13, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
194 |
AIM_DIAGNOSTICS |
& 1, bi, bj,14, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
196 |
AIM_DIAGNOSTICS |
& 1, bi, bj,15, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
198 |
AIM_DIAGNOSTICS |
& 1, bi, bj,16, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
200 |
AIM_DIAGNOSTICS |
& 1, bi, bj,17, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
202 |
AIM_DIAGNOSTICS |
& 1, bi, bj,18, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
207 |
AIM_DIAGNOSTICS |
& 1, bi, bj,19, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
209 |
AIM_DIAGNOSTICS |
& 1, bi, bj,20, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
211 |
AIM_DIAGNOSTICS |
& 1, bi, bj,21, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
213 |
AIM_DIAGNOSTICS |
& 1, bi, bj,22, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
235 |
AIM_DIAGNOSTICS |
CALL MNC_CW_I_W_S('I',suff,0,0,'iter',myIter+1,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
43 |
AIM_DIAGNOSTICS |
INTEGER myIter, myThid |
|
./pkg/aim_v23/aim_diagnostics.F |
84 |
AIM_DIAGNOSTICS |
WRITE(suff,'(A1,I10.10)') '.', myIter+1 |
|
./pkg/aim_v23/aim_diagnostics.F |
87 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
89 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
91 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
93 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
95 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
97 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
99 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
9 |
AIM_DIAGNOSTICS |
SUBROUTINE AIM_DIAGNOSTICS( bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_co2.F |
155 |
AIM_DO_CO2 |
WRITE(fn,'(A,I10.10)') 'pickup_aimCo2.',myIter+1 |
|
./pkg/aim_v23/aim_do_co2.F |
37 |
AIM_DO_CO2 |
INTEGER myIter, myThid |
|
./pkg/aim_v23/aim_do_co2.F |
7 |
AIM_DO_CO2 |
SUBROUTINE AIM_DO_CO2( myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_do_physics.F |
105 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
121 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
144 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
146 |
AIM_DO_PHYSICS |
CALL AIM_AIM2DYN( bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
152 |
AIM_DO_PHYSICS |
I myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
156 |
AIM_DO_PHYSICS |
I myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
160 |
AIM_DO_PHYSICS |
I myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
169 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
177 |
AIM_DO_PHYSICS |
I myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
183 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
186 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
193 |
AIM_DO_PHYSICS |
CALL ATM_STORE_MY_DATA( bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
198 |
AIM_DO_PHYSICS |
CALL AIM_DIAGNOSTICS( bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
52 |
AIM_DO_PHYSICS |
INTEGER myIter |
|
./pkg/aim_v23/aim_do_physics.F |
81 |
AIM_DO_PHYSICS |
CALL AIM_DO_CO2( myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
9 |
AIM_DO_PHYSICS |
SUBROUTINE AIM_DO_PHYSICS( myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
10 |
AIM_DYN2AIM |
I bi,bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_dyn2aim.F |
250 |
AIM_DYN2AIM |
IF (myIter.EQ.nIter0) |
|
./pkg/aim_v23/aim_dyn2aim.F |
252 |
AIM_DYN2AIM |
& 1, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
51 |
AIM_DYN2AIM |
INTEGER bi, bj, myIter, myThid |
|
./pkg/aim_v23/aim_fields_load.F |
100 |
AIM_FIELDS_LOAD |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/aim_v23/aim_fields_load.F |
135 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS( fNam, aim_albedo, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_fields_load.F |
145 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS( fNam, aim_sst0, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_fields_load.F |
150 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS( fNam, aim_sw10, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_fields_load.F |
196 |
AIM_FIELDS_LOAD |
IF (myIter.EQ.nIter0) THEN |
|
./pkg/aim_v23/aim_fields_load.F |
209 |
AIM_FIELDS_LOAD |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/aim_v23/aim_fields_load.F |
255 |
AIM_FIELDS_LOAD |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/aim_v23/aim_fields_load.F |
262 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_albFile,aim_albedo, 1,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
266 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_vegFile,aim_veget,1,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
273 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_sstFile,aim_sst0,nm0,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
274 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_sstFile,aim_sst1,nm1,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
277 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_lstFile,aim_lst0,nm0,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
278 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_lstFile,aim_lst1,nm1,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
281 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_oiceFile,aim_oic0,nm0,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
282 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_oiceFile,aim_oic1,nm1,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
285 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_snowFile,aim_snw0,nm0,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
286 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_snowFile,aim_snw1,nm1,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
289 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_swcFile,aim_sw10,nm0,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
290 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_swcFile,aim_sw11,nm1,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
293 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_swcFile,aim_sw20,nm2,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
294 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_swcFile,aim_sw21,nm3,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
297 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_qfxFile,aim_qfx0,nm0,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
298 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_qfxFile,aim_qfx1,nm1,myIter,myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
309 |
AIM_FIELDS_LOAD |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/aim_v23/aim_fields_load.F |
41 |
AIM_FIELDS_LOAD |
INTEGER myIter |
|
./pkg/aim_v23/aim_fields_load.F |
8 |
AIM_FIELDS_LOAD |
I myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_land2aim.F |
15 |
AIM_LAND2AIM |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_land2aim.F |
184 |
AIM_LAND2AIM |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_land2aim.F |
69 |
AIM_LAND2AIM |
INTEGER myIter, bi, bj, myThid |
|
./pkg/aim_v23/aim_land_impl.F |
118 |
AIM_LAND_IMPL |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_land_impl.F |
18 |
AIM_LAND_IMPL |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_land_impl.F |
73 |
AIM_LAND_IMPL |
INTEGER bi, bj, myIter, myThid |
|
./pkg/aim_v23/aim_sice2aim.F |
118 |
AIM_SICE2AIM |
I myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_sice2aim.F |
139 |
AIM_SICE2AIM |
& .AND. myIter.EQ.nIter0 ) |
|
./pkg/aim_v23/aim_sice2aim.F |
140 |
AIM_SICE2AIM |
& .OR. ( myIter.EQ.0 .AND. myTime.EQ.baseTime .AND. |
|
./pkg/aim_v23/aim_sice2aim.F |
151 |
AIM_SICE2AIM |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/aim_v23/aim_sice2aim.F |
155 |
AIM_SICE2AIM |
& bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_sice2aim.F |
158 |
AIM_SICE2AIM |
& bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_sice2aim.F |
16 |
AIM_SICE2AIM |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_sice2aim.F |
76 |
AIM_SICE2AIM |
INTEGER myIter, bi, bj, myThid |
|
./pkg/aim_v23/aim_sice_impl.F |
17 |
AIM_SICE_IMPL |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_sice_impl.F |
71 |
AIM_SICE_IMPL |
INTEGER bi, bj, myIter, myThid |
|
./pkg/aim_v23/aim_sice_impl.F |
95 |
AIM_SICE_IMPL |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
12 |
AIM_SURF_BC |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_surf_bc.F |
359 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_surf_bc.F |
385 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_surf_bc.F |
396 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_surf_bc.F |
70 |
AIM_SURF_BC |
INTEGER myIter, myThid |
|
./pkg/aim_v23/aim_write_local.F |
11 |
AIM_WRITE_LOCAL |
I bi, bj, iRec, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_local.F |
40 |
AIM_WRITE_LOCAL |
INTEGER bi, bj, iRec, myIter, myThid |
|
./pkg/aim_v23/aim_write_local.F |
61 |
AIM_WRITE_LOCAL |
& 'AIM_WRITE_LOCAL (it=', myIter, ' bi,bj=', bi,bj, |
|
./pkg/aim_v23/aim_write_local.F |
94 |
AIM_WRITE_LOCAL |
& bi, bj, iRec, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_phys.F |
11 |
AIM_WRITE_PHYS |
I kLev, bi, bj, iRec, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_phys.F |
133 |
AIM_WRITE_PHYS |
& biLoc, bjLoc, iRec, myIter, 0 ) |
|
./pkg/aim_v23/aim_write_phys.F |
43 |
AIM_WRITE_PHYS |
INTEGER kLev, bi, bj, iRec, myIter, myThid |
|
./pkg/aim_v23/aim_write_phys.F |
81 |
AIM_WRITE_PHYS |
& 'AIM_WRITE_PHYS (it=', myIter, ' bi,bj=', bi,bj, |
|
./pkg/aim_v23/aim_write_phys.F |
91 |
AIM_WRITE_PHYS |
& 'AIM_WRITE_PHYS (it=', myIter, ' bi,bj=', bi,bj, |
|
./pkg/aim_v23/aim_write_tave.F |
134 |
AIM_WRITE_TAVE |
CALL MNC_CW_I_W_S('I',mncfn,0,0,'iter',myIter,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
164 |
AIM_WRITE_TAVE |
WRITE(fn,'(A,I10.10)') 'aimPhytave.',myIter |
|
./pkg/aim_v23/aim_write_tave.F |
165 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, USTRtave, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
166 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, VSTRtave, 2, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
167 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, TSRtave , 3, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
168 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, OLRtave , 4, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
169 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, SSRtave , 5, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
170 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, SLRtave , 6, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
171 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, SHFtave , 7, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
172 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, EVAPtave, 8, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
173 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, PRECNVtave, 9, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
174 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, PRECLStave, 10, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
175 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, CLOUDCtave, 11, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
176 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, CLTOPtave, 12, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
177 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, CBMFtave, 13, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
178 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, DRAGtave, 14, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
179 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, aimV0tave, 15, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
180 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, aimT0tave, 16, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
181 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, aimQ0tave, 17, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
182 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, EnFxPrtave, 18, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
183 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, albedotave, 19, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
184 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, dTsurftave, 20, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
186 |
AIM_WRITE_TAVE |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/aim_v23/aim_write_tave.F |
188 |
AIM_WRITE_TAVE |
& myIter,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
191 |
AIM_WRITE_TAVE |
& '// AIM Time-average written, t-step', myIter |
|
./pkg/aim_v23/aim_write_tave.F |
33 |
AIM_WRITE_TAVE |
INTEGER myIter |
|
./pkg/aim_v23/aim_write_tave.F |
57 |
AIM_WRITE_TAVE |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/aim_v23/aim_write_tave.F |
88 |
AIM_WRITE_TAVE |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/aim_v23/aim_write_tave.F |
9 |
AIM_WRITE_TAVE |
SUBROUTINE AIM_WRITE_TAVE( myTime, myIter, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
10 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
141 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
306 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/phy_driver.F |
334 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/phy_driver.F |
80 |
PHY_DRIVER |
INTEGER myIter, myThid |
|
./pkg/atm2d/atm2d_write_pickup.F |
104 |
ATM2D_WRITE_PICKUP_NOW |
I myIter, |
|
./pkg/atm2d/atm2d_write_pickup.F |
129 |
ATM2D_WRITE_PICKUP_NOW |
INTEGER myIter |
|
./pkg/atm2d/atm2d_write_pickup.F |
148 |
ATM2D_WRITE_PICKUP_NOW |
WRITE(fn,'(A,I10.10)') 'pickup_atm2d.',myIter |
|
./pkg/atm2d/atm2d_write_pickup.F |
153 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_slp, 1,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
154 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_qnet, 2,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
155 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_solarnet, 3,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
156 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_fu, 4,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
157 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_fv, 5,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
158 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_precip, 6,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
159 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_evap, 7,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
160 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_runoff, 8,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
161 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_wspeed, 9,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
162 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_pCO2, 10,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
163 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_sIceLoad,11,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
165 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,sHeating, 12,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
166 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,flxCndBt, 13,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
167 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_prcAtm, 14,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
168 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,snowPrc, 15,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
169 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,icFrwAtm, 16,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
170 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,icFlxSw, 17,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
171 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,siceAlb, 18,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
43 |
ATM2D_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/atm2d/atm2d_write_pickup.F |
66 |
ATM2D_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
69 |
ATM2D_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
83 |
ATM2D_WRITE_PICKUP |
& permCheckPoint, myTime, myIter, myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
9 |
ATM2D_WRITE_PICKUP |
I myIter, |
|
./pkg/atm2d/atm2ocn_main.F |
32 |
ATM2OCN_MAIN |
INTEGER myIter |
|
./pkg/atm2d/atm2ocn_main.F |
58 |
ATM2OCN_MAIN |
& intime0,intime1,ifTime,myIter,myThid) |
|
./pkg/atm2d/atm2ocn_main.F |
61 |
ATM2OCN_MAIN |
& intime0,intime1,ifTime,myIter,myThid) |
|
./pkg/atm2d/atm2ocn_main.F |
8 |
ATM2OCN_MAIN |
& myIter, myThid ) |
|
./pkg/atm2d/calc_zonal_means.F |
42 |
CALC_ZONAL_MEANS |
INTEGER myIter |
|
./pkg/atm2d/calc_zonal_means.F |
68 |
CALC_ZONAL_MEANS |
I myTime, myIter, myThid ) |
|
./pkg/atm2d/calc_zonal_means.F |
8 |
CALC_ZONAL_MEANS |
SUBROUTINE CALC_ZONAL_MEANS(doAll, myTime, myIter, myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
103 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
105 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
109 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
111 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
36 |
FIXED_FLUX_ADD |
INTEGER myIter |
|
./pkg/atm2d/fixed_flux_add.F |
73 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
75 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
79 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
81 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
85 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
87 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
91 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
93 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
97 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
99 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/fixed_flux_add.F |
9 |
FIXED_FLUX_ADD |
& intime0, intime1, iftime, myIter, myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
156 |
FORWARD_STEP_ATM2D |
CALL GET_OCNVARS( myTime, myIter, myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
161 |
FORWARD_STEP_ATM2D |
& myTime, myIter, myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
162 |
FORWARD_STEP_ATM2D |
CALL THSICE_AVE( 1,1, myTime, myIter, myThid ) |
|
./pkg/atm2d/forward_step_atm2d.F |
165 |
FORWARD_STEP_ATM2D |
CALL PUT_OCNVARS(myTime,myIter,myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
166 |
FORWARD_STEP_ATM2D |
CALL SUM_YR_END_DIAGS(myTime,myIter,myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
176 |
FORWARD_STEP_ATM2D |
CALL ATM2OCN_MAIN(iloop, na, monid, myIter, myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
180 |
FORWARD_STEP_ATM2D |
& myTime, myIter, myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
192 |
FORWARD_STEP_ATM2D |
CALL FORWARD_STEP(iloop_ocn, myTime, myIter, myThid ) |
|
./pkg/atm2d/forward_step_atm2d.F |
194 |
FORWARD_STEP_ATM2D |
myIter = nIter0 + iloop_ocn |
|
./pkg/atm2d/forward_step_atm2d.F |
196 |
FORWARD_STEP_ATM2D |
CALL DO_THE_MODEL_IO( .FALSE., myTime, myIter, myThid ) |
|
./pkg/atm2d/forward_step_atm2d.F |
197 |
FORWARD_STEP_ATM2D |
CALL DO_WRITE_PICKUP( .FALSE., myTime, myIter, myThid ) |
|
./pkg/atm2d/forward_step_atm2d.F |
210 |
FORWARD_STEP_ATM2D |
CALL ATM2D_WRITE_PICKUP(.FALSE., myTime, myIter, myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
272 |
FORWARD_STEP_ATM2D |
CALL MONTH_END_DIAGS( monid, myTime, myIter, myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
328 |
FORWARD_STEP_ATM2D |
CALL TAVE_END_DIAGS( taveDump, myTime, myIter, myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
330 |
FORWARD_STEP_ATM2D |
CALL TAVE_END_DIAGS( idyear, myTime, myIter, myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
332 |
FORWARD_STEP_ATM2D |
CALL YR_END_DIAGS(iyr,myTime,myIter,myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
35 |
FORWARD_STEP_ATM2D |
INTEGER myIter |
|
./pkg/atm2d/forward_step_atm2d.F |
9 |
FORWARD_STEP_ATM2D |
SUBROUTINE FORWARD_STEP_ATM2D(iloop, myTime, myIter, myThid) |
|
./pkg/atm2d/get_ocnvars.F |
43 |
GET_OCNVARS |
INTEGER myIter |
|
./pkg/atm2d/get_ocnvars.F |
8 |
GET_OCNVARS |
SUBROUTINE GET_OCNVARS( myTime, myIter, myThid ) |
|
./pkg/atm2d/month_end_diags.F |
100 |
MONTH_END_DIAGS |
& myIter, myThid) |
|
./pkg/atm2d/month_end_diags.F |
102 |
MONTH_END_DIAGS |
& myIter, myThid) |
|
./pkg/atm2d/month_end_diags.F |
104 |
MONTH_END_DIAGS |
& myIter, myThid) |
|
./pkg/atm2d/month_end_diags.F |
29 |
MONTH_END_DIAGS |
INTEGER myIter |
|
./pkg/atm2d/month_end_diags.F |
84 |
MONTH_END_DIAGS |
& myIter, myThid) |
|
./pkg/atm2d/month_end_diags.F |
86 |
MONTH_END_DIAGS |
& myIter, myThid) |
|
./pkg/atm2d/month_end_diags.F |
88 |
MONTH_END_DIAGS |
& myIter, myThid) |
|
./pkg/atm2d/month_end_diags.F |
8 |
MONTH_END_DIAGS |
SUBROUTINE MONTH_END_DIAGS( monid, myTime, myIter, myThid ) |
|
./pkg/atm2d/month_end_diags.F |
90 |
MONTH_END_DIAGS |
& myIter, myThid) |
|
./pkg/atm2d/month_end_diags.F |
92 |
MONTH_END_DIAGS |
& myIter, myThid) |
|
./pkg/atm2d/month_end_diags.F |
94 |
MONTH_END_DIAGS |
& myIter, myThid) |
|
./pkg/atm2d/month_end_diags.F |
96 |
MONTH_END_DIAGS |
& myIter, myThid) |
|
./pkg/atm2d/month_end_diags.F |
98 |
MONTH_END_DIAGS |
& myIter, myThid) |
|
./pkg/atm2d/put_ocnvars.F |
41 |
PUT_OCNVARS |
INTEGER myIter |
|
./pkg/atm2d/put_ocnvars.F |
8 |
PUT_OCNVARS |
SUBROUTINE PUT_OCNVARS( myTime, myIter, myThid ) |
|
./pkg/atm2d/relax_add.F |
40 |
RELAX_ADD |
INTEGER myIter |
|
./pkg/atm2d/relax_add.F |
67 |
RELAX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/relax_add.F |
69 |
RELAX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/relax_add.F |
73 |
RELAX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/relax_add.F |
75 |
RELAX_ADD |
& myIter,myThid ) |
|
./pkg/atm2d/relax_add.F |
9 |
RELAX_ADD |
& intime0, intime1, iftime, myIter, myThid) |
|
./pkg/atm2d/sum_yr_end_diags.F |
30 |
SUM_YR_END_DIAGS |
INTEGER myIter |
|
./pkg/atm2d/sum_yr_end_diags.F |
8 |
SUM_YR_END_DIAGS |
SUBROUTINE SUM_YR_END_DIAGS( myTime, myIter, myThid ) |
|
./pkg/atm2d/tave_end_diags.F |
132 |
TAVE_END_DIAGS |
& qnet_mon, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
134 |
TAVE_END_DIAGS |
& evap_mon, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
136 |
TAVE_END_DIAGS |
& precip_mon, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
138 |
TAVE_END_DIAGS |
& runoff_mon, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
140 |
TAVE_END_DIAGS |
& qrel_mon, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
142 |
TAVE_END_DIAGS |
& frel_mon, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
144 |
TAVE_END_DIAGS |
& iceMask_mon, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
146 |
TAVE_END_DIAGS |
& iceHeight_mon, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
148 |
TAVE_END_DIAGS |
& iceTime_mon, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
150 |
TAVE_END_DIAGS |
& oceMxLT_mon, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
152 |
TAVE_END_DIAGS |
& oceMxLS_mon, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
156 |
TAVE_END_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/atm2d/tave_end_diags.F |
158 |
TAVE_END_DIAGS |
& qnet_ann, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
160 |
TAVE_END_DIAGS |
& evap_ann, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
162 |
TAVE_END_DIAGS |
& precip_ann, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
164 |
TAVE_END_DIAGS |
& runoff_ann, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
166 |
TAVE_END_DIAGS |
& qrel_ann, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
168 |
TAVE_END_DIAGS |
& frel_ann, myIter, myThid) |
|
./pkg/atm2d/tave_end_diags.F |
171 |
TAVE_END_DIAGS |
simYr = int(myIter*deltaTClock/secYr) |
|
./pkg/atm2d/tave_end_diags.F |
30 |
TAVE_END_DIAGS |
INTEGER myIter |
|
./pkg/atm2d/tave_end_diags.F |
8 |
TAVE_END_DIAGS |
SUBROUTINE TAVE_END_DIAGS( nYears, myTime, myIter, myThid ) |
|
./pkg/atm2d/yr_end_diags.F |
31 |
YR_END_DIAGS |
INTEGER myIter |
|
./pkg/atm2d/yr_end_diags.F |
8 |
YR_END_DIAGS |
SUBROUTINE YR_END_DIAGS( iyr, myTime, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
149 |
ADDUMMY_IN_STEPPING |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/autodiff/addummy_in_stepping.F |
156 |
ADDUMMY_IN_STEPPING |
& 'ADJtheta.',suff, adtheta, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
158 |
ADDUMMY_IN_STEPPING |
& 'ADJsalt.',suff, adsalt, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
160 |
ADDUMMY_IN_STEPPING |
& 'ADJuvel.',suff, aduvel, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
162 |
ADDUMMY_IN_STEPPING |
& 'ADJvvel.',suff, advvel, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
164 |
ADDUMMY_IN_STEPPING |
& 'ADJwvel.',suff, adwvel, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
166 |
ADDUMMY_IN_STEPPING |
& 'ADJetan.',suff, adetan, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
169 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJtaux.',suff, adfu, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
170 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJtauy.',suff, adfv, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
171 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
172 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
174 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJqsw.',suff, adqsw, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
182 |
ADDUMMY_IN_STEPPING |
& myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
186 |
ADDUMMY_IN_STEPPING |
& myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
190 |
ADDUMMY_IN_STEPPING |
& myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
194 |
ADDUMMY_IN_STEPPING |
& myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
198 |
ADDUMMY_IN_STEPPING |
& 'ADJeddypsix. ',suff, adeddypsix, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
200 |
ADDUMMY_IN_STEPPING |
& 'ADJeddypsiy. ',suff, adeddypsiy, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
203 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL( 'ADJsst.',suff, adsst, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
206 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL( 'ADJsss.',suff, adsss, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
210 |
ADDUMMY_IN_STEPPING |
& adbottomdragfld, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
227 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_I_W_S('I','adstate',0,0,'iter',myIter,myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
101 |
G_DUMMY_IN_STEPPING |
& 'G_Jetan.',suff, g_etan, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
105 |
G_DUMMY_IN_STEPPING |
& myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
109 |
G_DUMMY_IN_STEPPING |
& myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
113 |
G_DUMMY_IN_STEPPING |
& myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
121 |
G_DUMMY_IN_STEPPING |
& 'G_Jphihyd.',suff, g_totphihyd, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
133 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./pkg/autodiff/g_dummy_in_stepping.F |
137 |
G_DUMMY_IN_STEPPING |
& '// Model state written, timestep', myIter |
|
./pkg/autodiff/g_dummy_in_stepping.F |
79 |
G_DUMMY_IN_STEPPING |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/autodiff/g_dummy_in_stepping.F |
85 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jtaux.',suff, g_fu, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
86 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jtauy.',suff, g_fv, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
87 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jqnet.',suff, g_qnet, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
88 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jempr.',suff, g_empmr, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
91 |
G_DUMMY_IN_STEPPING |
& 'G_Jtheta.',suff, g_theta, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
93 |
G_DUMMY_IN_STEPPING |
& 'G_Jsalt.',suff, g_salt, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
95 |
G_DUMMY_IN_STEPPING |
& 'G_Juvel.',suff, g_uvel, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
97 |
G_DUMMY_IN_STEPPING |
& 'G_Jvvel.',suff, g_vvel, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
99 |
G_DUMMY_IN_STEPPING |
& 'G_Jwvel.',suff, g_wvel, myIter, myThid) |
|
./pkg/autodiff/myactivefunction.F |
29 |
NO PROCEDURE |
INTEGER myIter |
|
./pkg/autodiff/myactivefunction_ad.F |
32 |
ADMYACTIVEFUNCTION |
INTEGER myIter |
|
./pkg/bulk_force/bulkf_fields_load.F |
128 |
BULKF_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/bulk_force/bulkf_fields_load.F |
187 |
BULKF_FIELDS_LOAD |
& .OR. myIter .EQ. nIter0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
197 |
BULKF_FIELDS_LOAD |
& intime0, intime1, myIter, myTime |
|
./pkg/bulk_force/bulkf_fields_load.F |
202 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
204 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
208 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
210 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
214 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
216 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
220 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
222 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
226 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
228 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
233 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
235 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
239 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
241 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
245 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
247 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
252 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
254 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
258 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
260 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
264 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
266 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
272 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
274 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
280 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
282 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
286 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
288 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
51 |
BULKF_FIELDS_LOAD |
INTEGER myIter |
|
./pkg/bulk_force/bulkf_fields_load.F |
9 |
BULKF_FIELDS_LOAD |
SUBROUTINE BULKF_FIELDS_LOAD( myTime, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_flux_adjust.F |
12 |
BULKF_FLUX_ADJUST |
I myTime, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_flux_adjust.F |
48 |
BULKF_FLUX_ADJUST |
INTEGER myIter |
|
./pkg/bulk_force/bulkf_forcing.F |
10 |
BULKF_FORCING |
I myTime, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_forcing.F |
56 |
BULKF_FORCING |
INTEGER myIter |
|
./pkg/bulk_force/bulkf_output.F |
101 |
BULKF_OUTPUT |
& BULK_flwupnet_Ave, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
103 |
BULKF_OUTPUT |
& BULK_solar_Ave, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
105 |
BULKF_OUTPUT |
& BULK_ssq_Ave, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
35 |
BULKF_OUTPUT |
INTEGER myIter |
|
./pkg/bulk_force/bulkf_output.F |
83 |
BULKF_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/bulk_force/bulkf_output.F |
85 |
BULKF_OUTPUT |
& BULK_Qnet_Ave, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
87 |
BULKF_OUTPUT |
& BULK_EmPmR_Ave, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
89 |
BULKF_OUTPUT |
& BULK_fu_Ave, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
91 |
BULKF_OUTPUT |
& BULK_fv_Ave, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
93 |
BULKF_OUTPUT |
& BULK_latent_Ave, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
95 |
BULKF_OUTPUT |
& BULK_sensible_Ave, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
97 |
BULKF_OUTPUT |
& BULK_evap_Ave, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
99 |
BULKF_OUTPUT |
& BULK_flwup_Ave, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
9 |
BULKF_OUTPUT |
SUBROUTINE BULKF_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/cal/cal_time2dump.F |
26 |
CAL_TIME2DUMP |
INTEGER myIter |
|
./pkg/cal/cal_time2dump.F |
34 |
CAL_TIME2DUMP |
CALL CAL_GETDATE( myIter ,myTime ,thisDate,myThid ) |
|
./pkg/cal/cal_time2dump.F |
35 |
CAL_TIME2DUMP |
CALL CAL_GETDATE( myIter-1,myTime-step,prevDate,myThid ) |
|
./pkg/cal/cal_time2dump.F |
9 |
CAL_TIME2DUMP |
I myTime, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
11 |
CD_CODE_READ_PICKUP |
SUBROUTINE CD_CODE_READ_PICKUP( myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
27 |
CD_CODE_READ_PICKUP |
INTEGER myIter |
|
./pkg/cd_code/cd_code_read_pickup.F |
40 |
CD_CODE_READ_PICKUP |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/cd_code/cd_code_read_pickup.F |
54 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
67 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
68 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, vVelD, 2, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
69 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, uNM1, 3, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
70 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, vNM1, 4, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
72 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec, 1, etaNm1,6*Nr+1,myIter,myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
74 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec, 1, etaNm1,4*Nr+1,myIter,myThid) |
|
./pkg/cd_code/cd_code_scheme.F |
13 |
CD_CODE_SCHEME |
I myTime, myIter, myThid) |
|
./pkg/cd_code/cd_code_scheme.F |
49 |
CD_CODE_SCHEME |
INTEGER myIter |
|
./pkg/cd_code/cd_code_write_pickup.F |
13 |
CD_CODE_WRITE_PICKUP |
I myTime, myIter, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
37 |
CD_CODE_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/cd_code/cd_code_write_pickup.F |
59 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
|
./pkg/cd_code/cd_code_write_pickup.F |
78 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
79 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, vVelD, 2, myIter, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
80 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, uNM1, 3, myIter, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
81 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, vNM1, 4, myIter, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
82 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1,etaNm1,4*Nr+1,myIter,myThid) |
|
./pkg/cfc/cfc11_forcing.F |
134 |
CFC11_FORCING |
& myIter,myTime,myThid) |
|
./pkg/cfc/cfc11_forcing.F |
19 |
CFC11_FORCING |
& myIter,myTime,myThid) |
|
./pkg/cfc/cfc11_forcing.F |
37 |
CFC11_FORCING |
INTEGER myIter |
|
./pkg/cfc/cfc11_forcing.F |
67 |
CFC11_FORCING |
myYear=float(myIter-PTRACERS_Iter0)*deltaTclock |
|
./pkg/cfc/cfc11_surfforcing.F |
25 |
CFC11_SURFFORCING |
INTEGER myIter, myThid |
|
./pkg/cfc/cfc11_surfforcing.F |
9 |
CFC11_SURFFORCING |
I myIter, myTime, myThid ) |
|
./pkg/cfc/cfc12_forcing.F |
134 |
CFC12_FORCING |
& myIter,myTime,myThid) |
|
./pkg/cfc/cfc12_forcing.F |
19 |
CFC12_FORCING |
& myIter,myTime,myThid) |
|
./pkg/cfc/cfc12_forcing.F |
37 |
CFC12_FORCING |
INTEGER myIter |
|
./pkg/cfc/cfc12_forcing.F |
67 |
CFC12_FORCING |
myYear=float(myIter-PTRACERS_Iter0)*deltaTclock |
|
./pkg/cfc/cfc12_surfforcing.F |
25 |
CFC12_SURFFORCING |
INTEGER myIter, myThid |
|
./pkg/cfc/cfc12_surfforcing.F |
9 |
CFC12_SURFFORCING |
I myIter, myTime, myThid ) |
|
./pkg/cfc/cfc_fields_load.F |
102 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cfc/cfc_fields_load.F |
104 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cfc/cfc_fields_load.F |
29 |
CFC_FIELDS_LOAD |
INTEGER myIter |
|
./pkg/cfc/cfc_fields_load.F |
45 |
CFC_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/cfc/cfc_fields_load.F |
75 |
CFC_FIELDS_LOAD |
& .OR. myIter .EQ. nIter0 |
|
./pkg/cfc/cfc_fields_load.F |
85 |
CFC_FIELDS_LOAD |
& myTime,myIter |
|
./pkg/cfc/cfc_fields_load.F |
8 |
CFC_FIELDS_LOAD |
I myIter,myTime,myThid) |
|
./pkg/cfc/cfc_fields_load.F |
90 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cfc/cfc_fields_load.F |
92 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cfc/cfc_fields_load.F |
96 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cfc/cfc_fields_load.F |
98 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cheapaml/adams2d.F |
12 |
ADAMS2D |
I startAB, myIter, myThid ) |
|
./pkg/cheapaml/adams2d.F |
40 |
ADAMS2D |
INTEGER myIter, myThid |
|
./pkg/cheapaml/adams2d.F |
52 |
ADAMS2D |
IF ( myIter.EQ.nIter0 .AND. startAB.EQ.0 ) THEN |
|
./pkg/cheapaml/cheapaml.F |
227 |
CHEAPAML |
I myTime, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
243 |
CHEAPAML |
I myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
254 |
CHEAPAML |
I myTime, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
399 |
CHEAPAML |
I myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
411 |
CHEAPAML |
I myTime, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
52 |
CHEAPAML |
integer myIter |
|
./pkg/cheapaml/cheapaml.F |
8 |
CHEAPAML |
I myTime, myIter, mythid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
106 |
CHEAPAML_FIELDS_LOAD |
if ( myIter .EQ. nIter0 )then |
|
./pkg/cheapaml/cheapaml_fields_load.F |
185 |
CHEAPAML_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/cheapaml/cheapaml_fields_load.F |
219 |
CHEAPAML_FIELDS_LOAD |
& .OR. myIter .EQ. nIter0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
228 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
230 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
234 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
236 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
240 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
242 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
246 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
248 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
252 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
254 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
293 |
CHEAPAML_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/cheapaml/cheapaml_fields_load.F |
43 |
CHEAPAML_FIELDS_LOAD |
INTEGER myIter |
|
./pkg/cheapaml/cheapaml_fields_load.F |
7 |
CHEAPAML_FIELDS_LOAD |
SUBROUTINE CHEAPAML_FIELDS_LOAD( myTime, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
11 |
CHEAPAML_READ_PICKUP |
SUBROUTINE CHEAPAML_READ_PICKUP( myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
131 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
142 |
CHEAPAML_READ_PICKUP |
I myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
26 |
CHEAPAML_READ_PICKUP |
INTEGER myIter |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
58 |
CHEAPAML_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cheapaml.',myIter |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
67 |
CHEAPAML_READ_PICKUP |
I Nr, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
110 |
CHEAPAML_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
11 |
CHEAPAML_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
32 |
CHEAPAML_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
82 |
CHEAPAML_WRITE_PICKUP |
& Tair, nj, myIter, myThid ) |
|
./pkg/cheapaml/cycle_2d_tracer.F |
12 |
CYCLE_2D_TRACER |
I myTime, myIter, myThid ) |
|
./pkg/cheapaml/cycle_2d_tracer.F |
39 |
CYCLE_2D_TRACER |
INTEGER myIter, myThid |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
16 |
GAD_2D_CALC_RHS |
I myTime, myIter, myThid ) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
65 |
GAD_2D_CALC_RHS |
INTEGER myIter, myThid |
|
./pkg/cheapaml/timestep_2d_tracer.F |
13 |
TIMESTEP_2D_TRACER |
I myIter, myThid ) |
|
./pkg/cheapaml/timestep_2d_tracer.F |
35 |
TIMESTEP_2D_TRACER |
INTEGER myIter, myThid |
|
./pkg/cost/cost_tile.F |
128 |
COST_TILE |
CALL COST_TRANSPORT( bi, bj, myTime, myIter, myThid ) |
|
./pkg/debug/write_fullarray_rl.F |
107 |
WRITE_FULLARRAY_RL |
& fnam(s1Lo:s1Hi),'.',myIter,'.',iG,'.',jG,'.data' |
|
./pkg/debug/write_fullarray_rl.F |
11 |
WRITE_FULLARRAY_RL |
I iRec, myIter, myThid ) |
|
./pkg/debug/write_fullarray_rl.F |
39 |
WRITE_FULLARRAY_RL |
INTEGER myIter |
|
./pkg/debug/write_fullarray_rl.F |
78 |
WRITE_FULLARRAY_RL |
& fnam(s1Lo:s1Hi),'.',myIter,'.',iG,'.',jG,'.data' |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
15 |
DIAGNOSTICS_INTERP_VERT |
I myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
52 |
DIAGNOSTICS_INTERP_VERT |
INTEGER myIter, myThid |
|
./pkg/diagnostics/diagnostics_out.F |
117 |
DIAGNOSTICS_OUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/diagnostics/diagnostics_out.F |
13 |
DIAGNOSTICS_OUT |
I myIter, |
|
./pkg/diagnostics/diagnostics_out.F |
208 |
DIAGNOSTICS_OUT |
klev = myIter + jj - jjMx |
|
./pkg/diagnostics/diagnostics_out.F |
342 |
DIAGNOSTICS_OUT |
& '- WARNING - from DIAGNOSTICS_OUT at iter=', myIter |
|
./pkg/diagnostics/diagnostics_out.F |
38 |
DIAGNOSTICS_OUT |
INTEGER listId, myIter, myThid |
|
./pkg/diagnostics/diagnostics_out.F |
441 |
DIAGNOSTICS_OUT |
I undef, myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
454 |
DIAGNOSTICS_OUT |
I undef, myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
474 |
DIAGNOSTICS_OUT |
I qtmp1, -nRec, myIter, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
632 |
DIAGNOSTICS_OUT |
& nRec, myIter, myThid) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
15 |
DIAGNOSTICS_SUM_LEVELS |
I myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
50 |
DIAGNOSTICS_SUM_LEVELS |
INTEGER myIter, myThid |
|
./pkg/diagnostics/diagnostics_summary.F |
10 |
DIAGNOSTICS_SUMMARY |
SUBROUTINE DIAGNOSTICS_SUMMARY( myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagnostics_summary.F |
29 |
DIAGNOSTICS_SUMMARY |
INTEGER myIter, myThid |
|
./pkg/diagnostics/diagnostics_summary.F |
51 |
DIAGNOSTICS_SUMMARY |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
60 |
DIAGNOSTICS_SUMMARY |
WRITE(fn,'(A,I10.10,A)') 'diagnostics_status.',myIter,'.txt' |
|
./pkg/diagnostics/diagnostics_summary.F |
86 |
DIAGNOSTICS_SUMMARY |
& 'Iter.Nb:',myIter,' ; Time(s):', myTime |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
11 |
DIAGNOSTICS_SWITCH_ONOFF |
SUBROUTINE DIAGNOSTICS_SWITCH_ONOFF( myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
124 |
DIAGNOSTICS_SWITCH_ONOFF |
& 'DIAG_SWITCH_ONOFF: at it=', myIter, ', list:', n, |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
178 |
DIAGNOSTICS_SWITCH_ONOFF |
& 'DIAG_SWITCH_ONOFF: at it=', myIter, ' diag:', nd, |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
191 |
DIAGNOSTICS_SWITCH_ONOFF |
& 'DIAG_SWITCH_ONOFF: at it=', myIter, ' diag:', nd, |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
37 |
DIAGNOSTICS_SWITCH_ONOFF |
INTEGER myIter |
|
./pkg/diagnostics/diagnostics_write.F |
111 |
DIAGNOSTICS_WRITE |
wrIter = myIter |
|
./pkg/diagnostics/diagnostics_write.F |
134 |
DIAGNOSTICS_WRITE |
CALL DIAGNOSTICS_SUMMARY( myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagnostics_write.F |
164 |
DIAGNOSTICS_WRITE |
I myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagnostics_write.F |
31 |
DIAGNOSTICS_WRITE |
INTEGER myIter, myThid |
|
./pkg/diagnostics/diagnostics_write.F |
47 |
DIAGNOSTICS_WRITE |
IF ( myIter.NE.nIter0 ) THEN |
|
./pkg/diagnostics/diagnostics_write.F |
48 |
DIAGNOSTICS_WRITE |
myItM1 = myIter - 1 |
|
./pkg/diagnostics/diagnostics_write.F |
69 |
DIAGNOSTICS_WRITE |
wrIter = myIter |
|
./pkg/diagnostics/diagnostics_write.F |
84 |
DIAGNOSTICS_WRITE |
I myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagnostics_write.F |
8 |
DIAGNOSTICS_WRITE |
I myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
102 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',myIter,myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
14 |
DIAGNOSTICS_WRITE_PICKUP |
I myIter, |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
180 |
DIAGNOSTICS_WRITE_PICKUP |
& 1, myIter, myThid ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
39 |
DIAGNOSTICS_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
93 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
13 |
DIAGSTATS_ASCII_OUT |
I mId, listId, myIter, myThid ) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
37 |
DIAGSTATS_ASCII_OUT |
INTEGER myIter, myThid |
|
./pkg/diagnostics/diagstats_ascii_out.F |
64 |
DIAGSTATS_ASCII_OUT |
& ' ; Iter =',myIter,' ; region #',j, ' ; nb.Lev =',kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
109 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,1,1,'iter',myIter,myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
13 |
DIAGSTATS_MNC_OUT |
I mId, listId, myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
48 |
DIAGSTATS_MNC_OUT |
INTEGER myIter, myThid |
|
./pkg/diagnostics/diagstats_output.F |
136 |
DIAGSTATS_OUTPUT |
& m, listId, myIter, myThid ) |
|
./pkg/diagnostics/diagstats_output.F |
13 |
DIAGSTATS_OUTPUT |
I myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagstats_output.F |
143 |
DIAGSTATS_OUTPUT |
& m, listId, myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagstats_output.F |
41 |
DIAGSTATS_OUTPUT |
INTEGER listId, myIter, myThid |
|
./pkg/diagnostics/diagstats_output.F |
98 |
DIAGSTATS_OUTPUT |
& '- WARNING - from DIAGSTATS_OUTPUT at iter=', myIter, |
|
./pkg/dic/alk_surfforcing.F |
12 |
ALK_SURFFORCING |
I myIter,myTime,myThid) |
|
./pkg/dic/alk_surfforcing.F |
34 |
ALK_SURFFORCING |
INTEGER myIter, myThid |
|
./pkg/dic/bio_export.F |
16 |
BIO_EXPORT |
I myIter,myTime,myThid) |
|
./pkg/dic/bio_export.F |
39 |
BIO_EXPORT |
INTEGER myIter |
|
./pkg/dic/calcite_saturation.F |
118 |
CALCITE_SATURATION |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/calcite_saturation.F |
12 |
CALCITE_SATURATION |
I myIter,myTime,myThid) |
|
./pkg/dic/calcite_saturation.F |
35 |
CALCITE_SATURATION |
INTEGER myIter |
|
./pkg/dic/calcite_saturation.F |
66 |
CALCITE_SATURATION |
write(6,*)'myIter ',myIter,' CALLED CALCITEcd_SATURATION' |
|
./pkg/dic/car_flux.F |
12 |
CAR_FLUX |
I myIter,myTime,myThid) |
|
./pkg/dic/car_flux.F |
31 |
CAR_FLUX |
INTEGER myIter |
|
./pkg/dic/car_flux_omega_top.F |
12 |
CAR_FLUX_OMEGA_TOP |
I myIter,myTime,myThid) |
|
./pkg/dic/car_flux_omega_top.F |
33 |
CAR_FLUX_OMEGA_TOP |
INTEGER myIter |
|
./pkg/dic/carbon_chem.F |
29 |
CALC_PCO2 |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
336 |
CALC_PCO2_APPROX_CO3 |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
378 |
CALC_PCO2_APPROX_CO3 |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
486 |
CALC_PCO2_APPROX |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
525 |
CALC_PCO2_APPROX |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
64 |
CALC_PCO2 |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/dic_atmos.F |
102 |
DIC_ATMOS |
ntim=int((myIter-dic_int3)/dic_int4)+1 |
|
./pkg/dic/dic_atmos.F |
103 |
DIC_ATMOS |
aWght = FLOAT(myIter-dic_int3) |
|
./pkg/dic/dic_atmos.F |
11 |
DIC_ATMOS |
SUBROUTINE DIC_ATMOS( istate, myTime, myIter, myThid ) |
|
./pkg/dic/dic_atmos.F |
40 |
DIC_ATMOS |
INTEGER myIter, myThid |
|
./pkg/dic/dic_aver.F |
31 |
DIC_AVER |
INTEGER myIter |
|
./pkg/dic/dic_aver.F |
8 |
DIC_AVER |
I myTime,myIter,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
112 |
DIC_BIOTIC_DIAGS |
CALL MNC_CW_I_W_S('I','dic_tave',0,0,'iter',myIter,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
29 |
DIC_BIOTIC_DIAGS |
INTEGER myIter |
|
./pkg/dic/dic_biotic_diags.F |
77 |
DIC_BIOTIC_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/dic/dic_biotic_diags.F |
79 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
7 |
DIC_BIOTIC_DIAGS |
SUBROUTINE DIC_BIOTIC_DIAGS( myTime, myIter, myThid ) |
|
./pkg/dic/dic_biotic_diags.F |
81 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
83 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
85 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
87 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
89 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
91 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
93 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
95 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
97 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
99 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
143 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
148 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
154 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
160 |
DIC_BIOTIC_FORCING |
& myIter, mythid) |
|
./pkg/dic/dic_biotic_forcing.F |
171 |
DIC_BIOTIC_FORCING |
I myIter,myTime,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
176 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
193 |
DIC_BIOTIC_FORCING |
IF(myIter .lt. (nIter0+5) .or. |
|
./pkg/dic/dic_biotic_forcing.F |
194 |
DIC_BIOTIC_FORCING |
& mod(myIter,nCALCITEstep) .eq. 0)THEN |
|
./pkg/dic/dic_biotic_forcing.F |
197 |
DIC_BIOTIC_FORCING |
I myIter,myTime,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
19 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
202 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
207 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
289 |
DIC_BIOTIC_FORCING |
& myIter, mythid) |
|
./pkg/dic/dic_biotic_forcing.F |
46 |
DIC_BIOTIC_FORCING |
INTEGER myIter |
|
./pkg/dic/dic_cost.F |
28 |
DIC_COST |
INTEGER myIter |
|
./pkg/dic/dic_cost.F |
8 |
DIC_COST |
I myTime,myIter,myThid) |
|
./pkg/dic/dic_fields_load.F |
101 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/dic/dic_fields_load.F |
103 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/dic/dic_fields_load.F |
107 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/dic/dic_fields_load.F |
109 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/dic/dic_fields_load.F |
114 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/dic/dic_fields_load.F |
116 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/dic/dic_fields_load.F |
11 |
DIC_FIELDS_LOAD |
I myIter,myTime,myThid) |
|
./pkg/dic/dic_fields_load.F |
122 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/dic/dic_fields_load.F |
124 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/dic/dic_fields_load.F |
35 |
DIC_FIELDS_LOAD |
INTEGER myIter |
|
./pkg/dic/dic_fields_load.F |
72 |
DIC_FIELDS_LOAD |
& .OR. myIter .EQ. nIter0 |
|
./pkg/dic/dic_fields_load.F |
83 |
DIC_FIELDS_LOAD |
& intime0, intime1, myIter, myTime |
|
./pkg/dic/dic_fields_load.F |
89 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/dic/dic_fields_load.F |
91 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/dic/dic_fields_load.F |
95 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/dic/dic_fields_load.F |
97 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
|
./pkg/dic/dic_read_co2_pickup.F |
19 |
DIC_READ_CO2_PICKUP |
INTEGER myIter |
|
./pkg/dic/dic_read_co2_pickup.F |
47 |
DIC_READ_CO2_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_dic_co2atm.', myIter |
|
./pkg/dic/dic_read_co2_pickup.F |
7 |
DIC_READ_CO2_PICKUP |
I myIter, myThid ) |
|
./pkg/dic/dic_read_pickup.F |
20 |
DIC_READ_PICKUP |
INTEGER myIter |
|
./pkg/dic/dic_read_pickup.F |
41 |
DIC_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_dic.', myIter |
|
./pkg/dic/dic_read_pickup.F |
55 |
DIC_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, pH, 1, myIter, myThid ) |
|
./pkg/dic/dic_read_pickup.F |
8 |
DIC_READ_PICKUP |
I myIter, myThid ) |
|
./pkg/dic/dic_store_fluxco2.F |
39 |
DIC_STORE_FLUXCO2 |
INTEGER myIter |
|
./pkg/dic/dic_store_fluxco2.F |
9 |
DIC_STORE_FLUXCO2 |
I myIter, |
|
./pkg/dic/dic_surfforcing.F |
13 |
DIC_SURFFORCING |
I myIter,myTime,myThid) |
|
./pkg/dic/dic_surfforcing.F |
145 |
DIC_SURFFORCING |
I i,j,kLev,bi,bj,myIter,myThid ) |
|
./pkg/dic/dic_surfforcing.F |
34 |
DIC_SURFFORCING |
INTEGER myIter, myThid |
|
./pkg/dic/dic_write_pickup.F |
118 |
DIC_WRITE_PICKUP |
& nj, myIter, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
11 |
DIC_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
34 |
DIC_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/dic/dic_write_pickup.F |
72 |
DIC_WRITE_PICKUP |
I 0, 0, 1, myIter, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
89 |
DIC_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1, pH, nj, myIter, myThid ) |
|
./pkg/dic/fe_chem.F |
12 |
FE_CHEM |
I myIter, myThid ) |
|
./pkg/dic/fe_chem.F |
40 |
FE_CHEM |
INTEGER myIter, myThid |
|
./pkg/dic/o2_surfforcing.F |
12 |
O2_SURFFORCING |
I myIter, myTime, myThid ) |
|
./pkg/dic/o2_surfforcing.F |
35 |
O2_SURFFORCING |
INTEGER myIter, myThid |
|
./pkg/dic/phos_flux.F |
12 |
PHOS_FLUX |
I myIter,myTime,myThid) |
|
./pkg/dic/phos_flux.F |
31 |
PHOS_FLUX |
INTEGER myIter |
|
./pkg/down_slope/dwnslp_apply.F |
130 |
DWNSLP_APPLY |
& ' DWNSLP_APPLY: iter, iTr, bi,bj=', myIter,trIdentity, bi,bj |
|
./pkg/down_slope/dwnslp_apply.F |
15 |
DWNSLP_APPLY |
I myTime, myIter, myThid ) |
|
./pkg/down_slope/dwnslp_apply.F |
60 |
DWNSLP_APPLY |
INTEGER myIter, myThid |
|
./pkg/down_slope/dwnslp_calc_flow.F |
11 |
DWNSLP_CALC_FLOW |
I myTime, myIter, myThid ) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
142 |
DWNSLP_CALC_FLOW |
& ' DWNSLP_CALC_FLOW: iter,bi,bj=',myIter,bi,bj |
|
./pkg/down_slope/dwnslp_calc_flow.F |
43 |
DWNSLP_CALC_FLOW |
INTEGER myIter, myThid |
|
./pkg/down_slope/dwnslp_calc_rho.F |
12 |
DWNSLP_CALC_RHO |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
49 |
DWNSLP_CALC_RHO |
INTEGER myIter, myThid |
|
./pkg/ebm/ebm_area_t.F |
31 |
EBM_AREA_T |
INTEGER myIter |
|
./pkg/ebm/ebm_area_t.F |
6 |
EBM_AREA_T |
SUBROUTINE EBM_AREA_T( myTime, myIter, myThid ) |
|
./pkg/ebm/ebm_atmosphere.F |
43 |
EBM_ATMOSPHERE |
INTEGER myIter |
|
./pkg/ebm/ebm_driver.F |
40 |
EBM_DRIVER |
INTEGER myIter |
|
./pkg/ebm/ebm_driver.F |
49 |
EBM_DRIVER |
CALL EBM_ZONALMEAN ( myTime, myIter, myThid ) |
|
./pkg/ebm/ebm_driver.F |
52 |
EBM_DRIVER |
CALL EBM_AREA_T ( myTime, myIter, myThid ) |
|
./pkg/ebm/ebm_driver.F |
55 |
EBM_DRIVER |
CALL EBM_ATMOSPHERE ( myTime, myIter, myThid ) |
|
./pkg/ebm/ebm_driver.F |
58 |
EBM_DRIVER |
CALL EBM_WIND_PERTURB( myTime, myIter, myThid ) |
|
./pkg/ebm/ebm_driver.F |
6 |
EBM_DRIVER |
SUBROUTINE EBM_DRIVER( myTime, myIter, myThid ) |
|
./pkg/ebm/ebm_forcing_surf.F |
11 |
EBM_FORCING_SURF |
I myTime, myIter, myThid ) |
|
./pkg/ebm/ebm_forcing_surf.F |
38 |
EBM_FORCING_SURF |
INTEGER myIter |
|
./pkg/ebm/ebm_wind_perturb.F |
27 |
EBM_WIND_PERTURB |
INTEGER myIter |
|
./pkg/ebm/ebm_wind_perturb.F |
7 |
EBM_WIND_PERTURB |
SUBROUTINE EBM_WIND_PERTURB( myTime, myIter, myThid ) |
|
./pkg/ebm/ebm_zonalmean.F |
30 |
EBM_ZONALMEAN |
INTEGER myIter |
|
./pkg/ebm/ebm_zonalmean.F |
6 |
EBM_ZONALMEAN |
SUBROUTINE EBM_ZONALMEAN( myTime, myIter, myThid ) |
|
./pkg/ecco/ecco_cost_driver.F |
6 |
ECCO_COST_DRIVER |
subroutine ECCO_COST_DRIVER( myTime, myIter, mythid ) |
|
./pkg/ecco/forward_step.F |
10 |
FORWARD_STEP |
SUBROUTINE FORWARD_STEP( iloop, myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
1009 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_TAVE( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
1020 |
THE_MAIN_LOOP |
CALL MONITOR( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
1030 |
THE_MAIN_LOOP |
CALL DO_THE_MODEL_IO( .FALSE., myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
1041 |
THE_MAIN_LOOP |
I .TRUE., myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
1052 |
THE_MAIN_LOOP |
I .FALSE., myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
17 |
THE_MAIN_LOOP |
subroutine THE_MAIN_LOOP( myTime, myIter, mythid ) |
|
./pkg/ecco/the_main_loop.F |
472 |
THE_MAIN_LOOP |
CALL DIAGNOSTICS_SWITCH_ONOFF( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
474 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, 0, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
530 |
THE_MAIN_LOOP |
CALL LOAD_FIELDS_DRIVER( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
535 |
THE_MAIN_LOOP |
CALL DUMMY_IN_STEPPING( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
552 |
THE_MAIN_LOOP |
CALL EBM_DRIVER ( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
563 |
THE_MAIN_LOOP |
CALL DO_ATMOSPHERIC_PHYS( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
589 |
THE_MAIN_LOOP |
CALL DO_OCEANIC_PHYS( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
627 |
THE_MAIN_LOOP |
CALL GCHEM_CALC_TENDENCY( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
679 |
THE_MAIN_LOOP |
CALL THERMODYNAMICS( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
705 |
THE_MAIN_LOOP |
CALL DYNAMICS( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
720 |
THE_MAIN_LOOP |
myIter = nIter0 + iLoop |
|
./pkg/ecco/the_main_loop.F |
726 |
THE_MAIN_LOOP |
CALL MNC_CW_CITER_SETG( 1, 1, -1, myIter , myThid ) |
|
./pkg/ecco/the_main_loop.F |
738 |
THE_MAIN_LOOP |
CALL MNC_CW_CITER_SETG( 1, 1, myIter, -1 , myThid ) |
|
./pkg/ecco/the_main_loop.F |
760 |
THE_MAIN_LOOP |
CALL UPDATE_R_STAR( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
778 |
THE_MAIN_LOOP |
CALL UPDATE_SURF_DR( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
794 |
THE_MAIN_LOOP |
CALL UPDATE_CG2D( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
807 |
THE_MAIN_LOOP |
& myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
809 |
THE_MAIN_LOOP |
CALL SHAP_FILT_APPLY_UV( gU,gV,myTime,myIter,myThid) |
|
./pkg/ecco/the_main_loop.F |
843 |
THE_MAIN_LOOP |
CALL SOLVE_FOR_PRESSURE(myTime, myIter, myThid) |
|
./pkg/ecco/the_main_loop.F |
856 |
THE_MAIN_LOOP |
CALL MOMENTUM_CORRECTION_STEP(myTime, myIter, myThid) |
|
./pkg/ecco/the_main_loop.F |
872 |
THE_MAIN_LOOP |
CALL UPDATE_ETAH( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
882 |
THE_MAIN_LOOP |
CALL CALC_R_STAR(etaH, myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
891 |
THE_MAIN_LOOP |
CALL CALC_SURF_DR(etaH, myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
910 |
THE_MAIN_LOOP |
CALL DO_STAGGER_FIELDS_EXCHANGES( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
917 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, 1, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
926 |
THE_MAIN_LOOP |
CALL THERMODYNAMICS( myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
944 |
THE_MAIN_LOOP |
CALL TRACERS_CORRECTION_STEP(myTime, myIter, myThid) |
|
./pkg/ecco/the_main_loop.F |
960 |
THE_MAIN_LOOP |
CALL GCHEM_FORCING_SEP( myTime,myIter,myThid ) |
|
./pkg/ecco/the_main_loop.F |
985 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, 2, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
994 |
THE_MAIN_LOOP |
CALL FLT_MAIN(myIter,myTime, myThid) |
|
./pkg/exf/exf_ad_dump.F |
102 |
EXF_AD_DUMP |
& adlwflux, 1, myIter, myThid ) |
|
./pkg/exf/exf_ad_dump.F |
105 |
EXF_AD_DUMP |
& adprecip, 1, myIter, myThid ) |
|
./pkg/exf/exf_ad_dump.F |
110 |
EXF_AD_DUMP |
& aduwind, 1, myIter, myThid ) |
|
./pkg/exf/exf_ad_dump.F |
113 |
EXF_AD_DUMP |
& advwind, 1, myIter, myThid ) |
|
./pkg/exf/exf_ad_dump.F |
118 |
EXF_AD_DUMP |
& adswdown, 1, myIter, myThid ) |
|
./pkg/exf/exf_ad_dump.F |
11 |
EXF_AD_DUMP |
SUBROUTINE EXF_AD_DUMP( myTime, myIter, myThid ) |
|
./pkg/exf/exf_ad_dump.F |
121 |
EXF_AD_DUMP |
& adlwdown, 1, myIter, myThid ) |
|
./pkg/exf/exf_ad_dump.F |
48 |
EXF_AD_DUMP |
INTEGER myIter |
|
./pkg/exf/exf_ad_dump.F |
77 |
EXF_AD_DUMP |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/exf/exf_ad_dump.F |
82 |
EXF_AD_DUMP |
& adhflux, 1, myIter, myThid ) |
|
./pkg/exf/exf_ad_dump.F |
85 |
EXF_AD_DUMP |
& adsflux, 1, myIter, myThid ) |
|
./pkg/exf/exf_ad_dump.F |
88 |
EXF_AD_DUMP |
& adustress, 1, myIter, myThid ) |
|
./pkg/exf/exf_ad_dump.F |
91 |
EXF_AD_DUMP |
& advstress, 1, myIter, myThid ) |
|
./pkg/exf/exf_ad_dump.F |
96 |
EXF_AD_DUMP |
& adatemp, 1, myIter, myThid ) |
|
./pkg/exf/exf_ad_dump.F |
99 |
EXF_AD_DUMP |
& adaqh, 1, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
101 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_atemp, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
103 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_aqh, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
105 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_precip, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
109 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_uwind, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
111 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_vwind, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
115 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_swdown, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
119 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_climsst, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
123 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_climsss, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
80 |
G_EXF_ADJOINT_SNAPSHOTS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
89 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_ustress, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
91 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_vstress, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
93 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_hflux, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
95 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_sflux, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
105 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adatemp, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
107 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adaqh, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
109 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adprecip, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
113 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, aduwind, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
115 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, advwind, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
119 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adswdown, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
123 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adclimsst, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
127 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adclimsss, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
132 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RL ( 'ADJtaux.',suff, adfu, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
133 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RL ( 'ADJtauy.',suff, adfv, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
134 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
135 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
137 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RL ( 'ADJqsw.',suff, adqsw, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
153 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL MNC_CW_I_W_S('I','adexf',0,0,'iter',myIter,myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
84 |
ADEXF_ADJOINT_SNAPSHOTS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
93 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adustress, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
95 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, advstress, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
97 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adhflux, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
99 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adsflux, myIter, myThid) |
|
./pkg/exf/exf_bulkformulae.F |
163 |
EXF_BULKFORMULAE |
INTEGER myIter |
|
./pkg/exf/exf_bulkformulae.F |
9 |
EXF_BULKFORMULAE |
SUBROUTINE EXF_BULKFORMULAE( myTime, myIter, myThid ) |
|
./pkg/exf/exf_getforcing.F |
172 |
EXF_GETFORCING |
CALL EXF_ADJOINT_SNAPSHOTS( 2, myTime, myIter, myThid ) |
|
./pkg/exf/exf_getforcing.F |
253 |
EXF_GETFORCING |
CALL EXF_ADJOINT_SNAPSHOTS( 1, myTime, myIter, myThid ) |
|
./pkg/exf/exf_getforcing.F |
286 |
EXF_GETFORCING |
& CALL EXF_ADJOINT_SNAPSHOTS( 3, myTime, myIter, myThid ) |
|
./pkg/exf/exf_monitor.F |
12 |
EXF_MONITOR |
I myTime, myIter, myThid ) |
|
./pkg/exf/exf_monitor.F |
33 |
EXF_MONITOR |
INTEGER myIter |
|
./pkg/exf/exf_monitor.F |
97 |
EXF_MONITOR |
CALL MON_OUT_I ('_tsnumber', myIter,mon_string_none,myThid) |
|
./pkg/exf/exf_radiation.F |
117 |
EXF_RADIATION |
CALL EXF_ZENITHANGLE(myTime, myIter, myThid) |
|
./pkg/exf/exf_radiation.F |
35 |
EXF_RADIATION |
INTEGER myIter |
|
./pkg/exf/exf_radiation.F |
6 |
EXF_RADIATION |
SUBROUTINE EXF_RADIATION(myTime, myIter, myThid) |
|
./pkg/exf/exf_set_gen.F |
143 |
EXF_SET_GEN |
& gen1, count0, myIter, myThid ) |
|
./pkg/exf/exf_set_gen.F |
177 |
EXF_SET_GEN |
& gen1, count1, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
125 |
EXF_SET_OBCS_YZ |
I myTime, myIter, myThid) |
|
./pkg/exf/exf_set_obcs.F |
162 |
EXF_SET_OBCS_YZ |
INTEGER myIter |
|
./pkg/exf/exf_set_obcs.F |
183 |
EXF_SET_OBCS_YZ |
I myTime, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
186 |
EXF_SET_OBCS_YZ |
& obcs_yz_1, count0, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
196 |
EXF_SET_OBCS_YZ |
I myTime, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
199 |
EXF_SET_OBCS_YZ |
& obcs_yz_1, count1, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
20 |
EXF_SET_OBCS_XZ |
I myTime, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
228 |
EXF_SET_OBCS_X |
I myTime, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
265 |
EXF_SET_OBCS_X |
INTEGER myIter |
|
./pkg/exf/exf_set_obcs.F |
285 |
EXF_SET_OBCS_X |
I myTime, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
288 |
EXF_SET_OBCS_X |
& obcs_x_1, count0, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
298 |
EXF_SET_OBCS_X |
I myTime, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
301 |
EXF_SET_OBCS_X |
& obcs_x_1, count1, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
328 |
EXF_SET_OBCS_Y |
I myTime, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
364 |
EXF_SET_OBCS_Y |
INTEGER myIter |
|
./pkg/exf/exf_set_obcs.F |
384 |
EXF_SET_OBCS_Y |
I myTime, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
387 |
EXF_SET_OBCS_Y |
& obcs_y_1, count0, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
397 |
EXF_SET_OBCS_Y |
I myTime, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
400 |
EXF_SET_OBCS_Y |
& obcs_y_1, count1, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
59 |
EXF_SET_OBCS_XZ |
INTEGER myIter |
|
./pkg/exf/exf_set_obcs.F |
80 |
EXF_SET_OBCS_XZ |
I myTime, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
83 |
EXF_SET_OBCS_XZ |
& obcs_xz_1, count0, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
93 |
EXF_SET_OBCS_XZ |
I myTime, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
96 |
EXF_SET_OBCS_XZ |
& obcs_xz_1, count1, myIter, myThid ) |
|
./pkg/exf/exf_set_runoff.F |
110 |
EXF_SET_RUNOFF |
& gen1, count0, myIter, myThid ) |
|
./pkg/exf/exf_set_runoff.F |
131 |
EXF_SET_RUNOFF |
& gen1, count1, myIter, myThid ) |
|
./pkg/exf/exf_wind.F |
38 |
EXF_WIND |
INTEGER myIter |
|
./pkg/exf/exf_wind.F |
6 |
EXF_WIND |
SUBROUTINE EXF_WIND( myTime, myIter, myThid ) |
|
./pkg/exf/exf_zenithangle.F |
37 |
EXF_ZENITHANGLE |
INTEGER myIter |
|
./pkg/exf/exf_zenithangle.F |
6 |
EXF_ZENITHANGLE |
SUBROUTINE EXF_ZENITHANGLE(myTime, myIter, myThid) |