Changeset 7599
- Timestamp:
- 2017-01-23T16:12:59+01:00 (8 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/CONFIG/SHARED/field_def.xml
r7585 r7599 117 117 </field_group> 118 118 119 <field_group id="constant_fields" grid_ref="grid_T_2D" >119 <field_group id="constant_fields" grid_ref="grid_T_2D" operation="once" > 120 120 <field id="areacello" long_name="Ocean Grid-Cell Area" standard_name="cell_area" unit="m2" /> 121 <field id="sftof" long_name="Sea Area Fraction" ,standard_name="sea_area_fraction" unit="%" />121 <field id="sftof" long_name="Sea Area Fraction" standard_name="sea_area_fraction" unit="%" /> 122 122 <field id="deptho" long_name="Sea Floor Depth Below Geoid" standard_name="sea_floor_depth_below_geoid" unit="m" /> 123 <field id="avtb" long_name="Ocean Vertical Tracer Diffusivity due to Background" standard_name="ocean_vertical_tracer_diffusivity_due_to_background" unit="m2 s-1" />124 <field id="avmb" long_name="Ocean Vertical Momentum Diffusivity due to Background" standard_name="ocean_vertical_momentum_diffusivity_due_to_background" unit="m2 s-1" />123 <field id="avtb" long_name="Ocean Vertical Tracer Diffusivity due to Background" standard_name="ocean_vertical_tracer_diffusivity_due_to_background" unit="m2 s-1" grid_ref="grid_T_3D" /> 124 <field id="avmb" long_name="Ocean Vertical Momentum Diffusivity due to Background" standard_name="ocean_vertical_momentum_diffusivity_due_to_background" unit="m2 s-1" grid_ref="grid_T_3D" /> 125 125 <field id="ahmt_blp" long_name="Ocean Momentum XY Biharmonic Diffusivity" standard_name="ocean_momentum_xy_biharmonic_diffusivity" unit="m4 s-1" /> 126 126 <field id="ahmt_lap" long_name="Ocean Momentum XY Laplacian Diffusivity" standard_name="ocean_momentum_xy_laplacian_diffusivity" unit="m2 s-1" /> 127 127 <field id="aht2D" long_name="ocean tracer epineutral laplacian diffusivity" standard_name="ocean_tracer_epineutral_laplacian_diffusivity" unit="m2 s-1" /> 128 <field id="hfgeou" long_name="Upward Geothermal Heat Flux at Sea Floor" standard_name="upward_geothermal_heat_flux_at_sea_floor" unit s="W m-2" />128 <field id="hfgeou" long_name="Upward Geothermal Heat Flux at Sea Floor" standard_name="upward_geothermal_heat_flux_at_sea_floor" unit="W m-2" /> 129 129 </field_group> 130 130 -
branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90
r7589 r7599 29 29 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 30 30 USE wrk_nemo ! Memory Allocation 31 USE iom 31 32 USE timing ! Timing 32 33 … … 91 92 ENDDO 92 93 ENDDO 93 CALL iom_put("ahmt_bl b", ztmp)94 CALL iom_put("ahmt_blp", ztmp) 94 95 CALL wrk_dealloc(jpi, jpj, ztmp) 95 96 ENDIF -
branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90
r7582 r7599 91 91 IF( kt == nit000 ) THEN 92 92 !Output the geothermal heat flux once for CMIP6 diagnostics 93 wrk_alloc(jpi, jpj, ztmp) 94 ztmp(:,:) = qgh_trd0(:,:)*rcp_rau0 93 CALL wrk_alloc(jpi, jpj, ztmp) 94 DO jj=1,jpj 95 DO ji=1,jpi 96 ztmp(ji,jj) = qgh_trd0(ji,jj)*rau0_rcp 97 ENDDO 98 ENDDO 95 99 CALL iom_put( 'hfgeou', ztmp ) 96 wrk_dealloc(jpi, jpj, ztmp)100 CALL wrk_dealloc(jpi, jpj, ztmp) 97 101 ENDIF 98 102 -
branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90
r7582 r7599 31 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 32 32 USE wrk_nemo ! Memory allocation 33 USE iom 33 34 USE timing ! Timing 34 35 … … 78 79 79 80 #ifdef key_traldf_c2d 80 IF (kt == nit000) THEN 81 CALL iom_put( "aht2D", ahtw) 81 IF (kt == nit000) CALL iom_put( "aht2D", ahtw) 82 82 #endif 83 83
Note: See TracChangeset
for help on using the changeset viewer.