MITgcm/adjoint/tamc_code_ecco.prot_with_gmredi_kpp

_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
_/                                                      _/
_/   T angent linear and                                _/
_/    A djoint                         Version 5.2.14   _/
_/     M odel                                           _/
_/      C ompiler                                       _/
_/                                                      _/
_/   Copyright (c) 1995-2000           Ralf Giering     _/
_/                                                      _/
_/   only for use at MIT EAPS Phys. Ocean., Cambridge   _/
_/                                                      _/
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

tamc_code_ecco.f:
 parsing subroutine ** grad_sigma **
 parsing subroutine ** calc_buoyancy **
 parsing subroutine ** calc_common_factors **
 parsing subroutine ** calc_diffusivity **
 parsing subroutine ** calc_div_ghat **
 parsing subroutine ** calc_grad_phi_surf **
 parsing subroutine ** calc_gs **
 parsing subroutine ** calc_gt **
 parsing subroutine ** calc_ivdc **
 parsing subroutine ** calc_mom_rhs **
 parsing subroutine ** calc_phi_hyd **
 parsing subroutine ** comm_stats **
 parsing subroutine ** convect **
 parsing subroutine ** convective_adjustment **
 parsing subroutine ** correction_step **
 parsing subroutine ** cycle_tracer **
 parsing function   ** different_multiple **
 parsing subroutine ** do_fields_blocking_exchanges **
 parsing subroutine ** do_the_model_io **
 parsing subroutine ** dynamics **
 parsing subroutine ** external_forcing_u **
 parsing subroutine ** external_forcing_v **
 parsing subroutine ** external_forcing_t **
 parsing subroutine ** external_forcing_s **
 parsing subroutine ** external_forcing_surf **
 parsing subroutine ** find_alpha **
 parsing subroutine ** find_beta **
 parsing subroutine ** find_rho **
 parsing subroutine ** freeze **
 parsing subroutine ** get_offline_fields **
 parsing subroutine ** impldiff **
 parsing subroutine ** ini_cartesian_grid **
 parsing subroutine ** ini_cg2d **
 parsing subroutine ** ini_communication_patterns **
 parsing subroutine ** ini_cori **
 parsing subroutine ** ini_depths **
 parsing subroutine ** ini_fields **
 parsing subroutine ** ini_forcing **
 parsing subroutine ** ini_grid **
 parsing subroutine ** ini_masks_etc **
 parsing subroutine ** ini_procs **
 parsing subroutine ** ini_psurf **
 parsing subroutine ** ini_salt **
 parsing subroutine ** ini_spherical_polar_grid **
 parsing subroutine ** ini_theta **
 parsing subroutine ** ini_uvel **
 parsing subroutine ** ini_vertical_grid **
 parsing subroutine ** ini_vvel **
 parsing subroutine ** ini_wvel **
 parsing subroutine ** initialise_varia **
 parsing subroutine ** integrate_for_w **
 parsing subroutine ** modeldata_example **
 parsing subroutine ** nml_filter **
 parsing subroutine ** packages_init_variables **
 parsing subroutine ** plot_field_xyrs **
 parsing subroutine ** plot_field_xyrl **
 parsing subroutine ** plot_field_xyzrs **
 parsing subroutine ** plot_field_xyzrl **
 parsing subroutine ** solve_for_pressure **
 parsing subroutine ** state_summary **
 parsing subroutine ** timestep **
 parsing subroutine ** the_correction_step **
 parsing subroutine ** the_main_sens **
 parsing subroutine ** timestep_tracer **
 parsing subroutine ** swfrac **
 parsing subroutine ** kpp_calc **
 parsing subroutine ** kpp_calc_diff **
 parsing subroutine ** kpp_do_diags **
 parsing subroutine ** kpp_init **
 parsing subroutine ** kpp_open_diags **
 parsing subroutine ** kppmix **
 parsing subroutine ** bldepth **
 parsing subroutine ** wscale **
 parsing subroutine ** ri_iwmix **
 parsing subroutine ** z121 **
 parsing subroutine ** kpp_smooth_horiz **
 parsing subroutine ** smooth_horiz **
 parsing subroutine ** blmix **
 parsing subroutine ** enhance **
 parsing subroutine ** statekpp **
 parsing subroutine ** kpp_transport_s **
 parsing subroutine ** kpp_transport_t **
 parsing subroutine ** gmredi_calc_diff **
 parsing subroutine ** gmredi_calc_tensor **
 parsing subroutine ** gmredi_calc_tensor_dummy **
 parsing subroutine ** gmredi_diags **
 parsing subroutine ** gmredi_init **
 parsing subroutine ** gmredi_rtransport **
 parsing subroutine ** gmredi_slope_limit **
 parsing subroutine ** gmredi_xtransport **
 parsing subroutine ** gmredi_ytransport **
 parsing subroutine ** ctrl_map_ini **
 parsing subroutine ** ctrl_map_forcing **
 parsing subroutine ** cost_final **
 parsing subroutine ** cost_init **
 parsing subroutine ** cost_test **

