| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_getadxx.F |
443 |
GRDCHK_GETADXX |
do iarr = 1, maxCtrlArr2D |
|
./pkg/grdchk/grdchk_getadxx.F |
444 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 100+iarr ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
445 |
GRDCHK_GETADXX |
il=ilnblnk( xx_genarr2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getadxx.F |
448 |
GRDCHK_GETADXX |
& yadmark, xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getadxx.F |
456 |
GRDCHK_GETADXX |
do iarr = 1, maxCtrlArr3D |
|
./pkg/grdchk/grdchk_getadxx.F |
457 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 200+iarr ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
458 |
GRDCHK_GETADXX |
il=ilnblnk( xx_genarr3d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getadxx.F |
461 |
GRDCHK_GETADXX |
& yadmark, xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getadxx.F |
469 |
GRDCHK_GETADXX |
do iarr = 1, maxCtrlTim2D |
|
./pkg/grdchk/grdchk_getadxx.F |
470 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 300+iarr ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
471 |
GRDCHK_GETADXX |
il=ilnblnk( xx_gentim2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getadxx.F |
474 |
GRDCHK_GETADXX |
& yadmark, xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getadxx.F |
61 |
GRDCHK_GETADXX |
integer iarr |
|
./pkg/grdchk/grdchk_getxx.F |
622 |
GRDCHK_GETXX |
do iarr = 1, maxCtrlArr2D |
|
./pkg/grdchk/grdchk_getxx.F |
623 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 100+iarr ) then |
|
./pkg/grdchk/grdchk_getxx.F |
624 |
GRDCHK_GETXX |
il=ilnblnk( xx_genarr2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getxx.F |
627 |
GRDCHK_GETXX |
& yadmark, xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
630 |
GRDCHK_GETXX |
& xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
639 |
GRDCHK_GETXX |
do iarr = 1, maxCtrlArr3D |
|
./pkg/grdchk/grdchk_getxx.F |
640 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 200+iarr ) then |
|
./pkg/grdchk/grdchk_getxx.F |
641 |
GRDCHK_GETXX |
il=ilnblnk( xx_genarr3d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getxx.F |
644 |
GRDCHK_GETXX |
& yadmark, xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
647 |
GRDCHK_GETXX |
& xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
656 |
GRDCHK_GETXX |
do iarr = 1, maxCtrlTim2D |
|
./pkg/grdchk/grdchk_getxx.F |
657 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 300+iarr ) then |
|
./pkg/grdchk/grdchk_getxx.F |
658 |
GRDCHK_GETXX |
il=ilnblnk( xx_gentim2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getxx.F |
661 |
GRDCHK_GETXX |
& yadmark, xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
664 |
GRDCHK_GETXX |
& xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
72 |
GRDCHK_GETXX |
integer iarr |
|
./pkg/grdchk/grdchk_setxx.F |
627 |
GRDCHK_SETXX |
do iarr = 1, maxCtrlArr2D |
|
./pkg/grdchk/grdchk_setxx.F |
628 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 100+iarr ) then |
|
./pkg/grdchk/grdchk_setxx.F |
629 |
GRDCHK_SETXX |
il=ilnblnk( xx_genarr2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_setxx.F |
632 |
GRDCHK_SETXX |
& yadmark, xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
635 |
GRDCHK_SETXX |
& xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
63 |
GRDCHK_SETXX |
integer iarr |
|
./pkg/grdchk/grdchk_setxx.F |
644 |
GRDCHK_SETXX |
do iarr = 1, maxCtrlArr3D |
|
./pkg/grdchk/grdchk_setxx.F |
645 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 200+iarr ) then |
|
./pkg/grdchk/grdchk_setxx.F |
646 |
GRDCHK_SETXX |
il=ilnblnk( xx_genarr3d_file(iarr) ) |
|
./pkg/grdchk/grdchk_setxx.F |
649 |
GRDCHK_SETXX |
& yadmark, xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
652 |
GRDCHK_SETXX |
& xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
661 |
GRDCHK_SETXX |
do iarr = 1, maxCtrlTim2D |
|
./pkg/grdchk/grdchk_setxx.F |
662 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 300+iarr ) then |
|
./pkg/grdchk/grdchk_setxx.F |
663 |
GRDCHK_SETXX |
il=ilnblnk( xx_gentim2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_setxx.F |
666 |
GRDCHK_SETXX |
& yadmark, xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
669 |
GRDCHK_SETXX |
& xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/smooth/smooth_correl2dw.F |
106 |
SMOOTH_CORREL2DW |
do iarr = 1, maxCtrlTim2D |
|
./pkg/smooth/smooth_correl2dw.F |
107 |
SMOOTH_CORREL2DW |
if ( xx_gen_file .EQ. xx_gentim2d_file(iarr) ) then |
|
./pkg/smooth/smooth_correl2dw.F |
108 |
SMOOTH_CORREL2DW |
tmpW=wgentim2d(i,j,bi,bj,iarr) |
|
./pkg/smooth/smooth_correl2dw.F |
47 |
SMOOTH_CORREL2DW |
INTEGER iarr |
|
./pkg/streamice/streamice_readparms.F |
232 |
STREAMICE_READPARMS |
DO iarr=1,n_fluxes_max |
|
./pkg/streamice/streamice_readparms.F |
233 |
STREAMICE_READPARMS |
streamice_ctrl_flux_id(iarr) = 0 |
|
./pkg/streamice/streamice_readparms.F |
235 |
STREAMICE_READPARMS |
streamice_ctrl_flux_scaleVel(iarr,tarr) = 0. _d 0 |
|
./pkg/streamice/streamice_readparms.F |
37 |
STREAMICE_READPARMS |
INTEGER iUnit, iarr, tarr |
|
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F |
104 |
CTRL_MAP_INI_GENARR |
& + xx_genarr2d(i,j,bi,bj,iarr) |
|
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F |
57 |
CTRL_MAP_INI_GENARR |
integer iarr |
|
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F |
84 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr2D |
|
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F |
86 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr2d_file(iarr) |
|
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F |
92 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr2d_dummy(iarr) ) |
|
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F |
97 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
103 |
CTRL_MAP_INI_GENARR |
elseif (iarr.eq.1) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
139 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr3D |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
141 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( xx_genarr3d_file(iarr) ) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
143 |
CTRL_MAP_INI_GENARR |
& xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
146 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr3d_dummy(iarr) ) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
152 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
155 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
158 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 3 ) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
61 |
CTRL_MAP_INI_GENARR |
integer iarr |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
83 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr2D |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
85 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( xx_genarr2d_file(iarr) ) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
87 |
CTRL_MAP_INI_GENARR |
& xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
90 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr2d_dummy(iarr) ) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
97 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 2 ) then |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
104 |
CTRL_MAP_INI_GENARR |
& + xx_genarr2d(i,j,bi,bj,iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
107 |
CTRL_MAP_INI_GENARR |
elseif (iarr.eq.1) then |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
112 |
CTRL_MAP_INI_GENARR |
& + xx_genarr2d(i,j,bi,bj,iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
146 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr3D |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
148 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
154 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr3d_dummy(iarr) ) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
160 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
163 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) then |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
166 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 3 ) then |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
61 |
CTRL_MAP_INI_GENARR |
integer iarr |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
85 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr2D |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
87 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr2d_file(iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
93 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr2d_dummy(iarr) ) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
99 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 2 ) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
100 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d0(1-Olx,1-Oly,1,1,iarr), |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
101 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d1(1-Olx,1-Oly,1,1,iarr), |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
102 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_dummy(iarr), |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
110 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_cumsum(iarr)) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
111 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
114 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
121 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_glosum(iarr)) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
131 |
CTRL_MAP_GENTIM2D |
& *xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
143 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(I,J,bi,bj,iarr) = |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
151 |
CTRL_MAP_GENTIM2D |
& iarr,' : iter=', myiter, ' ; global sum = ', LOCsumGlob |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
161 |
CTRL_MAP_GENTIM2D |
if (iarr.EQ.1) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
163 |
CTRL_MAP_GENTIM2D |
& + xx_gentim2d(I,J,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
53 |
CTRL_MAP_GENTIM2D |
integer iarr |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
81 |
CTRL_MAP_GENTIM2D |
DO iarr = 1, maxCtrlTim2D |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
93 |
CTRL_MAP_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
96 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_startdate(1,iarr), |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
97 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_period(iarr), |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
103 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
106 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 3 ) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
111 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
114 |
CTRL_MAP_INI_GENARR |
& + xx_genarr2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
117 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
119 |
CTRL_MAP_INI_GENARR |
& + xx_genarr2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
121 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 3 ) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
123 |
CTRL_MAP_INI_GENARR |
& + xx_genarr2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
149 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr3D |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
151 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
157 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr3d_dummy(iarr) ) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
164 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
167 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
172 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
174 |
CTRL_MAP_INI_GENARR |
& + fac*xx_genarr3d(i,j,k,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
176 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
178 |
CTRL_MAP_INI_GENARR |
& + fac*xx_genarr3d(i,j,k,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
57 |
CTRL_MAP_INI_GENARR |
integer iarr |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
84 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr2D |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
86 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr2d_file(iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
92 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr2d_dummy(iarr) ) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
98 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
100 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d0(1-Olx,1-Oly,1,1,iarr), |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
101 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d1(1-Olx,1-Oly,1,1,iarr), |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
102 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_dummy(iarr), |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
110 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_cumsum(iarr)) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
111 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
114 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
121 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_glosum(iarr)) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
131 |
CTRL_MAP_GENTIM2D |
& *xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
143 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(I,J,bi,bj,iarr) = |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
151 |
CTRL_MAP_GENTIM2D |
& iarr,' : iter=', myiter, ' ; global sum = ', LOCsumGlob |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
161 |
CTRL_MAP_GENTIM2D |
if (iarr.EQ.1) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
163 |
CTRL_MAP_GENTIM2D |
& + xx_gentim2d(I,J,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
53 |
CTRL_MAP_GENTIM2D |
integer iarr |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
81 |
CTRL_MAP_GENTIM2D |
DO iarr = 1, maxCtrlTim2D |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
93 |
CTRL_MAP_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
96 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_startdate(1,iarr), |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
97 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_period(iarr), |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
102 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
105 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 3 ) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
110 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
113 |
CTRL_MAP_INI_GENARR |
& + xx_genarr2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
116 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
118 |
CTRL_MAP_INI_GENARR |
& + xx_genarr2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
120 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 3 ) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
122 |
CTRL_MAP_INI_GENARR |
& + xx_genarr2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
148 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr3D |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
150 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
156 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr3d_dummy(iarr) ) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
163 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
166 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
171 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
173 |
CTRL_MAP_INI_GENARR |
& + fac*xx_genarr3d(i,j,k,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
175 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
177 |
CTRL_MAP_INI_GENARR |
& + fac*xx_genarr3d(i,j,k,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
56 |
CTRL_MAP_INI_GENARR |
integer iarr |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
83 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr2D |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
85 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr2d_file(iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
91 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr2d_dummy(iarr) ) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
97 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
131 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr3D |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
133 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
139 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr3d_dummy(iarr) ) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
146 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
147 |
CTRL_MAP_INI_GENARR |
& + fac*xx_genarr3d(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
150 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
159 |
CTRL_MAP_INI_GENARR |
CALL EXCH_3D_RL( pTracer(1-OLx,1-OLy,1,1,1,iarr), |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
56 |
CTRL_MAP_INI_GENARR |
integer iarr |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
83 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr2D |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
85 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr2d_file(iarr) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
91 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr2d_dummy(iarr) ) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
96 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
98 |
CTRL_MAP_INI_GENARR |
elseif ( iarr. eq. 2 ) then |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
129 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr3D |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
131 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( xx_genarr3d_file(iarr) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
133 |
CTRL_MAP_INI_GENARR |
& xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
136 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr3d_dummy(iarr) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
143 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
144 |
CTRL_MAP_INI_GENARR |
& + fac*xx_genarr3d(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
147 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
156 |
CTRL_MAP_INI_GENARR |
CALL EXCH_3D_RL( pTracer(1-OLx,1-OLy,1,1,1,iarr), |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
56 |
CTRL_MAP_INI_GENARR |
integer iarr |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
82 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr2D |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
84 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( xx_genarr2d_file(iarr) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
86 |
CTRL_MAP_INI_GENARR |
& xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
89 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr2d_dummy(iarr) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
94 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
96 |
CTRL_MAP_INI_GENARR |
elseif ( iarr. eq. 2 ) then |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
131 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr3D |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
133 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
139 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr3d_dummy(iarr) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
146 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
147 |
CTRL_MAP_INI_GENARR |
& + fac*xx_genarr3d(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
150 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
159 |
CTRL_MAP_INI_GENARR |
CALL EXCH_3D_RL( pTracer(1-OLx,1-OLy,1,1,1,iarr), |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
56 |
CTRL_MAP_INI_GENARR |
integer iarr |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
83 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr2D |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
85 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr2d_file(iarr) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
91 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr2d_dummy(iarr) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
96 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
98 |
CTRL_MAP_INI_GENARR |
elseif ( iarr. eq. 2 ) then |
|
./pkg/ctrl/ctrl_init.F |
59 |
CTRL_INIT |
integer iarr |
|
./pkg/ctrl/ctrl_init.F |
780 |
CTRL_INIT |
do iarr = 1, maxCtrlArr2D |
|
./pkg/ctrl/ctrl_init.F |
782 |
CTRL_INIT |
& xx_genarr2d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_init.F |
783 |
CTRL_INIT |
& 100+iarr, 200+iarr, 1, 1, 1, |
|
./pkg/ctrl/ctrl_init.F |
791 |
CTRL_INIT |
do iarr = 1, maxCtrlArr3D |
|
./pkg/ctrl/ctrl_init.F |
793 |
CTRL_INIT |
& xx_genarr3d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_init.F |
794 |
CTRL_INIT |
& 200+iarr, 300+iarr, 1, 1, 1, |
|
./pkg/ctrl/ctrl_init.F |
802 |
CTRL_INIT |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_init.F |
804 |
CTRL_INIT |
if (xx_gentim2d_weight(iarr).NE.' ') |
|
./pkg/ctrl/ctrl_init.F |
806 |
CTRL_INIT |
& 1, wgentim2d(1-Olx,1-Oly,1,1,iarr), 1, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
808 |
CTRL_INIT |
call CTRL_INIT_REC ( xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_init.F |
809 |
CTRL_INIT |
I xx_gentim2d_startdate1(iarr), |
|
./pkg/ctrl/ctrl_init.F |
810 |
CTRL_INIT |
I xx_gentim2d_startdate2(iarr), |
|
./pkg/ctrl/ctrl_init.F |
811 |
CTRL_INIT |
I xx_gentim2d_period(iarr), |
|
./pkg/ctrl/ctrl_init.F |
813 |
CTRL_INIT |
O xx_gentim2d_startdate(1,iarr), |
|
./pkg/ctrl/ctrl_init.F |
818 |
CTRL_INIT |
& xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_init.F |
819 |
CTRL_INIT |
& 300+iarr, 400+iarr, |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
100 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_dummy(iarr), |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
108 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_cumsum(iarr)) then |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
109 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
112 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
119 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_glosum(iarr)) then |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
129 |
CTRL_MAP_GENTIM2D |
& *xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
141 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(I,J,bi,bj,iarr) = |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
53 |
CTRL_MAP_GENTIM2D |
integer iarr |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
80 |
CTRL_MAP_GENTIM2D |
DO iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
93 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
94 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_startdate(1,iarr), |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
95 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_period(iarr), |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
98 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d0(1-Olx,1-Oly,1,1,iarr), |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
99 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d1(1-Olx,1-Oly,1,1,iarr), |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
101 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 3 ) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
127 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr3D |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
129 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( xx_genarr3d_file(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
131 |
CTRL_MAP_INI_GENARR |
& xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
134 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr3d_dummy(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
140 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
143 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
146 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 3 ) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
56 |
CTRL_MAP_INI_GENARR |
integer iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
81 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr2D |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
83 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( xx_genarr2d_file(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
85 |
CTRL_MAP_INI_GENARR |
& xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
88 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr2d_dummy(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
93 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
98 |
CTRL_MAP_INI_GENARR |
elseif ( iarr. eq. 2 ) then |
|
./pkg/ctrl/ctrl_pack.F |
722 |
CTRL_PACK |
do iarr = 1, maxCtrlArr2D |
|
./pkg/ctrl/ctrl_pack.F |
723 |
CTRL_PACK |
call CTRL_SET_FNAME( xx_genarr2d_file(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
725 |
CTRL_PACK |
ivartype = 100+iarr |
|
./pkg/ctrl/ctrl_pack.F |
729 |
CTRL_PACK |
& cunit, ivartype, genarr2dPrecond(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
731 |
CTRL_PACK |
& xx_genarr2d_weight(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
737 |
CTRL_PACK |
do iarr = 1, maxCtrlArr3D |
|
./pkg/ctrl/ctrl_pack.F |
738 |
CTRL_PACK |
call CTRL_SET_FNAME( xx_genarr3d_file(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
740 |
CTRL_PACK |
ivartype = 200+iarr |
|
./pkg/ctrl/ctrl_pack.F |
745 |
CTRL_PACK |
& xx_genarr3d_weight(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
751 |
CTRL_PACK |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_pack.F |
752 |
CTRL_PACK |
call CTRL_SET_FNAME( xx_gentim2d_file(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
754 |
CTRL_PACK |
ivartype = 300+iarr |
|
./pkg/ctrl/ctrl_pack.F |
758 |
CTRL_PACK |
& cunit, ivartype, gentim2dPrecond(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
760 |
CTRL_PACK |
& xx_gentim2d_weight(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
90 |
CTRL_PACK |
integer iarr |
|
./pkg/ctrl/ctrl_readparms.F |
195 |
CTRL_READPARMS |
do iarr = 1, maxCtrlArr2D |
|
./pkg/ctrl/ctrl_readparms.F |
196 |
CTRL_READPARMS |
write(xx_genarr2d_file(iarr)(1:14),'(a,i2.2)') |
|
./pkg/ctrl/ctrl_readparms.F |
197 |
CTRL_READPARMS |
& 'xx_genarr2d_', iarr |
|
./pkg/ctrl/ctrl_readparms.F |
198 |
CTRL_READPARMS |
write(xx_genarr2d_file(iarr)(15:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
199 |
CTRL_READPARMS |
write(xx_genarr2d_weight(iarr)(1:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
200 |
CTRL_READPARMS |
genarr2dPrecond(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
203 |
CTRL_READPARMS |
do iarr = 1, maxCtrlArr3D |
|
./pkg/ctrl/ctrl_readparms.F |
204 |
CTRL_READPARMS |
write(xx_genarr3d_file(iarr)(1:14),'(a,i2.2)') |
|
./pkg/ctrl/ctrl_readparms.F |
205 |
CTRL_READPARMS |
& 'xx_genarr3d_', iarr |
|
./pkg/ctrl/ctrl_readparms.F |
206 |
CTRL_READPARMS |
write(xx_genarr3d_file(iarr)(15:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
207 |
CTRL_READPARMS |
write(xx_genarr3d_weight(iarr)(1:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
210 |
CTRL_READPARMS |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_readparms.F |
211 |
CTRL_READPARMS |
write(xx_gentim2d_file(iarr)(1:14),'(a,i2.2)') |
|
./pkg/ctrl/ctrl_readparms.F |
212 |
CTRL_READPARMS |
& 'xx_gentim2d_', iarr |
|
./pkg/ctrl/ctrl_readparms.F |
213 |
CTRL_READPARMS |
write(xx_gentim2d_file(iarr)(15:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
214 |
CTRL_READPARMS |
write(xx_gentim2d_weight(iarr)(1:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
215 |
CTRL_READPARMS |
xx_gentim2d_startdate1(iarr) = 0 |
|
./pkg/ctrl/ctrl_readparms.F |
216 |
CTRL_READPARMS |
xx_gentim2d_startdate2(iarr) = 0 |
|
./pkg/ctrl/ctrl_readparms.F |
217 |
CTRL_READPARMS |
xx_gentim2d_period(iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
218 |
CTRL_READPARMS |
xx_gentim2d_cumsum(iarr) = .FALSE. |
|
./pkg/ctrl/ctrl_readparms.F |
219 |
CTRL_READPARMS |
xx_gentim2d_glosum(iarr) = .FALSE. |
|
./pkg/ctrl/ctrl_readparms.F |
220 |
CTRL_READPARMS |
gentim2dPrecond(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
221 |
CTRL_READPARMS |
mult_gentim2d(iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
58 |
CTRL_READPARMS |
integer iarr |
|
./pkg/ctrl/ctrl_unpack.F |
818 |
CTRL_UNPACK |
do iarr = 1, maxCtrlArr2D |
|
./pkg/ctrl/ctrl_unpack.F |
819 |
CTRL_UNPACK |
call CTRL_SET_FNAME( xx_genarr2d_file(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
821 |
CTRL_UNPACK |
ivartype = 100+iarr |
|
./pkg/ctrl/ctrl_unpack.F |
825 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, genarr2dPrecond(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
827 |
CTRL_UNPACK |
& xx_genarr2d_weight(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
833 |
CTRL_UNPACK |
do iarr = 1, maxCtrlArr3D |
|
./pkg/ctrl/ctrl_unpack.F |
834 |
CTRL_UNPACK |
call CTRL_SET_FNAME( xx_genarr3d_file(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
836 |
CTRL_UNPACK |
ivartype = 200+iarr |
|
./pkg/ctrl/ctrl_unpack.F |
841 |
CTRL_UNPACK |
& xx_genarr3d_weight(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
847 |
CTRL_UNPACK |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_unpack.F |
848 |
CTRL_UNPACK |
call CTRL_SET_FNAME( xx_gentim2d_file(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
850 |
CTRL_UNPACK |
ivartype = 300+iarr |
|
./pkg/ctrl/ctrl_unpack.F |
854 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, gentim2dPrecond(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
856 |
CTRL_UNPACK |
& xx_gentim2d_weight(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
92 |
CTRL_UNPACK |
integer iarr |
|
./pkg/ecco/cost_averagesfields.F |
103 |
COST_AVERAGESFIELDS |
INTEGER iarr |
|
./pkg/ecco/cost_averagesfields.F |
205 |
COST_AVERAGESFIELDS |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ecco/cost_averagesfields.F |
206 |
COST_AVERAGESFIELDS |
if (xx_gentim2d_file(iarr).EQ.'xx_gen_precip') |
|
./pkg/ecco/cost_averagesfields.F |
207 |
COST_AVERAGESFIELDS |
& genprecipGloH=xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ecco/cost_genctrl.F |
48 |
COST_GENCTRL |
integer iarr |
|
./pkg/ecco/cost_genctrl.F |
57 |
COST_GENCTRL |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ecco/cost_genctrl.F |
59 |
COST_GENCTRL |
startrec = ncvarrecstart(300+iarr) |
|
./pkg/ecco/cost_genctrl.F |
60 |
COST_GENCTRL |
endrec = ncvarrecsend(300+iarr) |
|
./pkg/ecco/cost_genctrl.F |
65 |
COST_GENCTRL |
& 0. _d 0, wgentim2d(1-Olx,1-Oly,1,1,iarr), |
|
./pkg/ecco/cost_genctrl.F |
66 |
COST_GENCTRL |
& num_gentim2d(1,1,iarr), num_gentim2dm(1,1,iarr), |
|
./pkg/ecco/cost_genctrl.F |
67 |
COST_GENCTRL |
& objf_gentim2d(1,1,iarr), objf_gentim2dm(1,1,iarr), |
|
./pkg/ecco/cost_genctrl.F |
68 |
COST_GENCTRL |
& objf_gentim2dsmoo(1,1,iarr), 0. _d 0, 0. _d 0, |