Ignore:
Timestamp:
Jan 7, 2019 4:51:22 PM (5 years ago)
Author:
knoop
Message:

Bugfix: made "unit" and "found" intend INOUT in module interface subroutines + automatic copyright update

File:
1 edited

Legend:

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

    r3650 r3655  
    2525! -----------------
    2626! $Id$
     27! Bugfix: made unit intend INOUT
     28!
     29! 3650 2019-01-04 13:01:33Z kanani
    2730! Add restart routines for biometeorology
    2831!
     
    484487
    485488
    486    CHARACTER (LEN=*), INTENT(IN)  ::  variable !< variable name
    487    CHARACTER (LEN=*), INTENT(OUT) ::  unit     !< physical unit of variable
    488 
    489    INTEGER(iwp),      INTENT(IN)  :: i         !< ToDo: remove dummy argument, instead pass string from data_output
    490    INTEGER(iwp),      INTENT(IN)  :: ilen      !< ToDo: remove dummy argument, instead pass string from data_output
    491    INTEGER(iwp),      INTENT(IN)  :: k         !< ToDo: remove dummy argument, instead pass string from data_output
     489   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
    492495
    493496   IF ( unit == 'illegal'  .AND.  biometeorology )  THEN
     
    712715                                            fill_value )
    713716
    714    INTEGER(iwp),      INTENT(IN)  ::  av       !< flag for (non-)average output
    715    CHARACTER (LEN=*), INTENT(IN)  ::  variable !< variable name
    716    LOGICAL,           INTENT(OUT) ::  found    !< flag if output variable is found
    717    CHARACTER (LEN=*), INTENT(INOUT) ::  grid     !< name of vertical grid
    718    CHARACTER (LEN=*), INTENT(IN)  ::  mode     !< either 'xy', 'xz' or 'yz'
    719    LOGICAL,           INTENT(OUT) ::  two_d    !< flag for 2D variables
    720    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 removed
     717   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
    723726
    724727   REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(OUT) ::  local_pf !< ToDo: can also be kind=sp
     
    792795
    793796
    794    INTEGER(iwp),      INTENT(IN)  ::  av         !< flag for (non-)average output
    795    CHARACTER (LEN=*), INTENT(IN)  ::  variable   !< variable name
    796    LOGICAL,           INTENT(OUT) ::  found      !< flag if output variable is found
    797    REAL(wp),          INTENT(IN)  ::  fill_value !< ToDo: refactor
    798    LOGICAL,           INTENT(OUT) ::  resorted   !< flag if output has been resorted
    799    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)
    801804
    802805   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.