Ignore:
Timestamp:
Jan 26, 2019 5:03:42 PM (5 years ago)
Author:
knoop
Message:

Moved user_define_netdf_grid into user_module.f90
Added module interface for the definition of additional timeseries

File:
1 edited

Legend:

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

    r3687 r3700  
    216216              radiation_parin,                                                 &
    217217              radiation_check_parameters,                                      &
     218              radiation_check_data_output_ts,                                  &
    218219              radiation_check_data_output_pr,                                  &
    219220              radiation_check_data_output,                                     &
     
    271272       ONLY:  user_parin,                                                      &
    272273              user_check_parameters,                                           &
     274              user_check_data_output_ts,                                       &
    273275              user_check_data_output_pr,                                       &
    274276              user_check_data_output,                                          &
     
    307309      module_interface_parin,                                                  &
    308310      module_interface_check_parameters,                                       &
     311      module_interface_check_data_output_ts,                                   &
    309312      module_interface_check_data_output_pr,                                   &
    310313      module_interface_check_data_output,                                      &
     
    334337      MODULE PROCEDURE module_interface_check_parameters
    335338   END INTERFACE module_interface_check_parameters
     339
     340   INTERFACE module_interface_check_data_output_ts
     341      MODULE PROCEDURE module_interface_check_data_output_ts
     342   END INTERFACE module_interface_check_data_output_ts
    336343
    337344   INTERFACE module_interface_check_data_output_pr
     
    481488! Description:
    482489! ------------
     490!> Check module-specific data output of timeseries
     491!------------------------------------------------------------------------------!
     492SUBROUTINE module_interface_check_data_output_ts( dots_max, dots_num, dots_label, dots_unit )
     493
     494
     495   INTEGER(iwp),      INTENT(IN)    ::  dots_max !< variable output array index
     496   INTEGER(iwp),      INTENT(INOUT)    ::  dots_num !< variable output array index
     497   CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT) :: dots_label
     498   CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT) :: dots_unit
     499
     500
     501   IF ( radiation )  THEN
     502      CALL radiation_check_data_output_ts( dots_max, dots_num, dots_label, dots_unit )
     503   ENDIF
     504
     505   CALL user_check_data_output_ts( dots_max, dots_num, dots_label, dots_unit )
     506
     507
     508END SUBROUTINE module_interface_check_data_output_ts
     509
     510
     511!------------------------------------------------------------------------------!
     512! Description:
     513! ------------
    483514!> Check module-specific data output of profiles
    484515!------------------------------------------------------------------------------!
     
    522553   IF ( unit == 'illegal' )  THEN
    523554      unit = '' ! ToDo: Seems like a hack. Find a general soultion!
    524       CALL user_check_data_output_pr( variable, var_count, unit )
     555      CALL user_check_data_output_pr( variable, var_count, unit, dopr_unit )
    525556   ENDIF
    526557
Note: See TracChangeset for help on using the changeset viewer.