New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7599 – NEMO

Changeset 7599


Ignore:
Timestamp:
2017-01-23T16:12:59+01:00 (8 years ago)
Author:
timgraham
Message:

Fully working version

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  
    117117      </field_group> 
    118118 
    119       <field_group id="constant_fields" grid_ref="grid_T_2D" > 
     119      <field_group id="constant_fields" grid_ref="grid_T_2D" operation="once" > 
    120120         <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="%" /> 
    122122         <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" /> 
    125125         <field id="ahmt_blp" long_name="Ocean Momentum XY Biharmonic Diffusivity" standard_name="ocean_momentum_xy_biharmonic_diffusivity"  unit="m4 s-1" /> 
    126126         <field id="ahmt_lap" long_name="Ocean Momentum XY Laplacian Diffusivity" standard_name="ocean_momentum_xy_laplacian_diffusivity"  unit="m2 s-1" /> 
    127127         <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" units="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" /> 
    129129      </field_group> 
    130130 
  • branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90

    r7589 r7599  
    2929   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    3030   USE wrk_nemo        ! Memory Allocation 
     31   USE iom 
    3132   USE timing          ! Timing 
    3233 
     
    9192                ENDDO 
    9293             ENDDO 
    93              CALL iom_put("ahmt_blb", ztmp) 
     94             CALL iom_put("ahmt_blp", ztmp) 
    9495             CALL wrk_dealloc(jpi, jpj, ztmp) 
    9596          ENDIF 
  • branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90

    r7582 r7599  
    9191      IF( kt == nit000 ) THEN 
    9292      !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 
    9599         CALL iom_put( 'hfgeou', ztmp ) 
    96          wrk_dealloc(jpi, jpj, ztmp) 
     100         CALL wrk_dealloc(jpi, jpj, ztmp) 
    97101      ENDIF 
    98102 
  • branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90

    r7582 r7599  
    3131   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3232   USE wrk_nemo        ! Memory allocation 
     33   USE iom 
    3334   USE timing          ! Timing 
    3435 
     
    7879 
    7980#ifdef key_traldf_c2d 
    80       IF (kt == nit000) THEN 
    81          CALL iom_put( "aht2D", ahtw) 
     81      IF (kt == nit000)    CALL iom_put( "aht2D", ahtw) 
    8282#endif 
    8383 
Note: See TracChangeset for help on using the changeset viewer.