| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffields.F |
686 |
EXF_GETFFIELDS |
DO iarr = 1, maxCtrlTim2D |
|
./pkg/exf/exf_getffields.F |
688 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:8).EQ.'xx_atemp') |
|
./pkg/exf/exf_getffields.F |
68 |
EXF_GETFFIELDS |
INTEGER iarr |
|
./pkg/exf/exf_getffields.F |
690 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
691 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:6).EQ.'xx_aqh') |
|
./pkg/exf/exf_getffields.F |
693 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
694 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:9).EQ.'xx_precip') |
|
./pkg/exf/exf_getffields.F |
696 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
697 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:9).EQ.'xx_lwflux') |
|
./pkg/exf/exf_getffields.F |
699 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
702 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:9).EQ.'xx_swflux') |
|
./pkg/exf/exf_getffields.F |
704 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
707 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:9).EQ.'xx_swdown') |
|
./pkg/exf/exf_getffields.F |
709 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
710 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:9).EQ.'xx_lwdown') |
|
./pkg/exf/exf_getffields.F |
712 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
715 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:9).EQ.'xx_runoff') |
|
./pkg/exf/exf_getffields.F |
717 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
720 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:7).EQ.'xx_evap') |
|
./pkg/exf/exf_getffields.F |
722 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
725 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:12).EQ.'xx_apressure') |
|
./pkg/exf/exf_getffields.F |
727 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
730 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:11).EQ.'xx_areamask') |
|
./pkg/exf/exf_getffields.F |
732 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
735 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:8).EQ.'xx_uwind') |
|
./pkg/exf/exf_getffields.F |
737 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
738 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:8).EQ.'xx_vwind') |
|
./pkg/exf/exf_getffields.F |
740 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
742 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:8).EQ.'xx_uwind') |
|
./pkg/exf/exf_getffields.F |
744 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
745 |
EXF_GETFFIELDS |
IF (xx_gentim2d_file(iarr)(1:8).EQ.'xx_vwind') |
|
./pkg/exf/exf_getffields.F |
747 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getsurfacefluxes.F |
111 |
EXF_GETSURFACEFLUXES |
do iarr = 1, maxCtrlTim2D |
|
./pkg/exf/exf_getsurfacefluxes.F |
113 |
EXF_GETSURFACEFLUXES |
if (xx_gentim2d_file(iarr)(1:7).EQ.'xx_tauu') |
|
./pkg/exf/exf_getsurfacefluxes.F |
115 |
EXF_GETSURFACEFLUXES |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getsurfacefluxes.F |
116 |
EXF_GETSURFACEFLUXES |
if (xx_gentim2d_file(iarr)(1:7).EQ.'xx_tauv') |
|
./pkg/exf/exf_getsurfacefluxes.F |
118 |
EXF_GETSURFACEFLUXES |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getsurfacefluxes.F |
120 |
EXF_GETSURFACEFLUXES |
if (xx_gentim2d_file(iarr)(1:7).EQ.'xx_tauu') |
|
./pkg/exf/exf_getsurfacefluxes.F |
122 |
EXF_GETSURFACEFLUXES |
& +xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getsurfacefluxes.F |
123 |
EXF_GETSURFACEFLUXES |
if (xx_gentim2d_file(iarr)(1:7).EQ.'xx_tauv') |
|
./pkg/exf/exf_getsurfacefluxes.F |
125 |
EXF_GETSURFACEFLUXES |
& +xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getsurfacefluxes.F |
78 |
EXF_GETSURFACEFLUXES |
integer iarr |
|
./pkg/exf/exf_wind.F |
232 |
EXF_WIND |
do iarr = 1, maxCtrlTim2D |
|
./pkg/exf/exf_wind.F |
233 |
EXF_WIND |
if (xx_gentim2d_file(iarr)(1:9).EQ.'xx_wspeed') |
|
./pkg/exf/exf_wind.F |
235 |
EXF_WIND |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_wind.F |
71 |
EXF_WIND |
INTEGER iarr |
|
./pkg/grdchk/grdchk_getadxx.F |
454 |
GRDCHK_GETADXX |
do iarr = 1, maxCtrlArr2D |
|
./pkg/grdchk/grdchk_getadxx.F |
455 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 100+iarr ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
456 |
GRDCHK_GETADXX |
il=ilnblnk( xx_genarr2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getadxx.F |
459 |
GRDCHK_GETADXX |
& yadmark, xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getadxx.F |
467 |
GRDCHK_GETADXX |
do iarr = 1, maxCtrlArr3D |
|
./pkg/grdchk/grdchk_getadxx.F |
468 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 200+iarr ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
469 |
GRDCHK_GETADXX |
il=ilnblnk( xx_genarr3d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getadxx.F |
472 |
GRDCHK_GETADXX |
& yadmark, xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getadxx.F |
480 |
GRDCHK_GETADXX |
do iarr = 1, maxCtrlTim2D |
|
./pkg/grdchk/grdchk_getadxx.F |
481 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 300+iarr ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
482 |
GRDCHK_GETADXX |
il=ilnblnk( xx_gentim2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getadxx.F |
485 |
GRDCHK_GETADXX |
& yadmark, xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getadxx.F |
62 |
GRDCHK_GETADXX |
integer iarr |
|
./pkg/grdchk/grdchk_getxx.F |
633 |
GRDCHK_GETXX |
do iarr = 1, maxCtrlArr2D |
|
./pkg/grdchk/grdchk_getxx.F |
634 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 100+iarr ) then |
|
./pkg/grdchk/grdchk_getxx.F |
635 |
GRDCHK_GETXX |
il=ilnblnk( xx_genarr2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getxx.F |
638 |
GRDCHK_GETXX |
& yadmark, xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
641 |
GRDCHK_GETXX |
& xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
650 |
GRDCHK_GETXX |
do iarr = 1, maxCtrlArr3D |
|
./pkg/grdchk/grdchk_getxx.F |
651 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 200+iarr ) then |
|
./pkg/grdchk/grdchk_getxx.F |
652 |
GRDCHK_GETXX |
il=ilnblnk( xx_genarr3d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getxx.F |
655 |
GRDCHK_GETXX |
& yadmark, xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
658 |
GRDCHK_GETXX |
& xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
667 |
GRDCHK_GETXX |
do iarr = 1, maxCtrlTim2D |
|
./pkg/grdchk/grdchk_getxx.F |
668 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 300+iarr ) then |
|
./pkg/grdchk/grdchk_getxx.F |
669 |
GRDCHK_GETXX |
il=ilnblnk( xx_gentim2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_getxx.F |
672 |
GRDCHK_GETXX |
& yadmark, xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
675 |
GRDCHK_GETXX |
& xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_getxx.F |
73 |
GRDCHK_GETXX |
integer iarr |
|
./pkg/grdchk/grdchk_setxx.F |
638 |
GRDCHK_SETXX |
do iarr = 1, maxCtrlArr2D |
|
./pkg/grdchk/grdchk_setxx.F |
639 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 100+iarr ) then |
|
./pkg/grdchk/grdchk_setxx.F |
640 |
GRDCHK_SETXX |
il=ilnblnk( xx_genarr2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_setxx.F |
643 |
GRDCHK_SETXX |
& yadmark, xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
646 |
GRDCHK_SETXX |
& xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
64 |
GRDCHK_SETXX |
integer iarr |
|
./pkg/grdchk/grdchk_setxx.F |
655 |
GRDCHK_SETXX |
do iarr = 1, maxCtrlArr3D |
|
./pkg/grdchk/grdchk_setxx.F |
656 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 200+iarr ) then |
|
./pkg/grdchk/grdchk_setxx.F |
657 |
GRDCHK_SETXX |
il=ilnblnk( xx_genarr3d_file(iarr) ) |
|
./pkg/grdchk/grdchk_setxx.F |
660 |
GRDCHK_SETXX |
& yadmark, xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
663 |
GRDCHK_SETXX |
& xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
672 |
GRDCHK_SETXX |
do iarr = 1, maxCtrlTim2D |
|
./pkg/grdchk/grdchk_setxx.F |
673 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 300+iarr ) then |
|
./pkg/grdchk/grdchk_setxx.F |
674 |
GRDCHK_SETXX |
il=ilnblnk( xx_gentim2d_file(iarr) ) |
|
./pkg/grdchk/grdchk_setxx.F |
677 |
GRDCHK_SETXX |
& yadmark, xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/grdchk/grdchk_setxx.F |
680 |
GRDCHK_SETXX |
& xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
|
./pkg/smooth/smooth_correl2dw.F |
111 |
SMOOTH_CORREL2DW |
do iarr = 1, maxCtrlTim2D |
|
./pkg/smooth/smooth_correl2dw.F |
112 |
SMOOTH_CORREL2DW |
if ( xx_gen_file .EQ. xx_gentim2d_file(iarr) ) then |
|
./pkg/smooth/smooth_correl2dw.F |
113 |
SMOOTH_CORREL2DW |
tmpW=wgentim2d(i,j,bi,bj,iarr) |
|
./pkg/smooth/smooth_correl2dw.F |
52 |
SMOOTH_CORREL2DW |
INTEGER iarr |
|
./pkg/streamice/streamice_readparms.F |
36 |
STREAMICE_READPARMS |
INTEGER iUnit, iarr, tarr |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
131 |
CTRL_MAP_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
133 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_file(iarr), |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
134 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_startdate(1,iarr), |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
135 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_period(iarr), |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
138 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d0(1-Olx,1-Oly,1,1,iarr), |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
139 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d1(1-Olx,1-Oly,1,1,iarr), |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
140 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_dummy(iarr), |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
142 |
CTRL_MAP_GENTIM2D |
I wgentim2d(1-Olx,1-Oly,1,1,iarr), |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
151 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
165 |
CTRL_MAP_GENTIM2D |
if ( iarr .eq. 1 ) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
170 |
CTRL_MAP_GENTIM2D |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
57 |
CTRL_MAP_GENTIM2D |
integer iarr |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
95 |
CTRL_MAP_GENTIM2D |
DO iarr = 1, maxCtrlTim2D |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
106 |
CTRL_MAP_INI_GENARR |
elseif (iarr.eq.1) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
142 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr3D |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
144 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
150 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr3d_dummy(iarr) ) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
156 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
159 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
162 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 3 ) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
60 |
CTRL_MAP_INI_GENARR |
integer iarr |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
84 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr2D |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
86 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr2d_file(iarr) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
92 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr2d_dummy(iarr) ) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
98 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 2 ) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
105 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'smooth') then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
106 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
107 |
CTRL_MAP_INI_GENTIM2D |
& smoothOpNb=xx_gentim2d_preproc_i(k2,iarr) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
114 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'replicate') then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
115 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
116 |
CTRL_MAP_INI_GENTIM2D |
replicated_nrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
134 |
CTRL_MAP_INI_GENTIM2D |
& mythid, xx_gentim2d_dummy(iarr) ) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
137 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'variaweight') |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
138 |
CTRL_MAP_INI_GENTIM2D |
& call MDSREADFIELD( xx_gentim2d_weight(iarr), ctrlprec, 'RL', |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
139 |
CTRL_MAP_INI_GENTIM2D |
& 1, wgentim2d(1-Olx,1-Oly,1,1,iarr), irec, myThid ) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
152 |
CTRL_MAP_INI_GENTIM2D |
& (wgentim2d(i,j,bi,bj,iarr).GT.0.)) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
154 |
CTRL_MAP_INI_GENTIM2D |
& /sqrt(wgentim2d(i,j,bi,bj,iarr)) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
169 |
CTRL_MAP_INI_GENTIM2D |
& mythid, xx_gentim2d_dummy(iarr) ) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
183 |
CTRL_MAP_INI_GENTIM2D |
& mythid, xx_gentim2d_dummy(iarr) ) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
185 |
CTRL_MAP_INI_GENTIM2D |
& mythid, xx_gentim2d_dummy(iarr) ) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
51 |
CTRL_MAP_INI_GENTIM2D |
integer iarr |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
78 |
CTRL_MAP_INI_GENTIM2D |
DO iarr = 1, maxCtrlTim2D |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
86 |
CTRL_MAP_INI_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
88 |
CTRL_MAP_INI_GENTIM2D |
I xx_gentim2d_startdate1(iarr), |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
89 |
CTRL_MAP_INI_GENTIM2D |
I xx_gentim2d_startdate2(iarr), |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
90 |
CTRL_MAP_INI_GENTIM2D |
I xx_gentim2d_period(iarr), |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
92 |
CTRL_MAP_INI_GENTIM2D |
O xx_gentim2d_startdate(1,iarr), |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
96 |
CTRL_MAP_INI_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
131 |
CTRL_MAP_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
133 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_file(iarr), |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
134 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_startdate(1,iarr), |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
135 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_period(iarr), |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
138 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d0(1-Olx,1-Oly,1,1,iarr), |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
139 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d1(1-Olx,1-Oly,1,1,iarr), |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
140 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_dummy(iarr), |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
142 |
CTRL_MAP_GENTIM2D |
I wgentim2d(1-Olx,1-Oly,1,1,iarr), |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
151 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
165 |
CTRL_MAP_GENTIM2D |
if ( iarr .eq. 1 ) then |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
170 |
CTRL_MAP_GENTIM2D |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
57 |
CTRL_MAP_GENTIM2D |
integer iarr |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
95 |
CTRL_MAP_GENTIM2D |
DO iarr = 1, maxCtrlTim2D |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
106 |
CTRL_MAP_INI_GENARR |
elseif (iarr.eq.1) then |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
142 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr3D |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
144 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
150 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr3d_dummy(iarr) ) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
156 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
159 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) then |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
162 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 3 ) then |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
60 |
CTRL_MAP_INI_GENARR |
integer iarr |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
84 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr2D |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
86 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr2d_file(iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
92 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr2d_dummy(iarr) ) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
98 |
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 |
104 |
CTRL_MAP_GENTIM2D |
I wgentim2d(1-Olx,1-Oly,1,1,iarr), |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
111 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_cumsum(iarr)) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
112 |
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 |
115 |
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 |
122 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_glosum(iarr)) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
132 |
CTRL_MAP_GENTIM2D |
& *xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
144 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(I,J,bi,bj,iarr) = |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
152 |
CTRL_MAP_GENTIM2D |
& iarr,' : iter=', myiter, ' ; global sum = ', LOCsumGlob |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
162 |
CTRL_MAP_GENTIM2D |
if (iarr.EQ.1) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
164 |
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 |
95 |
CTRL_MAP_GENTIM2D |
I 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 |
123 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr3D |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
125 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
131 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr3d_dummy(iarr) ) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
56 |
CTRL_MAP_INI_GENARR |
integer iarr |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
83 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr2D |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
85 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr2d_file(iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
91 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr2d_dummy(iarr) ) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
96 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
99 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) 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 |
104 |
CTRL_MAP_GENTIM2D |
I wgentim2d(1-Olx,1-Oly,1,1,iarr), |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
111 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_cumsum(iarr)) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
112 |
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 |
115 |
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 |
122 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_glosum(iarr)) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
132 |
CTRL_MAP_GENTIM2D |
& *xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
144 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(I,J,bi,bj,iarr) = |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
152 |
CTRL_MAP_GENTIM2D |
& iarr,' : iter=', myiter, ' ; global sum = ', LOCsumGlob |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
162 |
CTRL_MAP_GENTIM2D |
if (iarr.EQ.1) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
164 |
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 |
95 |
CTRL_MAP_GENTIM2D |
I 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 |
123 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr3D |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
125 |
CTRL_MAP_INI_GENARR |
fnamebase = xx_genarr3d_file(iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
131 |
CTRL_MAP_INI_GENARR |
& myThid, xx_genarr3d_dummy(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 |
96 |
CTRL_MAP_INI_GENARR |
if ( iarr .eq. 1 ) then |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
99 |
CTRL_MAP_INI_GENARR |
elseif ( iarr .eq. 2 ) 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 |
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 |
145 |
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 |
153 |
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_check.F |
104 |
CTRL_CHECK |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_check.F |
105 |
CTRL_CHECK |
if (((xx_gentim2d_weight(iarr).NE.' ').AND. |
|
./pkg/ctrl/ctrl_check.F |
106 |
CTRL_CHECK |
& (xx_gentim2d_file(iarr).EQ.' ')).OR. |
|
./pkg/ctrl/ctrl_check.F |
107 |
CTRL_CHECK |
& ((xx_gentim2d_weight(iarr).EQ.' ').AND. |
|
./pkg/ctrl/ctrl_check.F |
108 |
CTRL_CHECK |
& (xx_gentim2d_file(iarr).NE.' '))) then |
|
./pkg/ctrl/ctrl_check.F |
40 |
CTRL_CHECK |
integer iarr |
|
./pkg/ctrl/ctrl_check.F |
74 |
CTRL_CHECK |
do iarr = 1, maxCtrlArr2D |
|
./pkg/ctrl/ctrl_check.F |
75 |
CTRL_CHECK |
if (((xx_genarr2d_weight(iarr).NE.' ').AND. |
|
./pkg/ctrl/ctrl_check.F |
76 |
CTRL_CHECK |
& (xx_genarr2d_file(iarr).EQ.' ')).OR. |
|
./pkg/ctrl/ctrl_check.F |
77 |
CTRL_CHECK |
& ((xx_genarr2d_weight(iarr).EQ.' ').AND. |
|
./pkg/ctrl/ctrl_check.F |
78 |
CTRL_CHECK |
& (xx_genarr2d_file(iarr).NE.' '))) then |
|
./pkg/ctrl/ctrl_check.F |
89 |
CTRL_CHECK |
do iarr = 1, maxCtrlArr3D |
|
./pkg/ctrl/ctrl_check.F |
90 |
CTRL_CHECK |
if (((xx_genarr3d_weight(iarr).NE.' ').AND. |
|
./pkg/ctrl/ctrl_check.F |
91 |
CTRL_CHECK |
& (xx_genarr3d_file(iarr).EQ.' ')).OR. |
|
./pkg/ctrl/ctrl_check.F |
92 |
CTRL_CHECK |
& ((xx_genarr3d_weight(iarr).EQ.' ').AND. |
|
./pkg/ctrl/ctrl_check.F |
93 |
CTRL_CHECK |
& (xx_genarr3d_file(iarr).NE.' '))) then |
|
./pkg/ctrl/ctrl_cost_driver.F |
104 |
CTRL_COST_DRIVER |
if (xx_genarr2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_cost_driver.F |
107 |
CTRL_COST_DRIVER |
& xx_genarr2d_file(iarr),xx_genarr2d_dummy(iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
108 |
CTRL_COST_DRIVER |
& zeroRL, wgenarr2d(1-Olx,1-Oly,1,1,iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
110 |
CTRL_COST_DRIVER |
& num_genarr2d(1,1,iarr), objf_genarr2d(1,1,iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
123 |
CTRL_COST_DRIVER |
do iarr = 1, maxCtrlArr3D |
|
./pkg/ctrl/ctrl_cost_driver.F |
127 |
CTRL_COST_DRIVER |
if (xx_genarr3d_preproc(k2,iarr).EQ.'noscaling') then |
|
./pkg/ctrl/ctrl_cost_driver.F |
132 |
CTRL_COST_DRIVER |
if (xx_genarr3d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_cost_driver.F |
134 |
CTRL_COST_DRIVER |
& xx_genarr3d_file(iarr),xx_genarr3d_dummy(iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
135 |
CTRL_COST_DRIVER |
& wgenarr3d(1-Olx,1-Oly,1,1,1,iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
137 |
CTRL_COST_DRIVER |
& num_genarr3d(1,1,iarr), objf_genarr3d(1,1,iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
46 |
CTRL_COST_DRIVER |
integer iarr |
|
./pkg/ctrl/ctrl_cost_driver.F |
57 |
CTRL_COST_DRIVER |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_cost_driver.F |
61 |
CTRL_COST_DRIVER |
if (xx_gentim2d_preproc(k2,iarr).EQ.'noscaling') then |
|
./pkg/ctrl/ctrl_cost_driver.F |
66 |
CTRL_COST_DRIVER |
if (xx_gentim2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_cost_driver.F |
67 |
CTRL_COST_DRIVER |
startrec = ncvarrecstart(300+iarr) |
|
./pkg/ctrl/ctrl_cost_driver.F |
68 |
CTRL_COST_DRIVER |
endrec = ncvarrecsend(300+iarr) |
|
./pkg/ctrl/ctrl_cost_driver.F |
70 |
CTRL_COST_DRIVER |
if (xx_gentim2d_preproc(k2,iarr).EQ.'replicate') then |
|
./pkg/ctrl/ctrl_cost_driver.F |
71 |
CTRL_COST_DRIVER |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) then |
|
./pkg/ctrl/ctrl_cost_driver.F |
72 |
CTRL_COST_DRIVER |
endrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
|
./pkg/ctrl/ctrl_cost_driver.F |
78 |
CTRL_COST_DRIVER |
& xx_gentim2d_file(iarr),xx_gentim2d_dummy(iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
79 |
CTRL_COST_DRIVER |
& xx_gentim2d_period(iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
80 |
CTRL_COST_DRIVER |
& wgentim2d(1-Olx,1-Oly,1,1,iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
82 |
CTRL_COST_DRIVER |
& num_gentim2d(1,1,iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
83 |
CTRL_COST_DRIVER |
& objf_gentim2d(1,1,iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
85 |
CTRL_COST_DRIVER |
& zeroRL, num_gentim2dm(1,1,iarr), objf_gentim2dm(1,1,iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
86 |
CTRL_COST_DRIVER |
& objf_gentim2dsmoo(1,1,iarr), zeroRL, zeroRL, |
|
./pkg/ctrl/ctrl_cost_driver.F |
95 |
CTRL_COST_DRIVER |
do iarr = 1, maxCtrlArr2D |
|
./pkg/ctrl/ctrl_cost_driver.F |
99 |
CTRL_COST_DRIVER |
if (xx_genarr2d_preproc(k2,iarr).EQ.'noscaling') then |
|
./pkg/ctrl/ctrl_init.F |
65 |
CTRL_INIT |
integer iarr |
|
./pkg/ctrl/ctrl_init.F |
824 |
CTRL_INIT |
do iarr = 1, maxCtrlArr2D |
|
./pkg/ctrl/ctrl_init.F |
826 |
CTRL_INIT |
if (xx_genarr2d_weight(iarr).NE.' ') |
|
./pkg/ctrl/ctrl_init.F |
831 |
CTRL_INIT |
& xx_genarr2d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_init.F |
832 |
CTRL_INIT |
& 100+iarr, 200+iarr, 1, 1, 1, |
|
./pkg/ctrl/ctrl_init.F |
841 |
CTRL_INIT |
do iarr = 1, maxCtrlArr3D |
|
./pkg/ctrl/ctrl_init.F |
843 |
CTRL_INIT |
if (xx_genarr3d_weight(iarr).NE.' ') |
|
./pkg/ctrl/ctrl_init.F |
848 |
CTRL_INIT |
& xx_genarr3d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_init.F |
849 |
CTRL_INIT |
& 200+iarr, 300+iarr, 1, 1, 1, |
|
./pkg/ctrl/ctrl_init.F |
857 |
CTRL_INIT |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_init.F |
860 |
CTRL_INIT |
if (xx_gentim2d_startdate1(iarr).EQ.0) then |
|
./pkg/ctrl/ctrl_init.F |
861 |
CTRL_INIT |
xx_gentim2d_startdate1(iarr)=startdate_1 |
|
./pkg/ctrl/ctrl_init.F |
862 |
CTRL_INIT |
xx_gentim2d_startdate2(iarr)=startdate_2 |
|
./pkg/ctrl/ctrl_init.F |
866 |
CTRL_INIT |
call CTRL_INIT_REC ( xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_init.F |
867 |
CTRL_INIT |
I xx_gentim2d_startdate1(iarr), |
|
./pkg/ctrl/ctrl_init.F |
868 |
CTRL_INIT |
I xx_gentim2d_startdate2(iarr), |
|
./pkg/ctrl/ctrl_init.F |
869 |
CTRL_INIT |
I xx_gentim2d_period(iarr), |
|
./pkg/ctrl/ctrl_init.F |
871 |
CTRL_INIT |
O xx_gentim2d_startdate(1,iarr), |
|
./pkg/ctrl/ctrl_init.F |
877 |
CTRL_INIT |
if (xx_gentim2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_init.F |
880 |
CTRL_INIT |
if (xx_gentim2d_preproc(k2,iarr).EQ.'replicate') |
|
./pkg/ctrl/ctrl_init.F |
881 |
CTRL_INIT |
& xx_gentim2d_preproc(k2,iarr)='docycle' |
|
./pkg/ctrl/ctrl_init.F |
882 |
CTRL_INIT |
if (xx_gentim2d_preproc(k2,iarr).EQ.'doglomean') |
|
./pkg/ctrl/ctrl_init.F |
883 |
CTRL_INIT |
& xx_gentim2d_glosum(iarr) = .TRUE. |
|
./pkg/ctrl/ctrl_init.F |
884 |
CTRL_INIT |
if (xx_gentim2d_preproc(k2,iarr).EQ.'documul') |
|
./pkg/ctrl/ctrl_init.F |
885 |
CTRL_INIT |
& xx_gentim2d_cumsum(iarr) = .TRUE. |
|
./pkg/ctrl/ctrl_init.F |
891 |
CTRL_INIT |
if (xx_gentim2d_preproc(k2,iarr).EQ.'docycle') then |
|
./pkg/ctrl/ctrl_init.F |
892 |
CTRL_INIT |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) then |
|
./pkg/ctrl/ctrl_init.F |
893 |
CTRL_INIT |
diffrec=min(diffrec,xx_gentim2d_preproc_i(k2,iarr)) |
|
./pkg/ctrl/ctrl_init.F |
894 |
CTRL_INIT |
endrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
|
./pkg/ctrl/ctrl_init.F |
899 |
CTRL_INIT |
ilgen=ilnblnk( xx_gentim2d_file(iarr) ) |
|
./pkg/ctrl/ctrl_init.F |
901 |
CTRL_INIT |
& xx_gentim2d_file(iarr)(1:ilgen),'.effective' |
|
./pkg/ctrl/ctrl_init.F |
904 |
CTRL_INIT |
& 300+iarr, 400+iarr, |
|
./pkg/ctrl/ctrl_init.F |
908 |
CTRL_INIT |
ilgen=ilnblnk( xx_gentim2d_file(iarr) ) |
|
./pkg/ctrl/ctrl_init.F |
910 |
CTRL_INIT |
& xx_gentim2d_file(iarr)(1:ilgen),'.tmp' |
|
./pkg/ctrl/ctrl_init.F |
913 |
CTRL_INIT |
& 300+iarr, 400+iarr, |
|
./pkg/ctrl/ctrl_init.F |
918 |
CTRL_INIT |
& xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_init.F |
919 |
CTRL_INIT |
& 300+iarr, 400+iarr, |
|
./pkg/ctrl/ctrl_map_forcing.F |
318 |
CTRL_MAP_FORCING |
DO iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_map_forcing.F |
319 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:5).EQ.'xx_fe') tmpUE |
|
./pkg/ctrl/ctrl_map_forcing.F |
320 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=tmpUE(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
321 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:5).EQ.'xx_fn') tmpVN |
|
./pkg/ctrl/ctrl_map_forcing.F |
322 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=tmpVN(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
340 |
CTRL_MAP_FORCING |
DO iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_map_forcing.F |
341 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:7).EQ.'xx_qnet') Qnet |
|
./pkg/ctrl/ctrl_map_forcing.F |
342 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=Qnet(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
343 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:8).EQ.'xx_empmr') EmPmR |
|
./pkg/ctrl/ctrl_map_forcing.F |
344 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=EmPmR(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
345 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:6).EQ.'xx_qsw') Qsw |
|
./pkg/ctrl/ctrl_map_forcing.F |
346 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=Qsw(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
347 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:6).EQ.'xx_sst') SST |
|
./pkg/ctrl/ctrl_map_forcing.F |
348 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=SST(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
349 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:6).EQ.'xx_sss') SSS |
|
./pkg/ctrl/ctrl_map_forcing.F |
350 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=SSS(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
351 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:8).EQ.'xx_pload') pLoad |
|
./pkg/ctrl/ctrl_map_forcing.F |
352 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=pLoad(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
353 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:11).EQ.'xx_saltflux') saltFlux |
|
./pkg/ctrl/ctrl_map_forcing.F |
354 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=saltFlux(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
355 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:5).EQ.'xx_fu') fu |
|
./pkg/ctrl/ctrl_map_forcing.F |
356 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=fu(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
357 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:5).EQ.'xx_fv') fv |
|
./pkg/ctrl/ctrl_map_forcing.F |
358 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=fv(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
58 |
CTRL_MAP_FORCING |
integer iarr |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
104 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_cumsum(iarr)) then |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
105 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
108 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
115 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_glosum(iarr)) then |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
125 |
CTRL_MAP_GENTIM2D |
& *xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
137 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(I,J,bi,bj,iarr) = |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
144 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_file(iarr).EQ.'xx_gen_precip') then |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
53 |
CTRL_MAP_GENTIM2D |
integer iarr |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
74 |
CTRL_MAP_GENTIM2D |
DO iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
86 |
CTRL_MAP_GENTIM2D |
if (xx_gentim2d_weight(iarr).NE.' ') |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
88 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM), |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
89 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_startdate(1,iarr), |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
90 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_period(iarr), |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
93 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d0(1-Olx,1-Oly,1,1,iarr), |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
94 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d1(1-Olx,1-Oly,1,1,iarr), |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
95 |
CTRL_MAP_GENTIM2D |
I xx_gentim2d_dummy(iarr), |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
97 |
CTRL_MAP_GENTIM2D |
I wgentim2d(1-Olx,1-Oly,1,1,iarr), |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
106 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr3D |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
107 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
108 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:8).EQ.'xx_theta') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
109 |
CTRL_MAP_INI_GENARR |
& igen_theta0=iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
110 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:7).EQ.'xx_salt') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
111 |
CTRL_MAP_INI_GENARR |
& igen_salt0=iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
112 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:8).EQ.'xx_kapgm') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
113 |
CTRL_MAP_INI_GENARR |
& igen_kapgm=iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
114 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:10).EQ.'xx_kapredi') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
115 |
CTRL_MAP_INI_GENARR |
& igen_kapredi=iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
116 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:9).EQ.'xx_diffkr') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
117 |
CTRL_MAP_INI_GENARR |
& igen_diffkr=iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
119 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:7).EQ.'xx_uvel') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
120 |
CTRL_MAP_INI_GENARR |
& igen_uvel0=iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
121 |
CTRL_MAP_INI_GENARR |
if (xx_genarr3d_file(iarr)(1:7).EQ.'xx_vvel') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
122 |
CTRL_MAP_INI_GENARR |
& igen_vvel0=iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
160 |
CTRL_MAP_GENARR2D |
SUBROUTINE CTRL_MAP_GENARR2D( fld, iarr, myThid ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
189 |
CTRL_MAP_GENARR2D |
INTEGER iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
236 |
CTRL_MAP_GENARR2D |
if (xx_genarr2d_preproc(k2,iarr).EQ.'WC01') then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
238 |
CTRL_MAP_GENARR2D |
if (xx_genarr2d_preproc_i(k2,iarr).NE.0) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
239 |
CTRL_MAP_GENARR2D |
& numsmo=xx_genarr2d_preproc_i(k2,iarr) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
242 |
CTRL_MAP_GENARR2D |
& (xx_genarr2d_preproc(k2,iarr).EQ.'smooth')) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
244 |
CTRL_MAP_GENARR2D |
if (xx_genarr2d_preproc_i(k2,iarr).NE.0) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
245 |
CTRL_MAP_GENARR2D |
& numsmo=xx_genarr2d_preproc_i(k2,iarr) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
247 |
CTRL_MAP_GENARR2D |
if (xx_genarr2d_preproc(k2,iarr).EQ.'noscaling') then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
252 |
CTRL_MAP_GENARR2D |
fnamebase = xx_genarr2d_file(iarr) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
259 |
CTRL_MAP_GENARR2D |
CALL MDS_READ_FIELD(xx_genarr2d_weight(iarr),ctrlprec,.FALSE., |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
260 |
CTRL_MAP_GENARR2D |
& 'RL',1,1,1,wgenarr2d(1-Olx,1-Oly,1,1,iarr),dummyRS,1,mythid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
264 |
CTRL_MAP_GENARR2D |
& ladinit, optimcycle, mythid, xx_genarr2d_dummy(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
283 |
CTRL_MAP_GENARR2D |
& (wgenarr2d(i,j,bi,bj,iarr).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
285 |
CTRL_MAP_GENARR2D |
& /sqrt( wgenarr2d(i,j,bi,bj,iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
298 |
CTRL_MAP_GENARR2D |
CALL CTRL_BOUND_2D(fld,maskC,xx_genarr2d_bounds(1,iarr),myThid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
315 |
CTRL_MAP_GENARR3D |
SUBROUTINE CTRL_MAP_GENARR3D( fld, iarr, myThid ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
344 |
CTRL_MAP_GENARR3D |
INTEGER iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
394 |
CTRL_MAP_GENARR3D |
if (xx_genarr3d_preproc(k2,iarr).EQ.'WC01') then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
396 |
CTRL_MAP_GENARR3D |
if (xx_genarr3d_preproc_i(k2,iarr).NE.0) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
397 |
CTRL_MAP_GENARR3D |
& numsmo=xx_genarr3d_preproc_i(k2,iarr) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
400 |
CTRL_MAP_GENARR3D |
& (xx_genarr3d_preproc(k2,iarr).EQ.'smooth')) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
402 |
CTRL_MAP_GENARR3D |
if (xx_genarr3d_preproc_i(k2,iarr).NE.0) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
403 |
CTRL_MAP_GENARR3D |
& numsmo=xx_genarr3d_preproc_i(k2,iarr) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
405 |
CTRL_MAP_GENARR3D |
if (xx_genarr3d_preproc(k2,iarr).EQ.'noscaling') then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
410 |
CTRL_MAP_GENARR3D |
fnamebase = xx_genarr3d_file(iarr) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
417 |
CTRL_MAP_GENARR3D |
CALL MDS_READ_FIELD(xx_genarr3d_weight(iarr),ctrlprec,.FALSE., |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
418 |
CTRL_MAP_GENARR3D |
& 'RL',nR,1,nR,wgenarr3d(1-Olx,1-Oly,1,1,1,iarr),dummyRS,1,mythid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
422 |
CTRL_MAP_GENARR3D |
& ladinit, optimcycle, mythid, xx_genarr3d_dummy(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
437 |
CTRL_MAP_GENARR3D |
if (xx_genarr3d_file(iarr)(1:7).EQ.'xx_uvel') then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
439 |
CTRL_MAP_GENARR3D |
else if (xx_genarr3d_file(iarr)(1:7).EQ.'xx_vvel') then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
458 |
CTRL_MAP_GENARR3D |
& (wgenarr3d(i,j,k,bi,bj,iarr).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
460 |
CTRL_MAP_GENARR3D |
& /sqrt( wgenarr3d(i,j,k,bi,bj,iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
476 |
CTRL_MAP_GENARR3D |
& xx_genarr3d_bounds(1,iarr),myThid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
478 |
CTRL_MAP_GENARR3D |
CALL CTRL_BOUND_3D(fld,maskC,xx_genarr3d_bounds(1,iarr),myThid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
484 |
CTRL_MAP_GENARR3D |
if (xx_genarr3d_file(iarr)(1:7).NE.'xx_uvel'.AND. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
485 |
CTRL_MAP_GENARR3D |
& xx_genarr3d_file(iarr)(1:7).NE.'xx_vvel') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
51 |
CTRL_MAP_INI_GENARR |
integer iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
72 |
CTRL_MAP_INI_GENARR |
DO iarr = 1, maxCtrlArr2D |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
73 |
CTRL_MAP_INI_GENARR |
if (xx_genarr2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
74 |
CTRL_MAP_INI_GENARR |
if (xx_genarr2d_file(iarr)(1:7).EQ.'xx_etan') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
75 |
CTRL_MAP_INI_GENARR |
& igen_etan=iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
76 |
CTRL_MAP_INI_GENARR |
if (xx_genarr2d_file(iarr)(1:13).EQ.'xx_bottomdrag') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
77 |
CTRL_MAP_INI_GENARR |
& igen_bdrag=iarr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
78 |
CTRL_MAP_INI_GENARR |
if (xx_genarr2d_file(iarr)(1:13).EQ.'xx_geothermal') |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
79 |
CTRL_MAP_INI_GENARR |
& igen_geoth=iarr |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
104 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
107 |
CTRL_MAP_INI_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
109 |
CTRL_MAP_INI_GENTIM2D |
I xx_gentim2d_startdate1(iarr), |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
110 |
CTRL_MAP_INI_GENTIM2D |
I xx_gentim2d_startdate2(iarr), |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
111 |
CTRL_MAP_INI_GENTIM2D |
I xx_gentim2d_period(iarr), |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
113 |
CTRL_MAP_INI_GENTIM2D |
O xx_gentim2d_startdate(1,iarr), |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
123 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'WC01') then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
125 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
126 |
CTRL_MAP_INI_GENTIM2D |
& numsmo=xx_gentim2d_preproc_i(k2,iarr) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
129 |
CTRL_MAP_INI_GENTIM2D |
& (xx_gentim2d_preproc(k2,iarr).EQ.'smooth')) then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
131 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
132 |
CTRL_MAP_INI_GENTIM2D |
& numsmo=xx_gentim2d_preproc_i(k2,iarr) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
134 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'noscaling') then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
139 |
CTRL_MAP_INI_GENTIM2D |
fnamebase = xx_gentim2d_file(iarr) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
153 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'docycle') then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
154 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
155 |
CTRL_MAP_INI_GENTIM2D |
replicated_nrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
176 |
CTRL_MAP_INI_GENTIM2D |
& mythid, xx_gentim2d_dummy(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
182 |
CTRL_MAP_INI_GENTIM2D |
& mythid, xx_gentim2d_dummy(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
195 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'rmcycle') then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
196 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
197 |
CTRL_MAP_INI_GENTIM2D |
replicated_nrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
231 |
CTRL_MAP_INI_GENTIM2D |
& mythid, xx_gentim2d_dummy(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
247 |
CTRL_MAP_INI_GENTIM2D |
& mythid, xx_gentim2d_dummy(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
265 |
CTRL_MAP_INI_GENTIM2D |
& mythid, xx_gentim2d_dummy(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
272 |
CTRL_MAP_INI_GENTIM2D |
& mythid, xx_gentim2d_dummy(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
279 |
CTRL_MAP_INI_GENTIM2D |
& mythid, xx_gentim2d_dummy(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
300 |
CTRL_MAP_INI_GENTIM2D |
& mythid, xx_gentim2d_dummy(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
308 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'variaweight') jrec=irec |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
310 |
CTRL_MAP_INI_GENTIM2D |
CALL MDS_READ_FIELD( xx_gentim2d_weight(iarr),ctrlprec, |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
311 |
CTRL_MAP_INI_GENTIM2D |
& .FALSE.,'RL',1,1,1,wgentim2d(1-Olx,1-Oly,1,1,iarr), |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
327 |
CTRL_MAP_INI_GENTIM2D |
& (wgentim2d(i,j,bi,bj,iarr).GT.0.)) then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
329 |
CTRL_MAP_INI_GENTIM2D |
& /sqrt(wgentim2d(i,j,bi,bj,iarr)) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
341 |
CTRL_MAP_INI_GENTIM2D |
& xx_gentim2d_bounds(1,iarr),myThid) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
347 |
CTRL_MAP_INI_GENTIM2D |
& mythid, xx_gentim2d_dummy(iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
51 |
CTRL_MAP_INI_GENTIM2D |
integer iarr |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
97 |
CTRL_MAP_INI_GENTIM2D |
DO iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_pack.F |
748 |
CTRL_PACK |
do iarr = 1, maxCtrlArr2D |
|
./pkg/ctrl/ctrl_pack.F |
749 |
CTRL_PACK |
if (xx_genarr2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_pack.F |
750 |
CTRL_PACK |
call CTRL_SET_FNAME( xx_genarr2d_file(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
752 |
CTRL_PACK |
ivartype = 100+iarr |
|
./pkg/ctrl/ctrl_pack.F |
756 |
CTRL_PACK |
& cunit, ivartype, genarr2dPrecond(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
758 |
CTRL_PACK |
& xx_genarr2d_weight(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
765 |
CTRL_PACK |
do iarr = 1, maxCtrlArr3D |
|
./pkg/ctrl/ctrl_pack.F |
766 |
CTRL_PACK |
if (xx_genarr3d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_pack.F |
767 |
CTRL_PACK |
call CTRL_SET_FNAME( xx_genarr3d_file(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
769 |
CTRL_PACK |
ivartype = 200+iarr |
|
./pkg/ctrl/ctrl_pack.F |
774 |
CTRL_PACK |
& xx_genarr3d_weight(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
781 |
CTRL_PACK |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_pack.F |
782 |
CTRL_PACK |
if (xx_gentim2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_pack.F |
783 |
CTRL_PACK |
call CTRL_SET_FNAME( xx_gentim2d_file(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
785 |
CTRL_PACK |
ivartype = 300+iarr |
|
./pkg/ctrl/ctrl_pack.F |
789 |
CTRL_PACK |
& cunit, ivartype, gentim2dPrecond(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
791 |
CTRL_PACK |
& xx_gentim2d_weight(iarr), |
|
./pkg/ctrl/ctrl_pack.F |
97 |
CTRL_PACK |
integer iarr |
|
./pkg/ctrl/ctrl_readparms.F |
226 |
CTRL_READPARMS |
do iarr = 1, maxCtrlArr2D |
|
./pkg/ctrl/ctrl_readparms.F |
227 |
CTRL_READPARMS |
write(xx_genarr2d_file(iarr)(1:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
229 |
CTRL_READPARMS |
write(xx_genarr2d_file(iarr)(1:14),'(a,i2.2)') |
|
./pkg/ctrl/ctrl_readparms.F |
230 |
CTRL_READPARMS |
& 'xx_genarr2d_', iarr |
|
./pkg/ctrl/ctrl_readparms.F |
231 |
CTRL_READPARMS |
write(xx_genarr2d_file(iarr)(15:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
233 |
CTRL_READPARMS |
write(xx_genarr2d_weight(iarr)(1:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
234 |
CTRL_READPARMS |
genarr2dPrecond(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
235 |
CTRL_READPARMS |
mult_genarr2d(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
237 |
CTRL_READPARMS |
xx_genarr2d_bounds(jarr,iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
240 |
CTRL_READPARMS |
xx_genarr2d_preproc(jarr,iarr) = ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
241 |
CTRL_READPARMS |
xx_genarr2d_preproc_c(jarr,iarr) = ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
242 |
CTRL_READPARMS |
xx_genarr2d_preproc_i(jarr,iarr) = 0 |
|
./pkg/ctrl/ctrl_readparms.F |
243 |
CTRL_READPARMS |
xx_genarr2d_preproc_r(jarr,iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
247 |
CTRL_READPARMS |
do iarr = 1, maxCtrlArr3D |
|
./pkg/ctrl/ctrl_readparms.F |
248 |
CTRL_READPARMS |
write(xx_genarr3d_file(iarr)(1:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
250 |
CTRL_READPARMS |
write(xx_genarr3d_file(iarr)(1:14),'(a,i2.2)') |
|
./pkg/ctrl/ctrl_readparms.F |
251 |
CTRL_READPARMS |
& 'xx_genarr3d_', iarr |
|
./pkg/ctrl/ctrl_readparms.F |
252 |
CTRL_READPARMS |
write(xx_genarr3d_file(iarr)(15:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
254 |
CTRL_READPARMS |
write(xx_genarr3d_weight(iarr)(1:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
255 |
CTRL_READPARMS |
genarr3dPrecond(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
256 |
CTRL_READPARMS |
mult_genarr3d(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
258 |
CTRL_READPARMS |
xx_genarr3d_bounds(jarr,iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
261 |
CTRL_READPARMS |
xx_genarr3d_preproc(jarr,iarr) = ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
262 |
CTRL_READPARMS |
xx_genarr3d_preproc_c(jarr,iarr) = ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
263 |
CTRL_READPARMS |
xx_genarr3d_preproc_i(jarr,iarr) = 0 |
|
./pkg/ctrl/ctrl_readparms.F |
264 |
CTRL_READPARMS |
xx_genarr3d_preproc_r(jarr,iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
268 |
CTRL_READPARMS |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_readparms.F |
269 |
CTRL_READPARMS |
write(xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
271 |
CTRL_READPARMS |
write(xx_gentim2d_file(iarr)(1:14),'(a,i2.2)') |
|
./pkg/ctrl/ctrl_readparms.F |
272 |
CTRL_READPARMS |
& 'xx_gentim2d_', iarr |
|
./pkg/ctrl/ctrl_readparms.F |
273 |
CTRL_READPARMS |
write(xx_gentim2d_file(iarr)(15:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
275 |
CTRL_READPARMS |
write(xx_gentim2d_weight(iarr)(1:MAX_LEN_FNAM),'(a)') ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
276 |
CTRL_READPARMS |
xx_gentim2d_startdate1(iarr) = 0 |
|
./pkg/ctrl/ctrl_readparms.F |
277 |
CTRL_READPARMS |
xx_gentim2d_startdate2(iarr) = 0 |
|
./pkg/ctrl/ctrl_readparms.F |
278 |
CTRL_READPARMS |
xx_gentim2d_period(iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
279 |
CTRL_READPARMS |
xx_gentim2d_cumsum(iarr) = .FALSE. |
|
./pkg/ctrl/ctrl_readparms.F |
280 |
CTRL_READPARMS |
xx_gentim2d_glosum(iarr) = .FALSE. |
|
./pkg/ctrl/ctrl_readparms.F |
282 |
CTRL_READPARMS |
xx_gentim2d_preproc(jarr,iarr) = ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
283 |
CTRL_READPARMS |
xx_gentim2d_preproc_c(jarr,iarr) = ' ' |
|
./pkg/ctrl/ctrl_readparms.F |
284 |
CTRL_READPARMS |
xx_gentim2d_preproc_i(jarr,iarr) = 0 |
|
./pkg/ctrl/ctrl_readparms.F |
285 |
CTRL_READPARMS |
xx_gentim2d_preproc_r(jarr,iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
287 |
CTRL_READPARMS |
mult_gentim2d(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
288 |
CTRL_READPARMS |
gentim2dPrecond(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
290 |
CTRL_READPARMS |
xx_gentim2d_bounds(jarr,iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
65 |
CTRL_READPARMS |
integer iarr,jarr |
|
./pkg/ctrl/ctrl_summary.F |
394 |
CTRL_SUMMARY |
do iarr = 1, maxCtrlArr2D |
|
./pkg/ctrl/ctrl_summary.F |
395 |
CTRL_SUMMARY |
if (xx_genarr2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_summary.F |
398 |
CTRL_SUMMARY |
&' -> 2D control, genarr2d no. ',iarr, |
|
./pkg/ctrl/ctrl_summary.F |
403 |
CTRL_SUMMARY |
il = ILNBLNK( xx_genarr2d_file(iarr) ) |
|
./pkg/ctrl/ctrl_summary.F |
405 |
CTRL_SUMMARY |
&' file = ',xx_genarr2d_file(iarr)(1:il) |
|
./pkg/ctrl/ctrl_summary.F |
408 |
CTRL_SUMMARY |
il = ILNBLNK( xx_genarr2d_weight(iarr) ) |
|
./pkg/ctrl/ctrl_summary.F |
410 |
CTRL_SUMMARY |
&' weight = ',xx_genarr2d_weight(iarr)(1:il) |
|
./pkg/ctrl/ctrl_summary.F |
415 |
CTRL_SUMMARY |
if (xx_genarr2d_preproc(jarr,iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_summary.F |
416 |
CTRL_SUMMARY |
il = ilnblnk(xx_genarr2d_preproc(jarr,iarr)) |
|
./pkg/ctrl/ctrl_summary.F |
418 |
CTRL_SUMMARY |
& xx_genarr2d_preproc(jarr,iarr)(1:il) |
|
./pkg/ctrl/ctrl_summary.F |
430 |
CTRL_SUMMARY |
do iarr = 1, maxCtrlArr3D |
|
./pkg/ctrl/ctrl_summary.F |
431 |
CTRL_SUMMARY |
if (xx_genarr3d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_summary.F |
434 |
CTRL_SUMMARY |
&' -> 3d control, genarr3d no. ',iarr, |
|
./pkg/ctrl/ctrl_summary.F |
439 |
CTRL_SUMMARY |
il = ILNBLNK( xx_genarr3d_file(iarr) ) |
|
./pkg/ctrl/ctrl_summary.F |
441 |
CTRL_SUMMARY |
&' file = ',xx_genarr3d_file(iarr)(1:il) |
|
./pkg/ctrl/ctrl_summary.F |
444 |
CTRL_SUMMARY |
il = ILNBLNK( xx_genarr3d_weight(iarr) ) |
|
./pkg/ctrl/ctrl_summary.F |
446 |
CTRL_SUMMARY |
&' weight = ',xx_genarr3d_weight(iarr)(1:il) |
|
./pkg/ctrl/ctrl_summary.F |
451 |
CTRL_SUMMARY |
if (xx_genarr3d_preproc(jarr,iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_summary.F |
452 |
CTRL_SUMMARY |
il = ilnblnk(xx_genarr3d_preproc(jarr,iarr)) |
|
./pkg/ctrl/ctrl_summary.F |
454 |
CTRL_SUMMARY |
& xx_genarr3d_preproc(jarr,iarr)(1:il) |
|
./pkg/ctrl/ctrl_summary.F |
465 |
CTRL_SUMMARY |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_summary.F |
466 |
CTRL_SUMMARY |
if (xx_gentim2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_summary.F |
469 |
CTRL_SUMMARY |
&' -> time variable 2D control, gentim2d no. ',iarr, |
|
./pkg/ctrl/ctrl_summary.F |
474 |
CTRL_SUMMARY |
il = ILNBLNK( xx_gentim2d_file(iarr) ) |
|
./pkg/ctrl/ctrl_summary.F |
476 |
CTRL_SUMMARY |
&' file = ',xx_gentim2d_file(iarr)(1:il) |
|
./pkg/ctrl/ctrl_summary.F |
480 |
CTRL_SUMMARY |
il = ILNBLNK( xx_gentim2d_weight(iarr) ) |
|
./pkg/ctrl/ctrl_summary.F |
482 |
CTRL_SUMMARY |
&' weight = ',xx_gentim2d_weight(iarr)(1:il) |
|
./pkg/ctrl/ctrl_summary.F |
487 |
CTRL_SUMMARY |
call CAL_TIMEINTERVAL( xx_gentim2d_period(iarr), |
|
./pkg/ctrl/ctrl_summary.F |
496 |
CTRL_SUMMARY |
if (xx_gentim2d_preproc(jarr,iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_summary.F |
497 |
CTRL_SUMMARY |
il = ilnblnk(xx_gentim2d_preproc(jarr,iarr)) |
|
./pkg/ctrl/ctrl_summary.F |
499 |
CTRL_SUMMARY |
& xx_gentim2d_preproc(jarr,iarr)(1:il) |
|
./pkg/ctrl/ctrl_summary.F |
503 |
CTRL_SUMMARY |
if (xx_gentim2d_preproc_c(jarr,iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_summary.F |
504 |
CTRL_SUMMARY |
il = ilnblnk(xx_gentim2d_preproc_c(jarr,iarr)) |
|
./pkg/ctrl/ctrl_summary.F |
506 |
CTRL_SUMMARY |
& xx_gentim2d_preproc_c(jarr,iarr)(1:il) |
|
./pkg/ctrl/ctrl_summary.F |
511 |
CTRL_SUMMARY |
if (xx_gentim2d_preproc_i(jarr,iarr).NE.0) then |
|
./pkg/ctrl/ctrl_summary.F |
513 |
CTRL_SUMMARY |
& xx_gentim2d_preproc_i(jarr,iarr) |
|
./pkg/ctrl/ctrl_summary.F |
518 |
CTRL_SUMMARY |
if (xx_gentim2d_preproc_r(jarr,iarr).NE.0. _d 0) then |
|
./pkg/ctrl/ctrl_summary.F |
520 |
CTRL_SUMMARY |
& xx_gentim2d_preproc_r(jarr,iarr) |
|
./pkg/ctrl/ctrl_summary.F |
56 |
CTRL_SUMMARY |
INTEGER iarr, jarr |
|
./pkg/ctrl/ctrl_unpack.F |
836 |
CTRL_UNPACK |
do iarr = 1, maxCtrlArr2D |
|
./pkg/ctrl/ctrl_unpack.F |
837 |
CTRL_UNPACK |
if (xx_genarr2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_unpack.F |
838 |
CTRL_UNPACK |
call CTRL_SET_FNAME( xx_genarr2d_file(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
840 |
CTRL_UNPACK |
ivartype = 100+iarr |
|
./pkg/ctrl/ctrl_unpack.F |
844 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, genarr2dPrecond(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
846 |
CTRL_UNPACK |
& xx_genarr2d_weight(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
853 |
CTRL_UNPACK |
do iarr = 1, maxCtrlArr3D |
|
./pkg/ctrl/ctrl_unpack.F |
854 |
CTRL_UNPACK |
if (xx_genarr3d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_unpack.F |
855 |
CTRL_UNPACK |
call CTRL_SET_FNAME( xx_genarr3d_file(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
857 |
CTRL_UNPACK |
ivartype = 200+iarr |
|
./pkg/ctrl/ctrl_unpack.F |
862 |
CTRL_UNPACK |
& xx_genarr3d_weight(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
869 |
CTRL_UNPACK |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ctrl/ctrl_unpack.F |
870 |
CTRL_UNPACK |
if (xx_gentim2d_weight(iarr).NE.' ') then |
|
./pkg/ctrl/ctrl_unpack.F |
871 |
CTRL_UNPACK |
call CTRL_SET_FNAME( xx_gentim2d_file(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
873 |
CTRL_UNPACK |
ivartype = 300+iarr |
|
./pkg/ctrl/ctrl_unpack.F |
877 |
CTRL_UNPACK |
& lxxadxx, cunit, ivartype, gentim2dPrecond(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
879 |
CTRL_UNPACK |
& xx_gentim2d_weight(iarr), |
|
./pkg/ctrl/ctrl_unpack.F |
97 |
CTRL_UNPACK |
integer iarr |
|
./pkg/ecco/cost_averagesfields.F |
114 |
COST_AVERAGESFIELDS |
INTEGER iarr |
|
./pkg/ecco/cost_averagesfields.F |
219 |
COST_AVERAGESFIELDS |
do iarr = 1, maxCtrlTim2D |
|
./pkg/ecco/cost_averagesfields.F |
220 |
COST_AVERAGESFIELDS |
if (xx_gentim2d_file(iarr).EQ.'xx_gen_precip') |
|
./pkg/ecco/cost_averagesfields.F |
221 |
COST_AVERAGESFIELDS |
& genprecipGloH=xx_gentim2d(i,j,bi,bj,iarr) |