Changeset 3735 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Feb 12, 2019 9:52:40 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3731 r3735 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! Add required restart data for surface output module22 ! 23 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Accepting variable j from check_parameters and passing it to 28 ! bio_check_data_output 29 ! Add required restart data for surface output module 30 ! 31 ! 3731 2019-02-11 13:06:27Z suehring 27 32 ! Add check_parameters routine for virtual measurements 28 33 ! … … 592 597 !> Check module-specific 2D and 3D data output 593 598 !------------------------------------------------------------------------------! 594 SUBROUTINE module_interface_check_data_output( variable, unit, i, ilen, k )599 SUBROUTINE module_interface_check_data_output( variable, unit, i, j, ilen, k ) 595 600 596 601 … … 599 604 600 605 INTEGER(iwp), INTENT(IN) :: i !< ToDo: remove dummy argument, instead pass string from data_output 606 INTEGER(iwp), INTENT(IN) :: j !< average quantity? 0 = no, 1 = yes 601 607 INTEGER(iwp), INTENT(IN) :: ilen !< ToDo: remove dummy argument, instead pass string from data_output 602 608 INTEGER(iwp), INTENT(IN) :: k !< ToDo: remove dummy argument, instead pass string from data_output 603 609 604 610 IF ( unit == 'illegal' .AND. biometeorology ) THEN 605 CALL bio_check_data_output( variable, unit, i, ilen, k )611 CALL bio_check_data_output( variable, unit, i, j, ilen, k ) 606 612 ENDIF 607 613
Note: See TracChangeset
for help on using the changeset viewer.