Skip to content

Commit

Permalink
Reduced the numbers of characters in a line
Browse files Browse the repository at this point in the history
  • Loading branch information
gustavo-marques committed Mar 20, 2018
1 parent 53004ec commit a101e49
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/parameterizations/vertical/MOM_cvmix_conv.F90
Original file line number Diff line number Diff line change
Expand Up @@ -149,8 +149,8 @@ subroutine calculate_cvmix_conv(h, tv, G, GV, CS, hbl)
type(verticalGrid_type), intent(in) :: GV !< Vertical grid structure.
real, dimension(SZI_(G),SZJ_(G),SZK_(G)), intent(in) :: h !< Layer thickness, in m or kg m-2.
type(thermo_var_ptrs), intent(in) :: tv !< Thermodynamics structure.
type(cvmix_conv_cs), pointer :: CS !< The control structure returned by a previous call to
!! CVMix_conv_init.
type(cvmix_conv_cs), pointer :: CS !< The control structure returned
!! by a previous call to CVMix_conv_init.
real, dimension(:,:), optional, pointer :: hbl!< Depth of ocean boundary layer (m)

! local variables
Expand Down

0 comments on commit a101e49

Please sign in to comment.