Ignore:
Timestamp:
Feb 19, 2018 4:32:21 PM (3 years ago)
Author:
knoop
Message:

Preliminary gust module interface implemented

File:
1 edited

Legend:

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

    r2769 r2817  
    2525! -----------------
    2626! $Id$
     27! Preliminary gust module interface implemented
     28!
     29! 2769 2018-01-25 09:22:24Z raasch
    2730! bugfix for calculating number of required output time levels in case of output
    2831! at the beginning of a restart run
     
    514517        ONLY:  dx, dy, zu_s_inner, zw_w_inner
    515518
     519    USE gust_mod,                                                              &
     520        ONLY: gust_define_netcdf_grid, gust_module_enabled
     521
    516522    USE indices,                                                               &
    517523        ONLY:  nx, nxl, nxr, ny, nys, nyn, nz ,nzb, nzt
     
    934940
    935941!
     942!--                Check for gust module quantities
     943                   IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
     944                      CALL gust_define_netcdf_grid( domask(mid,av,i), found,   &
     945                                                    grid_x, grid_y, grid_z )
     946                   ENDIF
     947
     948!
    936949!--                Check for chemistry quantities                   
    937950                   IF ( .NOT. found  .AND.  air_chemistry )  THEN
     
    14731486                                                         grid_x, grid_y,       &
    14741487                                                         grid_z )
     1488                   ENDIF
     1489
     1490!--                Check for gust module quantities
     1491                   IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
     1492                      CALL gust_define_netcdf_grid( do3d(av,i), found, grid_x, &
     1493                                                    grid_y, grid_z )
    14751494                   ENDIF
    14761495
     
    21282147                                                         found, grid_x, grid_y,&
    21292148                                                         grid_z )
     2149                         ENDIF
     2150
     2151!
     2152!--                      Check for gust module quantities
     2153                         IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
     2154                            CALL gust_define_netcdf_grid( do2d(av,i), found,   &
     2155                                                          grid_x, grid_y,      &
     2156                                                          grid_z )
    21302157                         ENDIF
    21312158
     
    28512878
    28522879!
     2880!--                   Check for gust module quantities
     2881                      IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
     2882                         CALL gust_define_netcdf_grid( do2d(av,i), found,      &
     2883                                                       grid_x, grid_y, grid_z )
     2884                      ENDIF
     2885
     2886!
    28532887!--                   Check for chemistry quantities
    28542888                      IF ( .NOT. found  .AND.  air_chemistry )  THEN
     
    35203554
    35213555!
     3556!--                   Check for gust module quantities
     3557                      IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
     3558                         CALL gust_define_netcdf_grid( do2d(av,i), found,      &
     3559                                                       grid_x, grid_y, grid_z )
     3560                      ENDIF
     3561
     3562!
    35223563!--                   Check for chemistry quantities
    35233564                      IF ( .NOT. found  .AND.  air_chemistry )  THEN
Note: See TracChangeset for help on using the changeset viewer.