=========================================
 semantic analysis
=========================================

=========================================
 normalization
=========================================

=========================================
 control flow analysis
=========================================
control flow analysis of subroutine nml_filter
 ==> irreducible control flow graph

=========================================
 data dependence analysis
=========================================

=========================================
 global data flow analysis
=========================================
 determine required routines and statements for subroutine : the_main_sens
 dependent variable(s) = 
 fc

 determine dependent routines and statements :
 independent variable(s) = 
 xx_hflux_dummy xx_salt_dummy xx_sflux_dummy xx_sss_dummy xx_sst_dummy xx_tauu_dummy xx_tauv_dummy xx_theta_dummy

 the independent variable(s) are :
 xx_hflux_dummy xx_salt_dummy xx_sflux_dummy xx_sss_dummy xx_sst_dummy xx_tauu_dummy xx_tauv_dummy xx_theta_dummy

 the dependent variable(s) are   :
 fc

TAMC WARNING: toplevel routine overwrites the input variables:
 niter0

=========================================
 generate adjoint common blocks
=========================================
 original   common block (    2): controlvars_r
 derivative common block (    2): adcontrolvars_r
 original   common block (   14): cost_r
 derivative common block (    2): adcost_r
 original   common block (   10): ctrl_dummy
 derivative common block (    8): adctrl_dummy
 original   common block (    7): dynvars_cd
 derivative common block (    7): addynvars_cd
 original   common block (   14): dynvars_r
 derivative common block (   14): addynvars_r
 original   common block (    7): ffields
 derivative common block (    6): adffields
 original   common block (    3): gm_wtensor
 derivative common block (    3): adgm_wtensor
 original   common block (    5): kpp
 derivative common block (    5): adkpp
 original   common block (    1): kpp_short
 derivative common block (    1): adkpp_short
 original   common block (    5): tendency_forcing
 derivative common block (    4): adtendency_forcing

=========================================
 generate adjoint routines
=========================================
 begin generate adjoint computations of : the_main_sens
 begin generate adjoint computations of : cost_final
 end   generate adjoint computations of : cost_final
 begin generate adjoint computations of : cost_test
 end   generate adjoint computations of : cost_test
 begin generate adjoint computations of : do_fields_blocking_exchanges
 end   generate adjoint computations of : do_fields_blocking_exchanges
 begin generate adjoint computations of : the_correction_step
 begin generate adjoint computations of : convective_adjustment
 begin generate adjoint computations of : convect
 end   generate adjoint computations of : convect
 begin generate adjoint computations of : find_rho
 end   generate adjoint computations of : find_rho
 end   generate adjoint computations of : convective_adjustment
 begin generate adjoint computations of : cycle_tracer
 end   generate adjoint computations of : cycle_tracer
 begin generate adjoint computations of : correction_step
 end   generate adjoint computations of : correction_step
 begin generate adjoint computations of : calc_grad_phi_surf
 end   generate adjoint computations of : calc_grad_phi_surf
 end   generate adjoint computations of : the_correction_step
 begin generate adjoint computations of : solve_for_pressure
TAMC INFO    tamc_code_ecco.f:122841 : subroutine cg2d is self adjoint
TAMC WARNING tamc_code_ecco.f:122841 : self adjoint routine has more than one active input
TAMC WARNING tamc_code_ecco.f:122841 : adjoint input variable adcg2d_x will be reset
 begin generate adjoint computations of : calc_div_ghat
 end   generate adjoint computations of : calc_div_ghat
 end   generate adjoint computations of : solve_for_pressure
 begin generate adjoint computations of : dynamics
 begin generate adjoint computations of : impldiff
TAMC INFO DOLOOP_STMT tamc_code_ecco.f:67555 in impldiff
 handled as sequential loop, only flow dependencies for : gynm1
TAMC INFO DOLOOP_STMT tamc_code_ecco.f:67543 in impldiff
 handled as sequential loop, only flow dependencies for : gynm1
