Symbol Description Uses
NONLIN_FRSURF 191



File Line number Procedure Code
./pkg/generic_advdiff/gad_calc_rhs.F 656 GAD_CALC_RHS
#ifdef NONLIN_FRSURF
./pkg/gridalt/gridalt_update.F 46 GRIDALT_UPDATE
#ifdef NONLIN_FRSURF
./model/inc/SURFACE.h 50 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/longstep/longstep_thermodynamics.F 247 LONGSTEP_THERMODYNAMICS
# if ((defined ALLOW_DEPTH_CONTROL)  (defined NONLIN_FRSURF))
./pkg/longstep/longstep_thermodynamics.F 387 LONGSTEP_THERMODYNAMICS
#  if ((defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL))  (defined ALLOW_GMREDI)
./pkg/longstep/longstep_thermodynamics.F 400 LONGSTEP_THERMODYNAMICS
# if (defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL)
./pkg/mom_common/mom_init_fixed.F 37 MOM_INIT_FIXED
#if (defined (NONLIN_FRSURF)  
./pkg/mom_common/mom_init_fixed.F 43 MOM_INIT_FIXED
#ifdef NONLIN_FRSURF
./pkg/mom_common/mom_u_sidedrag.F 116 MOM_U_SIDEDRAG
#ifdef NONLIN_FRSURF
./pkg/mom_common/mom_u_sidedrag.F 68 MOM_U_SIDEDRAG
#ifdef NONLIN_FRSURF
./model/src/calc_grad_phi_hyd.F 162 CALC_GRAD_PHI_HYD
#ifdef NONLIN_FRSURF
./model/src/calc_grad_phi_hyd.F 61 CALC_GRAD_PHI_HYD
#ifdef NONLIN_FRSURF
./model/src/calc_grad_phi_hyd.F 68 CALC_GRAD_PHI_HYD
#ifdef NONLIN_FRSURF
./pkg/mom_common/mom_v_sidedrag.F 113 MOM_V_SIDEDRAG
#ifdef NONLIN_FRSURF
./pkg/mom_common/mom_v_sidedrag.F 68 MOM_V_SIDEDRAG
#ifdef NONLIN_FRSURF
./pkg/mom_fluxform/MOM_FLUXFORM.h 4 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/mom_fluxform/mom_calc_rtrans.F 111 MOM_CALC_RTRANS
#ifdef NONLIN_FRSURF
./pkg/mom_fluxform/mom_calc_rtrans.F 53 MOM_CALC_RTRANS
#ifdef NONLIN_FRSURF
./pkg/mom_fluxform/mom_calc_rtrans.F 70 MOM_CALC_RTRANS
#ifdef NONLIN_FRSURF
./pkg/mom_fluxform/mom_fluxform.F 319 MOM_FLUXFORM
# ifdef NONLIN_FRSURF
./pkg/mom_fluxform/mom_fluxform.F 429 MOM_FLUXFORM
#ifdef NONLIN_FRSURF
./pkg/mom_fluxform/mom_fluxform.F 645 MOM_FLUXFORM
#ifdef NONLIN_FRSURF
./model/src/calc_gs.F 131 CALC_GS
# ifdef NONLIN_FRSURF
./model/src/calc_gs.F 212 CALC_GS
#ifdef NONLIN_FRSURF
./model/src/calc_gt.F 130 CALC_GT
# ifdef NONLIN_FRSURF
./model/src/calc_gt.F 211 CALC_GT
#ifdef NONLIN_FRSURF
./model/src/calc_gw.F 226 CALC_GW
#ifdef NONLIN_FRSURF
./pkg/monitor/mon_surfcor.F 135 MON_SURFCOR
#ifdef NONLIN_FRSURF
./pkg/monitor/mon_surfcor.F 62 MON_SURFCOR
#ifdef NONLIN_FRSURF
./model/src/calc_phi_hyd.F 193 CALC_PHI_HYD
#ifdef NONLIN_FRSURF
./model/src/calc_phi_hyd.F 309 CALC_PHI_HYD
#ifdef NONLIN_FRSURF
./model/src/calc_phi_hyd.F 348 CALC_PHI_HYD
#ifdef NONLIN_FRSURF
./model/src/calc_phi_hyd.F 431 CALC_PHI_HYD
#ifdef NONLIN_FRSURF
./model/src/calc_phi_hyd.F 475 CALC_PHI_HYD
#ifdef NONLIN_FRSURF
./model/src/calc_r_star.F 43 CALC_R_STAR
#ifdef NONLIN_FRSURF
./model/src/calc_surf_dr.F 40 CALC_SURF_DR
#ifdef NONLIN_FRSURF
./pkg/obcs/OBCS.h 334 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev1_dir.h 13 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev1_dir.h 27 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev1_dir.h 41 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev1_dir.h 55 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev2_dir.h 102 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev2_dir.h 118 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev2_dir.h 70 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev2_dir.h 86 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev3_dir.h 102 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev3_dir.h 118 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev3_dir.h 70 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev3_dir.h 86 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev4_dir.h 102 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev4_dir.h 118 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev4_dir.h 70 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_ad_check_lev4_dir.h 86 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_apply_eta.F 48 OBCS_APPLY_ETA
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_apply_r_star.F 30 OBCS_APPLY_R_STAR
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_apply_surf_dr.F 29 OBCS_APPLY_SURF_DR
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_calc.F 102 OBCS_CALC
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_calc.F 121 OBCS_CALC
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_calc.F 154 OBCS_CALC
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_calc.F 173 OBCS_CALC
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_calc.F 208 OBCS_CALC
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_calc.F 243 OBCS_CALC
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_calc_stevens.F 443 OBCS_CALC_STEVENS
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_calc_stevens.F 479 OBCS_CALC_STEVENS
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_external_fields_load.F 159 OBCS_EXTERNAL_FIELDS_LOAD
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_external_fields_load.F 190 OBCS_EXTERNAL_FIELDS_LOAD
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_external_fields_load.F 221 OBCS_EXTERNAL_FIELDS_LOAD
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_external_fields_load.F 252 OBCS_EXTERNAL_FIELDS_LOAD
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_external_fields_load.F 353 OBCS_EXTERNAL_FIELDS_LOAD
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_external_fields_load.F 379 OBCS_EXTERNAL_FIELDS_LOAD
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_external_fields_load.F 405 OBCS_EXTERNAL_FIELDS_LOAD
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_external_fields_load.F 431 OBCS_EXTERNAL_FIELDS_LOAD
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_external_fields_load.F 498 OBCS_EXTERNAL_FIELDS_LOAD
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_external_fields_load.F 524 OBCS_EXTERNAL_FIELDS_LOAD
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_external_fields_load.F 550 OBCS_EXTERNAL_FIELDS_LOAD
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_external_fields_load.F 576 OBCS_EXTERNAL_FIELDS_LOAD
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_external_fields_load.F 88 OBCS_EXTERNAL_FIELDS_LOAD
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_init_fixed.F 20 OBCS_INIT_FIXED
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_init_fixed.F 32 OBCS_INIT_FIXED
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_init_fixed.F 93 OBCS_INIT_FIXED
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_init_variables.F 155 OBCS_INIT_VARIABLES
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_prescribe_read.F 111 OBCS_PRESCRIBE_READ
#   ifdef NONLIN_FRSURF
./pkg/obcs/obcs_prescribe_read.F 138 OBCS_PRESCRIBE_READ
#   ifdef NONLIN_FRSURF
./pkg/obcs/obcs_prescribe_read.F 207 OBCS_PRESCRIBE_EXF_XZ
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_prescribe_read.F 265 OBCS_PRESCRIBE_EXF_XZ
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_prescribe_read.F 357 OBCS_PRESCRIBE_EXF_XZ
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_prescribe_read.F 441 OBCS_PRESCRIBE_EXF_YZ
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_prescribe_read.F 499 OBCS_PRESCRIBE_EXF_YZ
#ifdef NONLIN_FRSURF
./pkg/obcs/obcs_prescribe_read.F 57 OBCS_PRESCRIBE_READ
#   ifdef NONLIN_FRSURF
./pkg/obcs/obcs_prescribe_read.F 591 OBCS_PRESCRIBE_EXF_YZ
# ifdef NONLIN_FRSURF
./pkg/obcs/obcs_prescribe_read.F 84 OBCS_PRESCRIBE_READ
#   ifdef NONLIN_FRSURF
./model/src/cg3d.F 111 CG3D
#ifdef NONLIN_FRSURF
./model/src/cg3d.F 122 CG3D
#ifdef NONLIN_FRSURF
./model/src/cg3d.F 175 CG3D
#ifdef NONLIN_FRSURF
./model/src/cg3d.F 222 CG3D
#ifdef NONLIN_FRSURF
./model/src/cg3d.F 365 CG3D
#ifdef NONLIN_FRSURF
./model/src/cg3d.F 405 CG3D
#ifdef NONLIN_FRSURF
./model/src/cg3d.F 425 CG3D
#ifdef NONLIN_FRSURF
./model/src/cg3d.F 447 CG3D
#ifdef NONLIN_FRSURF
./model/src/cg3d.F 469 CG3D
#ifdef NONLIN_FRSURF
./pkg/ocn_compon_interf/ocn_store_my_data.F 65 OCN_STORE_MY_DATA
#ifdef NONLIN_FRSURF
./pkg/ptracers/ptracers_integrate.F 199 PTRACERS_INTEGRATE
#ifdef NONLIN_FRSURF
./model/src/diags_oceanic_surf_flux.F 124 DIAGS_OCEANIC_SURF_FLUX
#ifdef NONLIN_FRSURF
./model/src/diags_oceanic_surf_flux.F 151 DIAGS_OCEANIC_SURF_FLUX
#ifdef NONLIN_FRSURF
./model/src/diags_phi_rlow.F 134 DIAGS_PHI_RLOW
#ifdef NONLIN_FRSURF
./model/src/do_oceanic_phys.F 227 DO_OCEANIC_PHYS
#  ifdef NONLIN_FRSURF
./model/src/do_oceanic_phys.F 609 DO_OCEANIC_PHYS
# ifdef NONLIN_FRSURF
./pkg/seaice/seaice_ad_check_lev1_dir.h 11 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/seaice/seaice_ad_check_lev2_dir.h 10 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/seaice/seaice_ad_check_lev3_dir.h 10 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/seaice/seaice_ad_check_lev4_dir.h 10 NO PROCEDURE
#ifdef NONLIN_FRSURF
./model/src/dynamics.F 336 DYNAMICS
# if (defined NONLIN_FRSURF)  (defined ALLOW_MOM_FLUXFORM)
./model/src/dynamics.F 428 DYNAMICS
# ifdef NONLIN_FRSURF
./model/src/dynamics.F 511 DYNAMICS
# if (defined NONLIN_FRSURF)  (defined ALLOW_MOM_FLUXFORM)
./model/src/dynamics.F 536 DYNAMICS
#  ifdef NONLIN_FRSURF
./model/src/external_forcing_surf.F 117 EXTERNAL_FORCING_SURF
#ifdef NONLIN_FRSURF
./model/src/forward_step.F 362 FORWARD_STEP
# if (defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL)
./model/src/forward_step.F 395 FORWARD_STEP
# ifdef NONLIN_FRSURF
./model/src/forward_step.F 404 FORWARD_STEP
# if (defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL)
./model/src/forward_step.F 483 FORWARD_STEP
# if (defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL)
./model/src/forward_step.F 591 FORWARD_STEP
# if (defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL)
./model/src/forward_step.F 645 FORWARD_STEP
# if (defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL)
./model/src/forward_step.F 677 FORWARD_STEP
#ifdef NONLIN_FRSURF
./model/src/forward_step.F 795 FORWARD_STEP
# if (defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL)
./model/src/forward_step.F 814 FORWARD_STEP
# if (defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL)
./model/src/forward_step.F 82 FORWARD_STEP
# if (defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL)
./model/src/forward_step.F 844 FORWARD_STEP
#ifdef NONLIN_FRSURF
./model/src/freesurf_rescale_g.F 35 FREESURF_RESCALE_G
#ifdef NONLIN_FRSURF
./pkg/thsice/thsice_main.F 118 THSICE_MAIN
#ifdef NONLIN_FRSURF
./pkg/timeave/TIMEAVE_STATV.h 110 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/timeave/timeave_statv_write.F 104 TIMEAVE_STATV_WRITE
#ifdef NONLIN_FRSURF
./pkg/timeave/timeave_statv_write.F 184 TIMEAVE_STATV_WRITE
#ifdef NONLIN_FRSURF
./pkg/timeave/timeave_statv_write.F 280 TIMEAVE_STATV_WRITE
#ifdef NONLIN_FRSURF
./pkg/timeave/timeave_statvars.F 139 TIMEAVE_STATVARS
#ifdef NONLIN_FRSURF
./pkg/timeave/timeave_statvars.F 84 TIMEAVE_STATVARS
#ifdef NONLIN_FRSURF
./pkg/timeave/timeave_surf_flux.F 75 TIMEAVE_SURF_FLUX
#ifdef NONLIN_FRSURF
./pkg/timeave/timeave_surf_flux.F 97 TIMEAVE_SURF_FLUX
#ifdef NONLIN_FRSURF
./verification/OpenAD/code_oad_all/write_state.F 115 WRITE_STATE
#ifdef NONLIN_FRSURF
./verification/OpenAD/code_oad_all/write_state.F 144 WRITE_STATE
#ifdef NONLIN_FRSURF
./model/src/ini_nh_fields.F 92 INI_NH_FIELDS
#ifdef NONLIN_FRSURF
./model/src/ini_nlfs_vars.F 33 INI_NLFS_VARS
#ifdef NONLIN_FRSURF
./model/src/initialise_varia.F 229 INITIALISE_VARIA
#ifdef NONLIN_FRSURF
./model/src/initialise_varia.F 282 INITIALISE_VARIA
#ifdef NONLIN_FRSURF
./model/src/integr_continuity.F 205 INTEGR_CONTINUITY
# ifdef NONLIN_FRSURF
./model/src/integrate_for_w.F 115 INTEGRATE_FOR_W
#ifdef NONLIN_FRSURF
./model/src/load_fields_driver.F 169 LOAD_FIELDS_DRIVER
#ifdef NONLIN_FRSURF
./verification/offline_exf_seaice/code_ad/the_main_loop.F 171 THE_MAIN_LOOP
# ifdef NONLIN_FRSURF
./model/src/momentum_correction_step.F 149 MOMENTUM_CORRECTION_STEP
# ifdef NONLIN_FRSURF
./model/src/momentum_correction_step.F 167 MOMENTUM_CORRECTION_STEP
# ifdef NONLIN_FRSURF
./model/src/momentum_correction_step.F 50 MOMENTUM_CORRECTION_STEP
# ifdef NONLIN_FRSURF
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 117 EXTERNAL_FORCING_SURF
#ifdef NONLIN_FRSURF
./model/src/post_cg3d.F 81 POST_CG3D
#ifdef NONLIN_FRSURF
./model/src/pre_cg3d.F 123 PRE_CG3D
#ifdef NONLIN_FRSURF
./model/src/pre_cg3d.F 67 PRE_CG3D
#ifdef NONLIN_FRSURF
./model/src/read_pickup.F 178 READ_PICKUP
#ifdef NONLIN_FRSURF
./model/src/the_main_loop.F 200 THE_MAIN_LOOP
# ifdef NONLIN_FRSURF
./model/src/thermodynamics.F 354 THERMODYNAMICS
# if ((defined ALLOW_DEPTH_CONTROL)  (defined NONLIN_FRSURF))
./model/src/thermodynamics.F 573 THERMODYNAMICS
#  if ((defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL))  (defined ALLOW_GMREDI)
./model/src/thermodynamics.F 586 THERMODYNAMICS
# if (defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL)
./model/src/thermodynamics.F 614 THERMODYNAMICS
#  ifndef NONLIN_FRSURF
./model/src/thermodynamics.F 619 THERMODYNAMICS
# if (defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL)
./model/src/thermodynamics.F 651 THERMODYNAMICS
# if (defined NONLIN_FRSURF)  (defined ALLOW_ADAMSBASHFORTH_3)
./model/src/thermodynamics.F 663 THERMODYNAMICS
#  ifndef NONLIN_FRSURF
./model/src/thermodynamics.F 668 THERMODYNAMICS
# if (defined NONLIN_FRSURF)  (defined ALLOW_DEPTH_CONTROL)
./model/src/timestep.F 293 TIMESTEP
#ifdef NONLIN_FRSURF
./model/src/update_cg2d.F 46 UPDATE_CG2D
#ifdef NONLIN_FRSURF
./model/src/update_etah.F 106 UPDATE_ETAH
#ifdef NONLIN_FRSURF
./model/src/update_r_star.F 43 UPDATE_R_STAR
#ifdef NONLIN_FRSURF
./model/src/update_sigma.F 44 UPDATE_SIGMA
#ifdef NONLIN_FRSURF
./model/src/update_surf_dr.F 43 UPDATE_SURF_DR
#ifdef NONLIN_FRSURF
./model/src/write_state.F 115 WRITE_STATE
#ifdef NONLIN_FRSURF
./model/src/write_state.F 147 WRITE_STATE
#ifdef NONLIN_FRSURF
./pkg/aim_v23/aim_aim2dyn.F 126 AIM_AIM2DYN
#ifdef NONLIN_FRSURF
./pkg/aim_v23/aim_dyn2aim.F 104 AIM_DYN2AIM
#ifdef NONLIN_FRSURF
./pkg/atm2d/get_ocnvars.F 77 GET_OCNVARS
#  ifdef NONLIN_FRSURF
./pkg/autodiff/checkpoint_lev1_directives.h 35 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/autodiff/checkpoint_lev2_directives.h 91 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/autodiff/checkpoint_lev3_directives.h 91 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/autodiff/checkpoint_lev4_directives.h 91 NO PROCEDURE
#ifdef NONLIN_FRSURF
./pkg/dic/car_flux.F 106 CAR_FLUX
#ifdef NONLIN_FRSURF
./pkg/dic/phos_flux.F 110 PHOS_FLUX
#ifdef NONLIN_FRSURF
./pkg/ecco/the_main_loop.F 255 THE_MAIN_LOOP
# ifdef NONLIN_FRSURF
./pkg/ecco/the_main_loop.F 503 THE_MAIN_LOOP
# ifdef NONLIN_FRSURF
./pkg/ecco/the_main_loop.F 579 THE_MAIN_LOOP
# ifdef NONLIN_FRSURF
./pkg/ecco/the_main_loop.F 601 THE_MAIN_LOOP
# ifdef NONLIN_FRSURF
./pkg/ecco/the_main_loop.F 666 THE_MAIN_LOOP
# ifdef NONLIN_FRSURF
./pkg/ecco/the_main_loop.F 685 THE_MAIN_LOOP
# ifdef NONLIN_FRSURF
./pkg/ecco/the_main_loop.F 713 THE_MAIN_LOOP
# ifdef NONLIN_FRSURF
./pkg/ecco/the_main_loop.F 745 THE_MAIN_LOOP
#ifdef NONLIN_FRSURF
./pkg/ecco/the_main_loop.F 832 THE_MAIN_LOOP
# ifdef NONLIN_FRSURF
./pkg/ecco/the_main_loop.F 877 THE_MAIN_LOOP
#ifdef NONLIN_FRSURF