Changeset 2846 for palm/trunk/SOURCE


Ignore:
Timestamp:
Mar 1, 2018 8:48:47 AM (7 years ago)
Author:
raasch
Message:

FORTRAN bugfix for r2845

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_ocean.f90

    r2845 r2846  
    2525! ------------------
    2626! $Id$
     27! FORTRAN bugfix for r2845
     28!
     29! 2845 2018-03-01 08:32:34Z raasch
    2730! bugfix: set kinematic viscosity for sea water
    2831!
     
    8588
    8689    USE control_parameters,                                                    &
    87         ONLY:  g, prho_reference, rho_surface, rho_reference,                  &
    88                surface_pressure, use_single_reference_value
     90        ONLY:  g, molecular_viscosity, prho_reference, rho_surface,            &
     91               rho_reference, surface_pressure, use_single_reference_value
    8992
    9093    USE eqn_state_seawater_mod,                                                &
Note: See TracChangeset for help on using the changeset viewer.