| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_bypassad.F |
114 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
125 |
ADMTLM_BYPASSAD |
& optimcycle,mythid,tmpfld3d ) |
|
./pkg/admtlm/admtlm_bypassad.F |
132 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
143 |
ADMTLM_BYPASSAD |
& optimcycle,mythid,tmpfld3d ) |
|
./pkg/admtlm/admtlm_bypassad.F |
150 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
161 |
ADMTLM_BYPASSAD |
& optimcycle,mythid,tmpfld3d ) |
|
./pkg/admtlm/admtlm_bypassad.F |
168 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
179 |
ADMTLM_BYPASSAD |
& optimcycle,mythid,tmpfld3d ) |
|
./pkg/grdchk/grdchk_getxx.F |
101 |
GRDCHK_GETXX |
xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getxx.F |
103 |
GRDCHK_GETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert |
|
./pkg/grdchk/grdchk_getxx.F |
105 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getxx.F |
122 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getxx.F |
126 |
GRDCHK_GETXX |
xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getxx.F |
128 |
GRDCHK_GETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert |
|
./pkg/grdchk/grdchk_getxx.F |
130 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getxx.F |
447 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getxx.F |
451 |
GRDCHK_GETXX |
xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getxx.F |
453 |
GRDCHK_GETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert |
|
./pkg/grdchk/grdchk_getxx.F |
455 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getxx.F |
472 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getxx.F |
476 |
GRDCHK_GETXX |
xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getxx.F |
478 |
GRDCHK_GETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert |
|
./pkg/grdchk/grdchk_getxx.F |
480 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getxx.F |
497 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, icvrec, |
|
./pkg/grdchk/grdchk_getxx.F |
501 |
GRDCHK_GETXX |
xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getxx.F |
503 |
GRDCHK_GETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert |
|
./pkg/grdchk/grdchk_getxx.F |
505 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, icvrec, |
|
./pkg/grdchk/grdchk_getxx.F |
598 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getxx.F |
602 |
GRDCHK_GETXX |
xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getxx.F |
604 |
GRDCHK_GETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert |
|
./pkg/grdchk/grdchk_getxx.F |
606 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getxx.F |
624 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getxx.F |
628 |
GRDCHK_GETXX |
xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getxx.F |
630 |
GRDCHK_GETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert |
|
./pkg/grdchk/grdchk_getxx.F |
632 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getxx.F |
97 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
100 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
117 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
121 |
GRDCHK_SETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref |
|
./pkg/grdchk/grdchk_setxx.F |
123 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
416 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
420 |
GRDCHK_SETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref |
|
./pkg/grdchk/grdchk_setxx.F |
422 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
439 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
443 |
GRDCHK_SETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref |
|
./pkg/grdchk/grdchk_setxx.F |
445 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
462 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
466 |
GRDCHK_SETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref |
|
./pkg/grdchk/grdchk_setxx.F |
468 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
555 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
559 |
GRDCHK_SETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref |
|
./pkg/grdchk/grdchk_setxx.F |
561 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
579 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
583 |
GRDCHK_SETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref |
|
./pkg/grdchk/grdchk_setxx.F |
585 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
94 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
98 |
GRDCHK_SETXX |
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_ref |
|
./pkg/grdchk/grdchk_getadxx.F |
103 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getadxx.F |
107 |
GRDCHK_GETADXX |
xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getadxx.F |
298 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getadxx.F |
302 |
GRDCHK_GETADXX |
xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getadxx.F |
313 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getadxx.F |
317 |
GRDCHK_GETADXX |
xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getadxx.F |
328 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getadxx.F |
332 |
GRDCHK_GETADXX |
xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getadxx.F |
388 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getadxx.F |
392 |
GRDCHK_GETADXX |
xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getadxx.F |
403 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getadxx.F |
407 |
GRDCHK_GETADXX |
xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/grdchk/grdchk_getadxx.F |
88 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ_LOC( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getadxx.F |
92 |
GRDCHK_GETADXX |
xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
|
./pkg/ecco/cost_salt0.F |
103 |
COST_SALT0 |
call ACTIVE_READ_XYZ_LOC( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_salt0.F |
118 |
COST_SALT0 |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
139 |
COST_SALT0 |
& fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_salt0.F |
142 |
COST_SALT0 |
_EXCH_XYZ_R8(tmpfld3d, mythid) |
|
./pkg/ecco/cost_salt0.F |
154 |
COST_SALT0 |
& ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) ) |
|
./pkg/ecco/cost_salt0.F |
156 |
COST_SALT0 |
& + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_salt0.F |
158 |
COST_SALT0 |
& + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) ) |
|
./pkg/ecco/cost_salt0.F |
160 |
COST_SALT0 |
& + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_kapgm.F |
107 |
COST_KAPGM |
call ACTIVE_READ_XYZ_LOC( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_kapgm.F |
122 |
COST_KAPGM |
tmpx = (tmpfld3d(i,j,k,bi,bj)-GM_background_K) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
105 |
ECCO_COST_INIT_BARFILES |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
172 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnametbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
211 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnamesbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
259 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnameubar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
261 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnamevbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
279 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnamewbar, tmpfld3d, irec, |
|
./pkg/ecco/cost_theta0.F |
104 |
COST_THETA0 |
& fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_theta0.F |
118 |
COST_THETA0 |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
139 |
COST_THETA0 |
& fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_theta0.F |
142 |
COST_THETA0 |
_EXCH_XYZ_R8(tmpfld3d, mythid) |
|
./pkg/ecco/cost_theta0.F |
154 |
COST_THETA0 |
& ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) ) |
|
./pkg/ecco/cost_theta0.F |
156 |
COST_THETA0 |
& + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_theta0.F |
158 |
COST_THETA0 |
& + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) ) |
|
./pkg/ecco/cost_theta0.F |
160 |
COST_THETA0 |
& + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_theta_ini_fin.F |
108 |
COST_THETA_INI_FIN |
tmpx = tmpfld3d(i,j,k,bi,bj) - theta(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta_ini_fin.F |
93 |
COST_THETA_INI_FIN |
call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_salt_ini_fin.F |
108 |
COST_SALT_INI_FIN |
tmpx = tmpfld3d(i,j,k,bi,bj) - salt(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt_ini_fin.F |
93 |
COST_SALT_INI_FIN |
call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
105 |
CTRL_MAP_INI_ECCO |
call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
110 |
CTRL_MAP_INI_ECCO |
& tmpfld3d(15,15,1,1,1) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
118 |
CTRL_MAP_INI_ECCO |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
120 |
CTRL_MAP_INI_ECCO |
& tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
122 |
CTRL_MAP_INI_ECCO |
& tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
153 |
CTRL_MAP_INI_ECCO |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
163 |
CTRL_MAP_INI_ECCO |
& tmpfld3d(15,15,1,1,1) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
173 |
CTRL_MAP_INI_ECCO |
call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
182 |
CTRL_MAP_INI_ECCO |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
184 |
CTRL_MAP_INI_ECCO |
& tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
186 |
CTRL_MAP_INI_ECCO |
& tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
215 |
CTRL_MAP_INI_ECCO |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
229 |
CTRL_MAP_INI_ECCO |
call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
238 |
CTRL_MAP_INI_ECCO |
& fCori(i,j,bi,bj)*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
255 |
CTRL_MAP_INI_ECCO |
call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
264 |
CTRL_MAP_INI_ECCO |
& fCoriG(i,j,bi,bj)*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
281 |
CTRL_MAP_INI_ECCO |
call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
290 |
CTRL_MAP_INI_ECCO |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
303 |
CTRL_MAP_INI_ECCO |
call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
312 |
CTRL_MAP_INI_ECCO |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
325 |
CTRL_MAP_INI_ECCO |
call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
334 |
CTRL_MAP_INI_ECCO |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
347 |
CTRL_MAP_INI_ECCO |
call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
356 |
CTRL_MAP_INI_ECCO |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
106 |
CTRL_MAP_INI |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini.F |
108 |
CTRL_MAP_INI |
$ tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini.F |
109 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini.F |
116 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
133 |
CTRL_MAP_INI |
call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
143 |
CTRL_MAP_INI |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini.F |
145 |
CTRL_MAP_INI |
$ tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini.F |
146 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini.F |
153 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
169 |
CTRL_MAP_INI |
call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
179 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
235 |
CTRL_MAP_INI |
call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
244 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
257 |
CTRL_MAP_INI |
call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
266 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
279 |
CTRL_MAP_INI |
call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
289 |
CTRL_MAP_INI |
& - fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
306 |
CTRL_MAP_INI |
call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
317 |
CTRL_MAP_INI |
& *fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
355 |
CTRL_MAP_INI |
call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
364 |
CTRL_MAP_INI |
& fCori(i,j,bi,bj)*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
377 |
CTRL_MAP_INI |
call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
386 |
CTRL_MAP_INI |
& fCoriG(i,j,bi,bj)*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
399 |
CTRL_MAP_INI |
call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
412 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
426 |
CTRL_MAP_INI |
call ACTIVE_READ_XYZ( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
439 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
96 |
CTRL_MAP_INI |
call ACTIVE_READ_XYZ_LOC( fnamegeneric, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
104 |
CTRL_HFACC_INI |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
121 |
CTRL_HFACC_INI |
call ACTIVE_READ_XYZ_LOC( fnamehfacc, tmpfld3d, 1, |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
130 |
CTRL_HFACC_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl.h |
251 |
NO PROCEDURE |
& , tmpfld3d |
|
./pkg/ctrl/ctrl.h |
254 |
NO PROCEDURE |
_RL tmpfld3d |