Ignore:
Timestamp:
Jan 26, 2019 6:57:21 PM (2 years ago)
Author:
knoop
Message:

Added module switch for user_module.
User module is enabled as soon as the user_parameters namelist is found.

File:
1 edited

Legend:

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

    r3700 r3701  
    673673        ONLY: lsm_define_netcdf_grid, nzb_soil, nzt_soil, nzs, zs
    674674
    675     USE user,                                                                  &
    676         ONLY:  user_define_netcdf_grid
    677 
    678675    USE ocean_mod,                                                             &
    679676        ONLY:  ocean_define_netcdf_grid
     
    707704    USE urban_surface_mod,                                                     &
    708705        ONLY:  usm_define_netcdf_grid
     706
     707    USE user,                                                                  &
     708        ONLY:  user_module_enabled, user_define_netcdf_grid
    709709
    710710
     
    11601160!
    11611161!--                Now check for user-defined quantities
    1162                    IF ( .NOT. found )  THEN
     1162                   IF ( .NOT. found  .AND.  user_module_enabled )  THEN
    11631163                      CALL user_define_netcdf_grid( domask(mid,av,i), found,   &
    11641164                                                    grid_x, grid_y, grid_z )
     
    19221922!                   
    19231923!--                Check for user-defined quantities
    1924                    IF ( .NOT. found )  THEN
     1924                   IF ( .NOT. found  .AND.  user_module_enabled )  THEN
    19251925                      CALL user_define_netcdf_grid( do3d(av,i), found, grid_x, &
    19261926                                                    grid_y, grid_z )
     
    29002900!
    29012901!--                      Check for user-defined quantities
    2902                          IF ( .NOT. found )  THEN
     2902                         IF ( .NOT. found  .AND.  user_module_enabled )  THEN
    29032903                            CALL user_define_netcdf_grid( do2d(av,i), found,   &
    29042904                                                          grid_x, grid_y,      &
     
    37923792!
    37933793!--                   Check for user-defined quantities
    3794                       IF ( .NOT. found )  THEN
     3794                      IF ( .NOT. found  .AND.  user_module_enabled )  THEN
    37953795                         CALL user_define_netcdf_grid( do2d(av,i), found,      &
    37963796                                                       grid_x, grid_y, grid_z )
     
    46494649!
    46504650!--                   Check for user-defined quantities
    4651                       IF ( .NOT. found )  THEN
     4651                      IF ( .NOT. found  .AND.  user_module_enabled )  THEN
    46524652                         CALL user_define_netcdf_grid( do2d(av,i), found,      &
    46534653                                                       grid_x, grid_y, grid_z )
     
    59655965!--                Check for user-defined quantities (found, grid_x and grid_y
    59665966!--                are dummies)
    5967                    CALL user_define_netcdf_grid( data_output_sp(i), found,     &
    5968                                                  grid_x, grid_y, grid_z )
     5967                   IF ( user_module_enabled )  THEN
     5968                      CALL user_define_netcdf_grid( data_output_sp(i), found,  &
     5969                                                    grid_x, grid_y, grid_z )
     5970                   ENDIF
    59695971
    59705972             END SELECT
Note: See TracChangeset for help on using the changeset viewer.