Skip to content

Commit

Permalink
Merge branch 'gcc_7_4_0_patch' of github.com:MJHarrison-GFDL/MOM6 int…
Browse files Browse the repository at this point in the history
…o gcc_7_4_0_patch
  • Loading branch information
MJHarrison-GFDL committed Oct 29, 2019
2 parents c4606e1 + 817bdde commit 8a52f40
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/diagnostics/MOM_diagnostics.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1860,7 +1860,7 @@ subroutine write_static_fields(G, GV, US, tv, diag)
! Local variables
integer :: id
logical :: use_temperature

id = register_static_field('ocean_model', 'geolat', diag%axesT1, &
'Latitude of tracer (T) points', 'degrees_north')
if (id > 0) call post_data(id, G%geoLatT, diag, .true.)
Expand Down Expand Up @@ -2012,15 +2012,15 @@ subroutine write_static_fields(G, GV, US, tv, diag)
cmor_long_name='reference sea water density for boussinesq approximation')
if (id > 0) call post_data(id, GV%Rho0, diag, .true.)

use_temperature = associated(tv%T)
use_temperature = associated(tv%T)
if (use_temperature) then
id = register_static_field('ocean_model','C_p', diag%axesNull, &
'heat capacity of sea water', 'J kg-1 K-1', cmor_field_name='cpocean', &
cmor_standard_name='specific_heat_capacity_of_sea_water', &
cmor_long_name='specific_heat_capacity_of_sea_water')
if (id > 0) call post_data(id, tv%C_p, diag, .true.)
endif

end subroutine write_static_fields


Expand Down

0 comments on commit 8a52f40

Please sign in to comment.