Changeset 10366 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2018-12-03T12:26:33+01:00 (5 years ago)
- Location:
- branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90
r10308 r10366 28 28 jp_fabm_o2o, jp_fabm_o3c, & 29 29 jp_fabm_o3a, jp_fabm_o3ph, & 30 jp_fabm_o3pc , jp_fabm_xeps30 jp_fabm_o3pc 31 31 32 32 #if defined key_fabm -
branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/FABM/trcini_fabm.F90
r10308 r10366 18 18 USE trcsms_fabm 19 19 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 22 21 USE inputs_fabm,ONLY: initialize_inputs,link_inputs, & 23 22 type_input_variable,type_input_data,type_river_data, & … … 111 110 jp_fabm_o3ph = fabm_diag_index( 'O3_pH' ) 112 111 jp_fabm_o3pc = fabm_diag_index( 'O3_pCO2' ) 113 jp_fabm_xeps = fabm_diag_index( 'light_xEPS')114 112 115 113 IF (lwp) THEN … … 151 149 CALL write_25hourm_xml(xml_unit,model%horizontal_diagnostic_variables(jn)) 152 150 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" />'158 151 WRITE (xml_unit,1000) ' </field_group>' 159 152 … … 403 396 #endif 404 397 405 ! Initialise visibility406 visib(:,:,:) = 1.7 / fabm_get_bulk_diagnostic_data(model, jp_fabm_xeps)407 408 398 ! Log mapping of FABM states: 409 399 IF (lwp) THEN -
branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/FABM/trcsms_fabm.F90
r10308 r10366 37 37 38 38 USE fabm 39 USE par_fabm40 39 41 40 IMPLICIT NONE … … 119 118 CALL trc_bc_read ( kt ) ! tracers: surface and lateral Boundary Conditions 120 119 CALL trc_rnf_fabm ( kt ) ! River forcings 121 122 visib(:,:,:) = 1.7 / fabm_get_bulk_diagnostic_data(model, jp_fabm_xeps)123 120 124 121 IF( l_trdtrc ) THEN ! Save the trends in the mixed layer -
branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/FABM/trcwri_fabm.F90
r10308 r10366 81 81 INTEGER, INTENT( in ) :: kt 82 82 INTEGER :: jn 83 84 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zw3d85 83 86 84 #if defined key_tracer_budget … … 107 105 CALL iom_put( model%diagnostic_variables(jn)%name, fabm_get_bulk_diagnostic_data(model,jn)) 108 106 END DO 109 zw3d(:,:,:) = visib(:,:,:)*tmask(:,:,:) + 1.e+20*(1.0-tmask(:,:,:))110 CALL iom_put( 'visib', zw3d )111 107 112 108 ! write 2D diagnostics in the file -
branches/UKMO/AMM15_v3_6_STABLE_package_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/trc.F90
r10308 r10366 149 149 LOGICAL , PUBLIC :: ln_diatrc !: boolean term for additional diagnostic 150 150 INTEGER , PUBLIC :: nn_writedia !: frequency of additional outputs 151 #if defined key_fabm152 REAL(wp) , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: visib !: visibility153 #endif154 151 155 152 !! Biological trends … … 256 253 ! FABM <<<+++ 257 254 & ln_trc_sbc(jptra) , ln_trc_cbc(jptra) , ln_trc_obc(jptra) , & 258 & visib(jpi,jpj,jpk) , &259 255 #endif 260 256 #if defined key_bdy
Note: See TracChangeset
for help on using the changeset viewer.