TAMC INFO DOLOOP_STMT tamc_code_ecco.f:67522 in impldiff
 handled as sequential loop, only flow dependencies for : bet
 end   generate adjoint computations of : impldiff
 begin generate adjoint computations of : timestep
 end   generate adjoint computations of : timestep
 begin generate adjoint computations of : calc_mom_rhs
 begin generate adjoint computations of : external_forcing_v
 end   generate adjoint computations of : external_forcing_v
 begin generate adjoint computations of : external_forcing_u
 end   generate adjoint computations of : external_forcing_u
 end   generate adjoint computations of : calc_mom_rhs
 begin generate adjoint computations of : calc_phi_hyd
 end   generate adjoint computations of : calc_phi_hyd
 begin generate adjoint computations of : freeze
 end   generate adjoint computations of : freeze
 begin generate adjoint computations of : timestep_tracer
 end   generate adjoint computations of : timestep_tracer
 begin generate adjoint computations of : calc_gs
 begin generate adjoint computations of : external_forcing_s
 end   generate adjoint computations of : external_forcing_s
 begin generate adjoint computations of : kpp_transport_s
 end   generate adjoint computations of : kpp_transport_s
 begin generate adjoint computations of : gmredi_rtransport
 end   generate adjoint computations of : gmredi_rtransport
 begin generate adjoint computations of : gmredi_ytransport
 end   generate adjoint computations of : gmredi_ytransport
 begin generate adjoint computations of : gmredi_xtransport
 end   generate adjoint computations of : gmredi_xtransport
 end   generate adjoint computations of : calc_gs
 begin generate adjoint computations of : calc_gt
 begin generate adjoint computations of : external_forcing_t
 end   generate adjoint computations of : external_forcing_t
 begin generate adjoint computations of : kpp_transport_t
 end   generate adjoint computations of : kpp_transport_t
 end   generate adjoint computations of : calc_gt
 begin generate adjoint computations of : calc_diffusivity
 begin generate adjoint computations of : kpp_calc_diff
 end   generate adjoint computations of : kpp_calc_diff
 begin generate adjoint computations of : gmredi_calc_diff
 end   generate adjoint computations of : gmredi_calc_diff
 end   generate adjoint computations of : calc_diffusivity
 begin generate adjoint computations of : calc_common_factors
 end   generate adjoint computations of : calc_common_factors
 begin generate adjoint computations of : kpp_calc
 begin generate adjoint computations of : swfrac
 end   generate adjoint computations of : swfrac
 begin generate adjoint computations of : kppmix
 begin generate adjoint computations of : enhance
 end   generate adjoint computations of : enhance
 begin generate adjoint computations of : blmix
 begin generate adjoint computations of : wscale
 end   generate adjoint computations of : wscale
 end   generate adjoint computations of : blmix
 begin generate adjoint computations of : bldepth
 end   generate adjoint computations of : bldepth
 begin generate adjoint computations of : ri_iwmix
 end   generate adjoint computations of : ri_iwmix
 end   generate adjoint computations of : kppmix
 begin generate adjoint computations of : kpp_smooth_horiz
 end   generate adjoint computations of : kpp_smooth_horiz
 begin generate adjoint computations of : statekpp
 begin generate adjoint computations of : find_beta
 end   generate adjoint computations of : find_beta
 begin generate adjoint computations of : find_alpha
 end   generate adjoint computations of : find_alpha
 end   generate adjoint computations of : statekpp
 end   generate adjoint computations of : kpp_calc
 begin generate adjoint computations of : gmredi_calc_tensor
 begin generate adjoint computations of : gmredi_slope_limit
 end   generate adjoint computations of : gmredi_slope_limit
 end   generate adjoint computations of : gmredi_calc_tensor
 begin generate adjoint computations of : gmredi_calc_tensor_dummy
 end   generate adjoint computations of : gmredi_calc_tensor_dummy
 begin generate adjoint computations of : external_forcing_surf
 end   generate adjoint computations of : external_forcing_surf
 begin generate adjoint computations of : calc_ivdc
 end   generate adjoint computations of : calc_ivdc
 begin generate adjoint computations of : grad_sigma
 end   generate adjoint computations of : grad_sigma
TAMC INFO     avoiding recomputation of : help_h
 begin generate adjoint computations of : integrate_for_w
 end   generate adjoint computations of : integrate_for_w
 end   generate adjoint computations of : dynamics
TAMC INFO    tamc_code_ecco.f:131666 : tape computations inserted
TAMC INFO    tamc_code_ecco.f:131666 : tape computations inserted
TAMC INFO    tamc_code_ecco.f:131642 : tape computations inserted
 begin generate adjoint computations of : ctrl_map_forcing
 end   generate adjoint computations of : ctrl_map_forcing
 begin generate adjoint computations of : initialise_varia
 begin generate adjoint computations of : packages_init_variables
 begin generate adjoint computations of : ctrl_map_ini
 end   generate adjoint computations of : ctrl_map_ini
 end   generate adjoint computations of : packages_init_variables
 end   generate adjoint computations of : initialise_varia
