Ignore:
Timestamp:
Nov 22, 2018 11:24:52 AM (3 years ago)
Author:
gronemeier
Message:

renamed variable if to ivar; add variable description

File:
1 edited

Legend:

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

    r3302 r3554  
    2525! -----------------
    2626! $Id$
     27! add subroutine and variable description
     28!
     29! 3302 2018-10-03 02:39:40Z raasch
    2730! small message change
    2831!
     
    124127! Description:
    125128! ------------
    126 !> @todo Missing subroutine description.
     129!> Initialize vertical subsidence velocity w_subs.
    127130!------------------------------------------------------------------------------!
    128131    SUBROUTINE init_w_subsidence
     
    142145       IMPLICIT NONE
    143146
    144        INTEGER(iwp) ::  i !<
    145        INTEGER(iwp) ::  k !<
    146 
    147        REAL(wp)     ::  gradient   !<
    148        REAL(wp)     ::  ws_surface !<
     147       INTEGER(iwp) ::  i !< loop index
     148       INTEGER(iwp) ::  k !< loop index
     149
     150       REAL(wp)     ::  gradient   !< vertical gradient of subsidence velocity
     151       REAL(wp)     ::  ws_surface !< subsidence velocity at the surface
    149152
    150153       IF ( .NOT. ALLOCATED( w_subs ) )  THEN
     
    201204! Description:
    202205! ------------
    203 !> @todo Missing subroutine description.
     206!> Add effect of large-scale subsidence to variable.
    204207!------------------------------------------------------------------------------!
    205208    SUBROUTINE subsidence( tendency, var, var_init, ls_index )
     
    223226       IMPLICIT NONE
    224227 
    225        INTEGER(iwp) ::  i !<
    226        INTEGER(iwp) ::  j !<
    227        INTEGER(iwp) ::  k !<
    228        INTEGER(iwp) ::  ls_index !<
    229 
    230        REAL(wp)     ::  tmp_tend !<
    231        REAL(wp)     ::  tmp_grad !<
     228       INTEGER(iwp) ::  i        !< loop index
     229       INTEGER(iwp) ::  j        !< loop index
     230       INTEGER(iwp) ::  k        !< loop index
     231       INTEGER(iwp) ::  ls_index !< index of large-scale subsidence in sums_ls_l
     232
     233       REAL(wp)     ::  tmp_tend !< temporary tendency
     234       REAL(wp)     ::  tmp_grad !< temporary gradient
    232235   
    233        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  var      !<
    234        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  tendency !<
    235        REAL(wp), DIMENSION(nzb:nzt+1) ::  var_init                     !<
    236        REAL(wp), DIMENSION(nzb:nzt+1) ::  var_mod                      !<
     236       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  var      !< variable where to add subsidence
     237       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  tendency !< tendency of var
     238       REAL(wp), DIMENSION(nzb:nzt+1) ::  var_init                     !< initialization profile of var
     239       REAL(wp), DIMENSION(nzb:nzt+1) ::  var_mod                      !< modified profile of var
    237240
    238241       var_mod = var_init
     
    316319! Description:
    317320! ------------
    318 !> @todo Missing subroutine description.
     321!> Add effect of large-scale subsidence to variable.
    319322!------------------------------------------------------------------------------!
    320323 SUBROUTINE subsidence_ij( i, j, tendency, var, var_init, ls_index )
     
    337340       IMPLICIT NONE
    338341 
    339        INTEGER(iwp) ::  i !<
    340        INTEGER(iwp) ::  j !<
    341        INTEGER(iwp) ::  k !<
    342        INTEGER(iwp) ::  ls_index !<
    343 
    344        REAL(wp)     ::  tmp_tend !<
    345        REAL(wp)     ::  tmp_grad !<
     342       INTEGER(iwp) ::  i        !< loop variable
     343       INTEGER(iwp) ::  j        !< loop variable
     344       INTEGER(iwp) ::  k        !< loop variable
     345       INTEGER(iwp) ::  ls_index !< index of large-scale subsidence in sums_ls_l
     346
     347       REAL(wp)     ::  tmp_tend !< temporary tendency
     348       REAL(wp)     ::  tmp_grad !< temporary gradient
    346349   
    347        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  var      !<
    348        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  tendency !<
    349        REAL(wp), DIMENSION(nzb:nzt+1) ::  var_init                     !<
    350        REAL(wp), DIMENSION(nzb:nzt+1) ::  var_mod                      !<
     350       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  var      !< variable where to add subsidence
     351       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  tendency !< tendency of var
     352       REAL(wp), DIMENSION(nzb:nzt+1) ::  var_init                     !< initialization profile of var
     353       REAL(wp), DIMENSION(nzb:nzt+1) ::  var_mod                      !< modified profile of var
    351354
    352355       var_mod = var_init
Note: See TracChangeset for help on using the changeset viewer.