Ignore:
Timestamp:
2018-12-03T12:26:33+01:00 (23 months ago)
Author:
dford
Message:

Remove visibility, as now available through FABM, and switch from deprecated get_bulk to get_interior.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/FABM/trcini_fabm.F90

    r10308 r10366  
    1818   USE trcsms_fabm 
    1919   USE fabm_config,ONLY: fabm_create_model_from_yaml_file 
    20    USE fabm,ONLY: type_external_variable, fabm_initialize_library, & 
    21                   fabm_get_bulk_diagnostic_data 
     20   USE fabm,ONLY: type_external_variable, fabm_initialize_library 
    2221   USE inputs_fabm,ONLY: initialize_inputs,link_inputs, & 
    2322     type_input_variable,type_input_data,type_river_data, & 
     
    111110      jp_fabm_o3ph = fabm_diag_index( 'O3_pH' ) 
    112111      jp_fabm_o3pc = fabm_diag_index( 'O3_pCO2' ) 
    113       jp_fabm_xeps = fabm_diag_index( 'light_xEPS') 
    114112 
    115113      IF (lwp) THEN 
     
    151149            CALL write_25hourm_xml(xml_unit,model%horizontal_diagnostic_variables(jn)) 
    152150         END DO 
    153          WRITE (xml_unit,'(A)') '  <field id="visib" long_name="visibility" unit="m" default_value="1.e+20" grid_ref="grid_T_3D" />' 
    154          WRITE (xml_unit,'(A)') '  <field id="visib25h" long_name="visibility 25-hour mean" unit="m" default_value="1.e+20" grid_ref="grid_T_3D" />' 
    155          WRITE (xml_unit,'(A)') '  <field id="top_visib" long_name="Top-level visibility" unit="m" default_value="1.e+20" grid_ref="grid_T_2D" />' 
    156          WRITE (xml_unit,'(A)') '  <field id="mid_visib" long_name="Middle-level visibility" unit="m" default_value="1.e+20" grid_ref="grid_T_2D" />' 
    157          WRITE (xml_unit,'(A)') '  <field id="bot_visib" long_name="Bottom-level visibility" unit="m" default_value="1.e+20" grid_ref="grid_T_2D" />' 
    158151         WRITE (xml_unit,1000) ' </field_group>' 
    159152 
     
    403396#endif 
    404397 
    405       ! Initialise visibility 
    406       visib(:,:,:) = 1.7 / fabm_get_bulk_diagnostic_data(model, jp_fabm_xeps) 
    407  
    408398      ! Log mapping of FABM states: 
    409399      IF (lwp) THEN 
Note: See TracChangeset for help on using the changeset viewer.