Ignore:
Timestamp:
Mar 3, 2015 2:18:16 PM (7 years ago)
Author:
maronga
Message:

land surface model released

File:
1 edited

Legend:

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

    r1497 r1551  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Increased pr_palm to 120. Increased length of dots_unit and dots_label to 13
     23! digits. Increased length of domask, do2d, and do3d to 20 digits.
    2324!
    2425! Former revisions:
     
    568569    CHARACTER (LEN=20), DIMENSION(11)  ::  netcdf_precision = ' '
    569570
    570     CHARACTER (LEN=10), DIMENSION(max_masks,0:1,100) ::  domask = ' '
    571     CHARACTER (LEN=10), DIMENSION(0:1,100) ::  do2d = ' ', do3d = ' '
     571    CHARACTER (LEN=20), DIMENSION(max_masks,0:1,100) ::  domask = ' '
     572    CHARACTER (LEN=20), DIMENSION(0:1,100) ::  do2d = ' ', do3d = ' '
    572573
    573574    INTEGER(iwp) ::  abort_mode = 1, average_count_pr = 0, average_count_sp = 0, &
     
    11081109    INTEGER(iwp) ::  dots_num = 23
    11091110
    1110     CHARACTER (LEN=6), DIMENSION(dopr_norm_num) ::  dopr_norm_names =   &
    1111          (/ 'wpt0  ', 'ws2   ', 'tsw2  ', 'ws3   ', 'ws2tsw', 'wstsw2', &
     1111    CHARACTER (LEN=6), DIMENSION(dopr_norm_num) ::  dopr_norm_names =          &
     1112         (/ 'wpt0  ', 'ws2   ', 'tsw2  ', 'ws3   ', 'ws2tsw', 'wstsw2',        &
    11121113            'z_i   ' /)
    11131114
    1114     CHARACTER (LEN=6), DIMENSION(dopr_norm_num) ::  dopr_norm_longnames = &
    1115          (/ 'wpt0  ', 'w*2   ', 't*w2  ', 'w*3   ', 'w*2t*w', 'w*t*w2',   &
     1115    CHARACTER (LEN=6), DIMENSION(dopr_norm_num) ::  dopr_norm_longnames =      &
     1116         (/ 'wpt0  ', 'w*2   ', 't*w2  ', 'w*3   ', 'w*2t*w', 'w*t*w2',        &
    11161117            'z_i   ' /)
    11171118
    1118     CHARACTER (LEN=7), DIMENSION(dopts_num) :: dopts_label = &
     1119    CHARACTER (LEN=7), DIMENSION(dopts_num) :: dopts_label =                   &
    11191120          (/ 'tnpt   ', 'x_     ', 'y_     ', 'z_     ', 'z_abs  ', 'u      ', &
    11201121             'v      ', 'w      ', 'u"     ', 'v"     ', 'w"     ', 'npt_up ', &
     
    11231124             'w*2    ', 'u"2    ', 'v"2    ', 'w"2    ', 'npt*2  ' /)
    11241125
    1125     CHARACTER (LEN=7), DIMENSION(dopts_num) :: dopts_unit = &
     1126    CHARACTER (LEN=7), DIMENSION(dopts_num) :: dopts_unit =                    &
    11261127          (/ 'number ', 'm      ', 'm      ', 'm      ', 'm      ', 'm/s    ', &
    11271128             'm/s    ', 'm/s    ', 'm/s    ', 'm/s    ', 'm/s    ', 'number ', &
     
    11301131             'm2/s2  ', 'm2/s2  ', 'm2/s2  ', 'm2/s2  ', 'number2' /)
    11311132
    1132     CHARACTER (LEN=7), DIMENSION(dots_max) :: dots_label = &
    1133           (/ 'E      ', 'E*     ', 'dt     ', 'u*     ', 'th*    ', 'umax   ', &
    1134              'vmax   ', 'wmax   ', 'div_new', 'div_old', 'z_i_wpt', 'z_i_pt ', &
    1135              'w*     ', 'w"pt"0 ', 'w"pt"  ', 'wpt    ', 'pt(0)  ', 'pt(zp) ', &
    1136              'w"u"0  ', 'w"v"0  ', 'w"q"0  ', 'mo_L   ', 'q*     ',            &
     1133    CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_label =                    &
     1134          (/ 'E            ', 'E*           ', 'dt           ',                &
     1135             'u*           ', 'th*          ', 'umax         ',                &
     1136             'vmax         ', 'wmax         ', 'div_new      ',                &
     1137             'div_old      ', 'z_i_wpt      ', 'z_i_pt       ',                &
     1138             'w*           ', 'w"pt"0       ', 'w"pt"        ',                &
     1139             'wpt          ', 'pt(0)        ', 'pt(zp)       ',                &
     1140             'w"u"0        ', 'w"v"0        ', 'w"q"0        ',                &
     1141             'mo_L         ', 'q*           ',                                 &
    11371142             ( 'unknown', i9 = 1, dots_max-23 ) /)
    11381143
    1139     CHARACTER (LEN=7), DIMENSION(dots_max) :: dots_unit = &
    1140           (/ 'm2/s2  ', 'm2/s2  ', 's      ', 'm/s    ', 'K      ', 'm/s    ', &
    1141              'm/s    ', 'm/s    ', 's-1    ', 's-1    ', 'm      ', 'm      ', &
    1142              'm/s    ', 'K m/s  ', 'K m/s  ', 'K m/s  ', 'K      ', 'K      ', &
    1143              'm2/s2  ', 'm2/s2  ', 'kg m/s ', 'm      ', 'kg/kg  ',            &
     1144    CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_unit =                     &
     1145          (/ 'm2/s2        ', 'm2/s2        ', 's            ',                &
     1146             'm/s          ', 'K            ', 'm/s          ',                &
     1147             'm/s          ', 'm/s          ', 's-1          ',                &
     1148             's-1          ', 'm            ', 'm            ',                &
     1149             'm/s          ', 'K m/s        ', 'K m/s        ',                &
     1150             'K m/s        ', 'K            ', 'K            ',                &
     1151             'm2/s2        ', 'm2/s2        ', 'kg m/s       ',                &
     1152             'm            ', 'kg/kg        ',                                 &
    11441153             ( 'unknown', i9 = 1, dots_max-23 ) /)
    11451154
     
    14221431
    14231432    CHARACTER (LEN=40) ::  region(0:9)
    1424     INTEGER(iwp) ::  pr_palm = 100, statistic_regions = 0
     1433    INTEGER(iwp) ::  pr_palm = 120, statistic_regions = 0
    14251434    INTEGER(iwp) ::  u_max_ijk(3) = -1, v_max_ijk(3) = -1, w_max_ijk(3) = -1
    14261435    LOGICAL ::  flow_statistics_called = .FALSE.
Note: See TracChangeset for help on using the changeset viewer.