TAMC INFO    tamc_code_ecco.f:131666 : tape computations inserted
TAMC INFO    tamc_code_ecco.f:131666 : tape computations inserted
TAMC INFO    tamc_code_ecco.f:131642 : tape computations inserted
TAMC INFO     avoiding recomputation of : max_lev2
TAMC INFO     avoiding recomputation of : max_lev3
TAMC INFO     avoiding recomputation of : empmr,fu,fv,qnet,sss,sst
TAMC INFO     avoiding recomputation of : kmixcbm2,kmixcws1,kmixcws2,kmixcws3,kmixcws4,kpp_bldepth15,kpp_i1,kpp_r11,kpp_r12,kpp_r13,niter0,qsw
TAMC INFO    tamc_code_ecco.f:131573 : function and tape computations inserted
TAMC WARNING tamc_code_ecco.f:131688 : storing of variable uvel not necessary
TAMC WARNING tamc_code_ecco.f:131689 : storing of variable vvel not necessary
TAMC WARNING tamc_code_ecco.f:131673 : tape comlev1_kpp_sm not used
TAMC WARNING tamc_code_ecco.f:131573 : tape dummytape not used
TAMC WARNING tamc_code_ecco.f:150702 : tape z121tape not used
 end   generate adjoint computations of : the_main_sens

=========================================
 generate auxiliary routines
=========================================
 generate initialization of global adjoint variables
TAMC INFO      adjoint of common block variable fc not initialized
TAMC INFO      adjoint of common block variable xx_theta_dummy not initialized
TAMC INFO      adjoint of common block variable xx_salt_dummy not initialized
TAMC INFO      adjoint of common block variable xx_hflux_dummy not initialized
TAMC INFO      adjoint of common block variable xx_sflux_dummy not initialized
TAMC INFO      adjoint of common block variable xx_tauu_dummy not initialized
TAMC INFO      adjoint of common block variable xx_tauv_dummy not initialized
TAMC INFO      adjoint of common block variable xx_sss_dummy not initialized
TAMC INFO      adjoint of common block variable xx_sst_dummy not initialized

=========================================
 Fortran dialect transformations
=========================================

=========================================
 write modified and adjoint code
=========================================
tamc_code_ecco_ad.f:
 writing subroutine ** mdbldepth **
 writing subroutine ** adbldepth **
 writing subroutine ** mdblmix **
 writing subroutine ** adblmix **
 writing subroutine ** adcalc_common_factors **
 writing subroutine ** adcalc_diffusivity **
 writing subroutine ** adcalc_div_ghat **
 writing subroutine ** adcalc_grad_phi_surf **
 writing subroutine ** adcalc_gs **
 writing subroutine ** adcalc_gt **
 writing subroutine ** adcalc_ivdc **
 writing subroutine ** adcalc_mom_rhs **
 writing subroutine ** adcalc_phi_hyd **
 writing subroutine ** adconvect **
 writing subroutine ** mdconvective_adjustment **
 writing subroutine ** adconvective_adjustment **
 writing subroutine ** adcorrection_step **
 writing subroutine ** adcost_final **
 writing subroutine ** adcost_test **
 writing subroutine ** adctrl_map_forcing **
 writing subroutine ** adctrl_map_ini **
 writing subroutine ** adcycle_tracer **
 writing subroutine ** addo_fields_blocking_exchanges **
 writing subroutine ** mddynamics **
 writing subroutine ** addynamics **
 writing subroutine ** adenhance **
 writing subroutine ** adexternal_forcing_s **
 writing subroutine ** adexternal_forcing_surf **
 writing subroutine ** adexternal_forcing_t **
 writing subroutine ** adexternal_forcing_u **
 writing subroutine ** adexternal_forcing_v **
 writing subroutine ** adfind_alpha **
 writing subroutine ** adfind_beta **
 writing subroutine ** adfind_rho **
 writing subroutine ** adfreeze **
 writing subroutine ** adgmredi_calc_diff **
 writing subroutine ** adgmredi_calc_tensor **
 writing subroutine ** adgmredi_calc_tensor_dummy **
 writing subroutine ** adgmredi_rtransport **
 writing subroutine ** adgmredi_slope_limit **
 writing subroutine ** adgmredi_xtransport **
 writing subroutine ** adgmredi_ytransport **
 writing subroutine ** adgrad_sigma **
 writing subroutine ** adimpldiff **
 writing subroutine ** adinitialise_varia **
 writing subroutine ** adintegrate_for_w **
 writing subroutine ** mdkpp_calc **
 writing subroutine ** adkpp_calc **
 writing subroutine ** adkpp_calc_diff **
 writing subroutine ** adkpp_smooth_horiz **
 writing subroutine ** adkpp_transport_s **
 writing subroutine ** adkpp_transport_t **
 writing subroutine ** mdkppmix **
 writing subroutine ** adkppmix **
 writing subroutine ** adpackages_init_variables **
 writing subroutine ** adri_iwmix **
 writing subroutine ** adsolve_for_pressure **
 writing subroutine ** adstatekpp **
 writing subroutine ** adswfrac **
 writing subroutine ** mdthe_correction_step **
 writing subroutine ** adthe_correction_step **
 writing subroutine ** adthe_main_sens **
 writing subroutine ** adtimestep **
 writing subroutine ** adtimestep_tracer **
 writing subroutine ** adwscale **
 writing subroutine ** adzero **
