Changeset 3655 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Jan 7, 2019 4:51:22 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3650 r3655 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix: made unit intend INOUT 28 ! 29 ! 3650 2019-01-04 13:01:33Z kanani 27 30 ! Add restart routines for biometeorology 28 31 ! … … 484 487 485 488 486 CHARACTER (LEN=*), INTENT(IN) :: variable !< variable name487 CHARACTER (LEN=*), INTENT( OUT) :: unit !< physical unit of variable488 489 INTEGER(iwp), INTENT(IN) :: i !< ToDo: remove dummy argument, instead pass string from data_output490 INTEGER(iwp), INTENT(IN) :: ilen !< ToDo: remove dummy argument, instead pass string from data_output491 INTEGER(iwp), INTENT(IN) :: k !< ToDo: remove dummy argument, instead pass string from data_output489 CHARACTER (LEN=*), INTENT(IN) :: variable !< variable name 490 CHARACTER (LEN=*), INTENT(INOUT) :: unit !< physical unit of variable 491 492 INTEGER(iwp), INTENT(IN) :: i !< ToDo: remove dummy argument, instead pass string from data_output 493 INTEGER(iwp), INTENT(IN) :: ilen !< ToDo: remove dummy argument, instead pass string from data_output 494 INTEGER(iwp), INTENT(IN) :: k !< ToDo: remove dummy argument, instead pass string from data_output 492 495 493 496 IF ( unit == 'illegal' .AND. biometeorology ) THEN … … 712 715 fill_value ) 713 716 714 INTEGER(iwp), INTENT(IN) :: av!< flag for (non-)average output715 CHARACTER (LEN=*), INTENT(IN) :: variable!< variable name716 LOGICAL, INTENT( OUT) :: found!< flag if output variable is found717 CHARACTER (LEN=*), INTENT(INOUT) :: grid !< name of vertical grid718 CHARACTER (LEN=*), INTENT(IN) :: mode!< either 'xy', 'xz' or 'yz'719 LOGICAL, INTENT(OUT) :: two_d!< flag for 2D variables720 INTEGER(iwp), INTENT(IN) :: nzb_do!< vertical output index (bottom) (usually 0)721 INTEGER(iwp), INTENT(IN) :: nzt_do!< vertical output index (top) (usually nz_do3d)722 REAL(wp), INTENT(IN) :: fill_value !< to be removed717 INTEGER(iwp), INTENT(IN) :: av !< flag for (non-)average output 718 CHARACTER (LEN=*), INTENT(IN) :: variable !< variable name 719 LOGICAL, INTENT(INOUT) :: found !< flag if output variable is found 720 CHARACTER (LEN=*), INTENT(INOUT) :: grid !< name of vertical grid 721 CHARACTER (LEN=*), INTENT(IN) :: mode !< either 'xy', 'xz' or 'yz' 722 LOGICAL, INTENT(OUT) :: two_d !< flag for 2D variables 723 INTEGER(iwp), INTENT(IN) :: nzb_do !< vertical output index (bottom) (usually 0) 724 INTEGER(iwp), INTENT(IN) :: nzt_do !< vertical output index (top) (usually nz_do3d) 725 REAL(wp), INTENT(IN) :: fill_value !< to be removed 723 726 724 727 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(OUT) :: local_pf !< ToDo: can also be kind=sp … … 792 795 793 796 794 INTEGER(iwp), INTENT(IN) :: av !< flag for (non-)average output795 CHARACTER (LEN=*), INTENT(IN) :: variable !< variable name796 LOGICAL, INTENT( OUT) :: found !< flag if output variable is found797 REAL(wp), INTENT(IN) :: fill_value !< ToDo: refactor798 LOGICAL, INTENT(OUT) :: resorted !< flag if output has been resorted799 INTEGER(iwp), INTENT(IN) :: nzb_do !< vertical output index (bottom) (usually 0)800 INTEGER(iwp), INTENT(IN) :: nzt_do !< vertical output index (top) (usually nz_do3d)797 INTEGER(iwp), INTENT(IN) :: av !< flag for (non-)average output 798 CHARACTER (LEN=*), INTENT(IN) :: variable !< variable name 799 LOGICAL, INTENT(INOUT) :: found !< flag if output variable is found 800 REAL(wp), INTENT(IN) :: fill_value !< ToDo: refactor 801 LOGICAL, INTENT(OUT) :: resorted !< flag if output has been resorted 802 INTEGER(iwp), INTENT(IN) :: nzb_do !< vertical output index (bottom) (usually 0) 803 INTEGER(iwp), INTENT(IN) :: nzt_do !< vertical output index (top) (usually nz_do3d) 801 804 802 805 REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(OUT) :: local_pf
Note: See TracChangeset
for help on using the changeset viewer.