Changeset 2301 for palm


Ignore:
Timestamp:
Jun 29, 2017 4:41:21 PM (4 years ago)
Author:
gronemeier
Message:

bigfix: adjust length of variable name

File:
1 edited

Legend:

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

    r2292 r2301  
    2525! -----------------
    2626! $Id$
     27! Bugfix: set variable name length to global value
     28!
     29!
    2730! Implementation of new microphysic scheme: cloud_scheme = 'morrison'
    2831! includes two more prognostic equations for cloud drop concentration (nc) 
     
    121124               mask_z_loop, max_masks,  message_string, mid,                   &
    122125               microphysics_morrison, microphysics_seifert, passive_scalar,    &
    123                ocean
     126               ocean, varnamelength
    124127
    125128    USE grid_variables,                                                        &
     
    141144    IMPLICIT NONE
    142145
    143     CHARACTER (LEN=6) ::  var  !<
     146    CHARACTER (LEN=varnamelength) ::  var  !<
    144147    CHARACTER (LEN=7) ::  unit !<
    145148   
    146     CHARACTER (LEN=10), DIMENSION(max_masks,100) ::  do_mask      !<
    147     CHARACTER (LEN=10), DIMENSION(max_masks,100) ::  do_mask_user !<
     149    CHARACTER (LEN=varnamelength), DIMENSION(max_masks,100) ::  do_mask      !<
     150    CHARACTER (LEN=varnamelength), DIMENSION(max_masks,100) ::  do_mask_user !<
    148151
    149152    INTEGER(iwp) ::  i            !<
Note: See TracChangeset for help on using the changeset viewer.