| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
129 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_SET_UDIM(bfname(nf:nl), 0, myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
130 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rC',rC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
131 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rF',rF,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
132 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'drC',drC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
133 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'drF',drF,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
134 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'xC',xC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
135 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'yC',yC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
136 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'xG',xG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
137 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'yG',yG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
138 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxC',dxC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
139 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyC',dyC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
140 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxF',dxF,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
141 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyF',dyF,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
142 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxG',dxG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
143 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyG',dyG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
144 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxV',dxV,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
145 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyU',dyU,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
146 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rA',rA,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
147 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAw',rAw,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
148 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAs',rAs,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
149 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAz',rAz,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
150 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'fCori',fCori,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
151 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'fCoriG',fCoriG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
152 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'R_low',R_low,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
153 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'Ro_surf',Ro_surf,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
154 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'HFacC',HFacC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
155 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'HFacW',HFacW,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
156 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_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 |
111 |
MNC_READPARMS |
nl = ILNBLNK(data_file) |
|
./pkg/mnc/mnc_readparms.F |
114 |
MNC_READPARMS |
& data_file(1:nl), '''' |
|
./pkg/mnc/mnc_readparms.F |
118 |
MNC_READPARMS |
CALL OPEN_COPY_DATA_FILE(data_file(1:nl),'MNC_READPARMS', |
|
./pkg/mnc/mnc_readparms.F |
37 |
MNC_READPARMS |
integer i, nl, ku |
|
./pkg/ecco/cost_drift.F |
135 |
COST_DRIFT |
nl = 0 |
|
./pkg/ecco/cost_drift.F |
186 |
COST_DRIFT |
nl = nl + 1 |
|
./pkg/ecco/cost_drift.F |
220 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
221 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
226 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
227 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
250 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
251 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
256 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
257 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
60 |
COST_DRIFT |
integer nf, nl, nfmin |
|
./pkg/ecco/cost_driftw.F |
119 |
COST_DRIFTW |
nl = 0 |
|
./pkg/ecco/cost_driftw.F |
158 |
COST_DRIFTW |
nl = nl + 1 |
|
./pkg/ecco/cost_driftw.F |
191 |
COST_DRIFTW |
& (wlmean(i,j,k,bi,bj)/nl - wfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_driftw.F |
192 |
COST_DRIFTW |
& (wlmean(i,j,k,bi,bj)/nl - wfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_driftw.F |
62 |
COST_DRIFTW |
integer nf, nl, nfmin |