Skip to content

Commit

Permalink
remove trailing whitespace
Browse files Browse the repository at this point in the history
  • Loading branch information
MJHarrison-GFDL committed Oct 25, 2019
1 parent 3c0d52a commit 817bdde
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 817bdde

Please sign in to comment.