1	heimbach	1.1	_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
2			_/ _/
3			_/ T angent linear and _/
4			_/ A djoint Version 5.2.14 _/
5			_/ M odel _/
6			_/ C ompiler _/
7			_/ _/
8			_/ Copyright (c) 1995-2000 Ralf Giering _/
9			_/ _/
10			_/ only for use at MIT EAPS Phys. Ocean., Cambridge _/
11			_/ _/
12			_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
13
14			tamc_code_ecco.f:
15			parsing subroutine grad_sigma
16			parsing subroutine calc_buoyancy
17			parsing subroutine calc_common_factors
18			parsing subroutine calc_diffusivity
19			parsing subroutine calc_div_ghat
20			parsing subroutine calc_grad_phi_surf
21			parsing subroutine calc_gs
22			parsing subroutine calc_gt
23			parsing subroutine calc_ivdc
24			parsing subroutine calc_mom_rhs
25			parsing subroutine calc_phi_hyd
26			parsing subroutine comm_stats
27			parsing subroutine convect
28			parsing subroutine convective_adjustment
29			parsing subroutine correction_step
30			parsing subroutine cycle_tracer
31			parsing function different_multiple
32			parsing subroutine do_fields_blocking_exchanges
33			parsing subroutine do_the_model_io
34			parsing subroutine dynamics
35			parsing subroutine external_forcing_u
36			parsing subroutine external_forcing_v
37			parsing subroutine external_forcing_t
38			parsing subroutine external_forcing_s
39			parsing subroutine external_forcing_surf
40			parsing subroutine find_alpha
41			parsing subroutine find_beta
42			parsing subroutine find_rho
43			parsing subroutine freeze
44			parsing subroutine get_offline_fields
45			parsing subroutine impldiff
46			parsing subroutine ini_cartesian_grid
47			parsing subroutine ini_cg2d
48			parsing subroutine ini_communication_patterns
49			parsing subroutine ini_cori
50			parsing subroutine ini_depths
51			parsing subroutine ini_fields
52			parsing subroutine ini_forcing
53			parsing subroutine ini_grid
54			parsing subroutine ini_masks_etc
55			parsing subroutine ini_procs
56			parsing subroutine ini_psurf
57			parsing subroutine ini_salt
58			parsing subroutine ini_spherical_polar_grid
59			parsing subroutine ini_theta
60			parsing subroutine ini_uvel
61			parsing subroutine ini_vertical_grid
62			parsing subroutine ini_vvel
63			parsing subroutine ini_wvel
64			parsing subroutine initialise_varia
65			parsing subroutine integrate_for_w
66			parsing subroutine modeldata_example
67			parsing subroutine nml_filter
68			parsing subroutine packages_init_variables
69			parsing subroutine plot_field_xyrs
70			parsing subroutine plot_field_xyrl
71			parsing subroutine plot_field_xyzrs
72			parsing subroutine plot_field_xyzrl
73			parsing subroutine solve_for_pressure
74			parsing subroutine state_summary
75			parsing subroutine timestep
76			parsing subroutine the_correction_step
77			parsing subroutine the_main_sens
78			parsing subroutine timestep_tracer
79			parsing subroutine swfrac
80			parsing subroutine kpp_calc
81			parsing subroutine kpp_calc_diff
82			parsing subroutine kpp_do_diags
83			parsing subroutine kpp_init
84			parsing subroutine kpp_open_diags
85			parsing subroutine kppmix
86			parsing subroutine bldepth
87			parsing subroutine wscale
88			parsing subroutine ri_iwmix
89			parsing subroutine z121
90			parsing subroutine kpp_smooth_horiz
91			parsing subroutine smooth_horiz
92			parsing subroutine blmix
93			parsing subroutine enhance
94			parsing subroutine statekpp
95			parsing subroutine kpp_transport_s
96			parsing subroutine kpp_transport_t
97			parsing subroutine gmredi_calc_diff
98			parsing subroutine gmredi_calc_tensor
99			parsing subroutine gmredi_calc_tensor_dummy
100			parsing subroutine gmredi_diags
101			parsing subroutine gmredi_init
102			parsing subroutine gmredi_rtransport
103			parsing subroutine gmredi_slope_limit
104			parsing subroutine gmredi_xtransport
105			parsing subroutine gmredi_ytransport
106			parsing subroutine ctrl_map_ini
107			parsing subroutine ctrl_map_forcing
108			parsing subroutine cost_final
109			parsing subroutine cost_init
110			parsing subroutine cost_test
111
112			=========================================
113			semantic analysis
114			=========================================
115
116			=========================================
117			normalization
118			=========================================
119
120			=========================================
121			control flow analysis
122			=========================================
123			control flow analysis of subroutine nml_filter
124			==> irreducible control flow graph
125
126			=========================================
127			data dependence analysis
128			=========================================
129
130			=========================================
131			global data flow analysis
132			=========================================
133			determine required routines and statements for subroutine : the_main_sens
134			dependent variable(s) =
135			fc
136
137			determine dependent routines and statements :
138			independent variable(s) =
139			xx_hflux_dummy xx_salt_dummy xx_sflux_dummy xx_sss_dummy xx_sst_dummy xx_tauu_dummy xx_tauv_dummy xx_theta_dummy
140
141			the independent variable(s) are :
142			xx_hflux_dummy xx_salt_dummy xx_sflux_dummy xx_sss_dummy xx_sst_dummy xx_tauu_dummy xx_tauv_dummy xx_theta_dummy
143
144			the dependent variable(s) are :
145			fc
146
147			TAMC WARNING: toplevel routine overwrites the input variables:
148			niter0
149
150			=========================================
151			generate adjoint common blocks
152			=========================================
153			original common block ( 2): controlvars_r
154			derivative common block ( 2): adcontrolvars_r
155			original common block ( 14): cost_r
156			derivative common block ( 2): adcost_r
157			original common block ( 10): ctrl_dummy
158			derivative common block ( 8): adctrl_dummy
159			original common block ( 7): dynvars_cd
160			derivative common block ( 7): addynvars_cd
161			original common block ( 14): dynvars_r
162			derivative common block ( 14): addynvars_r
163			original common block ( 7): ffields
164			derivative common block ( 6): adffields
165			original common block ( 3): gm_wtensor
166			derivative common block ( 3): adgm_wtensor
167			original common block ( 5): kpp
168			derivative common block ( 5): adkpp
169			original common block ( 1): kpp_short
170			derivative common block ( 1): adkpp_short
171			original common block ( 5): tendency_forcing
172			derivative common block ( 4): adtendency_forcing
173
174			=========================================
175			generate adjoint routines
176			=========================================
177			begin generate adjoint computations of : the_main_sens
178			begin generate adjoint computations of : cost_final
179			end generate adjoint computations of : cost_final
180			begin generate adjoint computations of : cost_test
181			end generate adjoint computations of : cost_test
182			begin generate adjoint computations of : do_fields_blocking_exchanges
183			end generate adjoint computations of : do_fields_blocking_exchanges
184			begin generate adjoint computations of : the_correction_step
185			begin generate adjoint computations of : convective_adjustment
186			begin generate adjoint computations of : convect
187			end generate adjoint computations of : convect
188			begin generate adjoint computations of : find_rho
189			end generate adjoint computations of : find_rho
190			end generate adjoint computations of : convective_adjustment
191			begin generate adjoint computations of : cycle_tracer
192			end generate adjoint computations of : cycle_tracer
193			begin generate adjoint computations of : correction_step
194			end generate adjoint computations of : correction_step
195			begin generate adjoint computations of : calc_grad_phi_surf
196			end generate adjoint computations of : calc_grad_phi_surf
197			end generate adjoint computations of : the_correction_step
198			begin generate adjoint computations of : solve_for_pressure
199			TAMC INFO tamc_code_ecco.f:122841 : subroutine cg2d is self adjoint
200			TAMC WARNING tamc_code_ecco.f:122841 : self adjoint routine has more than one active input
201			TAMC WARNING tamc_code_ecco.f:122841 : adjoint input variable adcg2d_x will be reset
202			begin generate adjoint computations of : calc_div_ghat
203			end generate adjoint computations of : calc_div_ghat
204			end generate adjoint computations of : solve_for_pressure
205			begin generate adjoint computations of : dynamics
206			begin generate adjoint computations of : impldiff
207			TAMC INFO DOLOOP_STMT tamc_code_ecco.f:67555 in impldiff
208			handled as sequential loop, only flow dependencies for : gynm1
209			TAMC INFO DOLOOP_STMT tamc_code_ecco.f:67543 in impldiff
210			handled as sequential loop, only flow dependencies for : gynm1
211			TAMC INFO DOLOOP_STMT tamc_code_ecco.f:67522 in impldiff
212			handled as sequential loop, only flow dependencies for : bet
213			end generate adjoint computations of : impldiff
214			begin generate adjoint computations of : timestep
215			end generate adjoint computations of : timestep
216			begin generate adjoint computations of : calc_mom_rhs
217			begin generate adjoint computations of : external_forcing_v
218			end generate adjoint computations of : external_forcing_v
219			begin generate adjoint computations of : external_forcing_u
220			end generate adjoint computations of : external_forcing_u
221			end generate adjoint computations of : calc_mom_rhs
222			begin generate adjoint computations of : calc_phi_hyd
223			end generate adjoint computations of : calc_phi_hyd
224			begin generate adjoint computations of : freeze
225			end generate adjoint computations of : freeze
226			begin generate adjoint computations of : timestep_tracer
227			end generate adjoint computations of : timestep_tracer
228			begin generate adjoint computations of : calc_gs
229			begin generate adjoint computations of : external_forcing_s
230			end generate adjoint computations of : external_forcing_s
231			begin generate adjoint computations of : kpp_transport_s
232			end generate adjoint computations of : kpp_transport_s
233			begin generate adjoint computations of : gmredi_rtransport
234			end generate adjoint computations of : gmredi_rtransport
235			begin generate adjoint computations of : gmredi_ytransport
236			end generate adjoint computations of : gmredi_ytransport
237			begin generate adjoint computations of : gmredi_xtransport
238			end generate adjoint computations of : gmredi_xtransport
239			end generate adjoint computations of : calc_gs
240			begin generate adjoint computations of : calc_gt
241			begin generate adjoint computations of : external_forcing_t
242			end generate adjoint computations of : external_forcing_t
243			begin generate adjoint computations of : kpp_transport_t
244			end generate adjoint computations of : kpp_transport_t
245			end generate adjoint computations of : calc_gt
246			begin generate adjoint computations of : calc_diffusivity
247			begin generate adjoint computations of : kpp_calc_diff
248			end generate adjoint computations of : kpp_calc_diff
249			begin generate adjoint computations of : gmredi_calc_diff
250			end generate adjoint computations of : gmredi_calc_diff
251			end generate adjoint computations of : calc_diffusivity
252			begin generate adjoint computations of : calc_common_factors
253			end generate adjoint computations of : calc_common_factors
254			begin generate adjoint computations of : kpp_calc
255			begin generate adjoint computations of : swfrac
256			end generate adjoint computations of : swfrac
257			begin generate adjoint computations of : kppmix
258			begin generate adjoint computations of : enhance
259			end generate adjoint computations of : enhance
260			begin generate adjoint computations of : blmix
261			begin generate adjoint computations of : wscale
262			end generate adjoint computations of : wscale
263			end generate adjoint computations of : blmix
264			begin generate adjoint computations of : bldepth
265			end generate adjoint computations of : bldepth
266			begin generate adjoint computations of : ri_iwmix
267			end generate adjoint computations of : ri_iwmix
268			end generate adjoint computations of : kppmix
269			begin generate adjoint computations of : kpp_smooth_horiz
270			end generate adjoint computations of : kpp_smooth_horiz
271			begin generate adjoint computations of : statekpp
272			begin generate adjoint computations of : find_beta
273			end generate adjoint computations of : find_beta
274			begin generate adjoint computations of : find_alpha
275			end generate adjoint computations of : find_alpha
276			end generate adjoint computations of : statekpp
277			end generate adjoint computations of : kpp_calc
278			begin generate adjoint computations of : gmredi_calc_tensor
279			begin generate adjoint computations of : gmredi_slope_limit
280			end generate adjoint computations of : gmredi_slope_limit
281			end generate adjoint computations of : gmredi_calc_tensor
282			begin generate adjoint computations of : gmredi_calc_tensor_dummy
283			end generate adjoint computations of : gmredi_calc_tensor_dummy
284			begin generate adjoint computations of : external_forcing_surf
285			end generate adjoint computations of : external_forcing_surf
286			begin generate adjoint computations of : calc_ivdc
287			end generate adjoint computations of : calc_ivdc
288			begin generate adjoint computations of : grad_sigma
289			end generate adjoint computations of : grad_sigma
290			TAMC INFO avoiding recomputation of : help_h
291			begin generate adjoint computations of : integrate_for_w
292			end generate adjoint computations of : integrate_for_w
293			end generate adjoint computations of : dynamics
294			TAMC INFO tamc_code_ecco.f:131666 : tape computations inserted
295			TAMC INFO tamc_code_ecco.f:131666 : tape computations inserted
296			TAMC INFO tamc_code_ecco.f:131642 : tape computations inserted
297			begin generate adjoint computations of : ctrl_map_forcing
298			end generate adjoint computations of : ctrl_map_forcing
299			begin generate adjoint computations of : initialise_varia
300			begin generate adjoint computations of : packages_init_variables
301			begin generate adjoint computations of : ctrl_map_ini
302			end generate adjoint computations of : ctrl_map_ini
303			end generate adjoint computations of : packages_init_variables
304			end generate adjoint computations of : initialise_varia
305			TAMC INFO tamc_code_ecco.f:131666 : tape computations inserted
306			TAMC INFO tamc_code_ecco.f:131666 : tape computations inserted
307			TAMC INFO tamc_code_ecco.f:131642 : tape computations inserted
308			TAMC INFO avoiding recomputation of : max_lev2
309			TAMC INFO avoiding recomputation of : max_lev3
310			TAMC INFO avoiding recomputation of : empmr,fu,fv,qnet,sss,sst
311			TAMC INFO avoiding recomputation of : kmixcbm2,kmixcws1,kmixcws2,kmixcws3,kmixcws4,kpp_bldepth15,kpp_i1,kpp_r11,kpp_r12,kpp_r13,niter0,qsw
312			TAMC INFO tamc_code_ecco.f:131573 : function and tape computations inserted
313			TAMC WARNING tamc_code_ecco.f:131688 : storing of variable uvel not necessary
314			TAMC WARNING tamc_code_ecco.f:131689 : storing of variable vvel not necessary
315			TAMC WARNING tamc_code_ecco.f:131673 : tape comlev1_kpp_sm not used
316			TAMC WARNING tamc_code_ecco.f:131573 : tape dummytape not used
317			TAMC WARNING tamc_code_ecco.f:150702 : tape z121tape not used
318			end generate adjoint computations of : the_main_sens
319
320			=========================================
321			generate auxiliary routines
322			=========================================
323			generate initialization of global adjoint variables
324			TAMC INFO adjoint of common block variable fc not initialized
325			TAMC INFO adjoint of common block variable xx_theta_dummy not initialized
326			TAMC INFO adjoint of common block variable xx_salt_dummy not initialized
327			TAMC INFO adjoint of common block variable xx_hflux_dummy not initialized
328			TAMC INFO adjoint of common block variable xx_sflux_dummy not initialized
329			TAMC INFO adjoint of common block variable xx_tauu_dummy not initialized
330			TAMC INFO adjoint of common block variable xx_tauv_dummy not initialized
331			TAMC INFO adjoint of common block variable xx_sss_dummy not initialized
332			TAMC INFO adjoint of common block variable xx_sst_dummy not initialized
333
334			=========================================
335			Fortran dialect transformations
336			=========================================
337
338			=========================================
339			write modified and adjoint code
340			=========================================
341			tamc_code_ecco_ad.f:
342			writing subroutine mdbldepth
343			writing subroutine adbldepth
344			writing subroutine mdblmix
345			writing subroutine adblmix
346			writing subroutine adcalc_common_factors
347			writing subroutine adcalc_diffusivity
348			writing subroutine adcalc_div_ghat
349			writing subroutine adcalc_grad_phi_surf
350			writing subroutine adcalc_gs
351			writing subroutine adcalc_gt
352			writing subroutine adcalc_ivdc
353			writing subroutine adcalc_mom_rhs
354			writing subroutine adcalc_phi_hyd
355			writing subroutine adconvect
356			writing subroutine mdconvective_adjustment
357			writing subroutine adconvective_adjustment
358			writing subroutine adcorrection_step
359			writing subroutine adcost_final
360			writing subroutine adcost_test
361			writing subroutine adctrl_map_forcing
362			writing subroutine adctrl_map_ini
363			writing subroutine adcycle_tracer
364			writing subroutine addo_fields_blocking_exchanges
365			writing subroutine mddynamics
366			writing subroutine addynamics
367			writing subroutine adenhance
368			writing subroutine adexternal_forcing_s
369			writing subroutine adexternal_forcing_surf
370			writing subroutine adexternal_forcing_t
371			writing subroutine adexternal_forcing_u
372			writing subroutine adexternal_forcing_v
373			writing subroutine adfind_alpha
374			writing subroutine adfind_beta
375			writing subroutine adfind_rho
376			writing subroutine adfreeze
377			writing subroutine adgmredi_calc_diff
378			writing subroutine adgmredi_calc_tensor
379			writing subroutine adgmredi_calc_tensor_dummy
380			writing subroutine adgmredi_rtransport
381			writing subroutine adgmredi_slope_limit
382			writing subroutine adgmredi_xtransport
383			writing subroutine adgmredi_ytransport
384			writing subroutine adgrad_sigma
385			writing subroutine adimpldiff
386			writing subroutine adinitialise_varia
387			writing subroutine adintegrate_for_w
388			writing subroutine mdkpp_calc
389			writing subroutine adkpp_calc
390			writing subroutine adkpp_calc_diff
391			writing subroutine adkpp_smooth_horiz
392			writing subroutine adkpp_transport_s
393			writing subroutine adkpp_transport_t
394			writing subroutine mdkppmix
395			writing subroutine adkppmix
396			writing subroutine adpackages_init_variables
397			writing subroutine adri_iwmix
398			writing subroutine adsolve_for_pressure
399			writing subroutine adstatekpp
400			writing subroutine adswfrac
401			writing subroutine mdthe_correction_step
402			writing subroutine adthe_correction_step
403			writing subroutine adthe_main_sens
404			writing subroutine adtimestep
405			writing subroutine adtimestep_tracer
406			writing subroutine adwscale
407			writing subroutine adzero