| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_driftw.F |
125 |
COST_DRIFTW |
nl = 0 |
|
./pkg/ecco/cost_driftw.F |
160 |
COST_DRIFTW |
nl = nl + 1 |
|
./pkg/ecco/cost_driftw.F |
193 |
COST_DRIFTW |
& (wlmean(i,j,k,bi,bj)/nl - wfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_driftw.F |
194 |
COST_DRIFTW |
& (wlmean(i,j,k,bi,bj)/nl - wfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_driftw.F |
61 |
COST_DRIFTW |
integer nf, nl |
|
./pkg/ecco/cost_drift.F |
135 |
COST_DRIFT |
nl = 0 |
|
./pkg/ecco/cost_drift.F |
191 |
COST_DRIFT |
nl = nl + 1 |
|
./pkg/ecco/cost_drift.F |
228 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
229 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
234 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
235 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
62 |
COST_DRIFT |
integer nf, nl, nfmin |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
132 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_SET_UDIM(bfname(nf:nl), 0, myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
133 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rC',rC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
134 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rF',rF,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
135 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drC',drC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
136 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drF',drF,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
137 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'saFac',saFac,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
138 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xC',xC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
139 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yC',yC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
140 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xG',xG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
141 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yG',yG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
142 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxC',dxC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
143 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyC',dyC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
144 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxF',dxF,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
145 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyF',dyF,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
146 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxG',dxG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
147 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyG',dyG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
148 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxV',dxV,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
149 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyU',dyU,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
150 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rA',rA,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
151 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAw',rAw,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
152 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAs',rAs,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
153 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAz',rAz,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
154 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'fCori',fCori,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
155 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'fCoriG',fCoriG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
156 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'R_low',R_low,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
157 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'Ro_surf',Ro_surf,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
158 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacC',HFacC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
159 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacW',HFacW,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
160 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacS',HFacS,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
35 |
MNC_CW_WRITE_GRID_INFO |
integer nf,nl |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
41 |
MNC_CW_WRITE_GRID_INFO |
nl = ILNBLNK(bfname) |
|
./pkg/mnc/mnc_readparms.F |
112 |
MNC_READPARMS |
& 'Unable to open data file: ''',data_file(1:nl), |
|
./pkg/mnc/mnc_readparms.F |
136 |
MNC_READPARMS |
WRITE(msgBuf,'(3a)') '// Parameter file "',data_file(1:nl),'"' |
|
./pkg/mnc/mnc_readparms.F |
164 |
MNC_READPARMS |
& 'ERROR: while reading file ''',data_file(1:nl), |
|
./pkg/mnc/mnc_readparms.F |
32 |
MNC_READPARMS |
integer i, iUnit, nl, isu1,isu2,mdu, errio, IL |
|
./pkg/mnc/mnc_readparms.F |
76 |
MNC_READPARMS |
nl = ILNBLNK(data_file) |
|
./pkg/mnc/mnc_readparms.F |
83 |
MNC_READPARMS |
& data_file(1:nl), '''' |
|
./pkg/mnc/mnc_readparms.F |
97 |
MNC_READPARMS |
& 'Data file: ''',data_file(1:nl), |