Ignore:
Timestamp:
Aug 29, 2019 11:02:06 AM (5 years ago)
Author:
gronemeier
Message:

Consider rotation of model domain for claculation of Coriolis force:

  • check_parameters: Overwrite rotation_angle from namelist by value from static driver;
  • coriolis: Consider rotation of model domain;
  • header: Write information about rotation angle;
  • modules: Added rotation_angle;
  • netcdf_interface_mod: replaced rotation angle from input-netCDF file by namelist parameter 'rotation_angle';
  • ocean_mod: Consider rotation of model domain for calculating the Stokes drift;
  • parin: added rotation_angle to initialization_parameters;
File:
1 edited

Legend:

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

    r4183 r4196  
    2525! -----------------
    2626! 4172 2019-08-20 11:55:33Z oliver.maas
     27! Overwrite rotation_angle from namelist by value from static driver
     28!
     29! 11:55:33Z oliver.maas
    2730! removed conversion from recycle_absolute_quantities to raq, added check and
    2831! error message for correct input of recycling_method_for_thermodynamic_quantities
     
    10851088
    10861089!
    1087 !-- Overwrite latitude if necessary and compute Coriolis parameter.
     1090!-- Overwrite parameters from namelist if necessary and compute Coriolis parameter.
    10881091!-- @todo - move initialization of f and fs to coriolis_mod.
    10891092    IF ( input_pids_static )  THEN
    1090        latitude  = init_model%latitude
    1091        longitude = init_model%longitude
     1093       latitude       = init_model%latitude
     1094       longitude      = init_model%longitude
     1095       rotation_angle = init_model%rotation_angle
    10921096    ENDIF
    10931097
Note: See TracChangeset for help on using the changeset viewer.