# Changeset 189

Ignore:
Timestamp:
Aug 13, 2008 5:09:26 PM (16 years ago)
Message:
• changed: allow 100 spectra levels instead of 10 for consistency with define_netcdf_header
Location:
palm/trunk
Files:
9 edited

Unmodified
Removed
• ## palm/trunk/DOC/app/chapter_3.7.html

 r108 PALM chapter 3.7PALM chapter 3.7 @page { size: 21cm 29.7cm } --> change:  \$Id\$

see section 4.2

see section 4.2

see section 4.2

see section 4.2

see section 4.2

section 4.2

• ## palm/trunk/DOC/app/chapter_4.2.html

 r144 Spectra can be calculated for up to ten levels. Spectra can be calculated for up to 100 levels.
I(10) I(100) I(10) I(100)
• ## palm/trunk/DOC/app/chapter_4.6.html

 r166 -->

I (10)

(100)

I (10)

(100)

• ## palm/trunk/SOURCE/calc_spectra.f90

 r164 ! Actual revisions: ! ----------------- ! allow 100 spectra levels instead of 10 for consistency with ! define_netcdf_header ! user-defined spectra, arguments removed from transpose routines ! REAL, DIMENSION(0:nx)      ::  work REAL, DIMENSION(0:nx/2)    ::  sums_spectra_l REAL, DIMENSION(0:nx/2,10) ::  sums_spectra REAL, DIMENSION(0:nx/2,100)::  sums_spectra REAL, DIMENSION(0:nxa,nys_x:nyn_xa,nzb_x:nzt_xa) ::  ddd !-- Loop over all levels defined by the user n = 1 DO WHILE ( comp_spectra_level(n) /= 999999  .AND.  n <= 10 ) DO WHILE ( comp_spectra_level(n) /= 999999  .AND.  n <= 100 ) k = comp_spectra_level(n) REAL, DIMENSION(0:ny)      ::  work REAL, DIMENSION(0:ny/2)    ::  sums_spectra_l REAL, DIMENSION(0:ny/2,10) ::  sums_spectra REAL, DIMENSION(0:ny/2,100)::  sums_spectra REAL, DIMENSION(0:nya,nxl_yd:nxr_yda,nzb_yd:nzt_yda) :: ddd !-- Loop over all levels defined by the user n = 1 DO WHILE ( comp_spectra_level(n) /= 999999  .AND.  n <= 10 ) DO WHILE ( comp_spectra_level(n) /= 999999  .AND.  n <= 100 ) k = comp_spectra_level(n)
• ## palm/trunk/SOURCE/data_output_spectra.f90

 r144 ! Actual revisions: ! ----------------- ! allow 100 spectra levels instead of 10 for consistency with ! define_netcdf_header ! user-defined spectra ! INTEGER                  :: cranz, labforx = 3, labfory = 3, legpos = 3, & timodex = 1 INTEGER, DIMENSION(1:10) :: cucol = 1, klist = 999999, lstyle = 0 INTEGER, DIMENSION(1:100):: cucol = 1, klist = 999999, lstyle = 0 LOGICAL                  :: datleg = .TRUE., grid = .TRUE., & lclose = .TRUE., rand = .TRUE., & REAL                     :: gwid = 0.1, rlegfak = 0.7, uxmin, uxmax, & uymin, uymax REAL, DIMENSION(1:10)    :: lwid = 0.6 REAL, DIMENSION(10)      :: uyma, uymi REAL, DIMENSION(1:100)   :: lwid = 0.6 REAL, DIMENSION(100)     :: uyma, uymi NAMELIST /RAHMEN/  cranz, datleg, rtext, swap !-- different quantities u, v, w, pt and q) DO  k = 1, n_sp_x IF ( k < 10 )  THEN IF ( k < 100 )  THEN IF ( pr == 3 )  THEN WRITE ( 82, 100 )  '#', k, header_char( pr ),        & !-- Calculate klist-values from the available comp_spectra_level values i = 1; k = 1 DO WHILE ( i <= 10  .AND.  plot_spectra_level(i) /= 999999 ) DO WHILE ( i <= 100  .AND.  plot_spectra_level(i) /= 999999 ) DO WHILE ( k <= n_sp_x  .AND. & plot_spectra_level(i) >= comp_spectra_level(k) ) 100 FORMAT (A,I1,1X,A,1X,I4,'m ',A) 101 FORMAT (A,I2,1X,A,1X,I4,'m ',A) 102 FORMAT (E15.7,10(1X,E15.7)) 102 FORMAT (E15.7,100(1X,E15.7)) 103 FORMAT ('NEXT') 104 FORMAT ('time averaged over',F7.1,' s') INTEGER                  :: cranz, labforx = 3, labfory = 3, legpos = 3, & timodex = 1 INTEGER, DIMENSION(1:10) :: cucol = 1, klist = 999999, lstyle = 0 INTEGER, DIMENSION(1:100):: cucol = 1, klist = 999999, lstyle = 0 LOGICAL                  :: datleg = .TRUE., grid = .TRUE., & lclose = .TRUE., rand = .TRUE., & REAL                     :: gwid = 0.1, rlegfak = 0.7, uxmin, uxmax, & uymin, uymax REAL, DIMENSION(1:10)    :: lwid = 0.6 REAL, DIMENSION(10)      :: uyma, uymi REAL, DIMENSION(1:100)   :: lwid = 0.6 REAL, DIMENSION(100)     :: uyma, uymi NAMELIST /RAHMEN/  cranz, datleg, rtext, swap !-- different quantities u, v, w, pt and q) DO  k = 1, n_sp_y IF ( k < 10 )  THEN IF ( k < 100 )  THEN IF ( pr == 3 ) THEN WRITE ( 84, 100 )  '#', k, header_char( pr ),        & !-- Calculate klist-values from the available comp_spectra_level values j = 1; k = 1 DO WHILE ( j <= 10  .AND.  plot_spectra_level(j) /= 999999 ) DO WHILE ( j <= 100  .AND.  plot_spectra_level(j) /= 999999 ) DO WHILE ( k <= n_sp_y  .AND. & plot_spectra_level(j) >= comp_spectra_level(k) ) 100 FORMAT (A,I1,1X,A,1X,I4,'m ',A) 101 FORMAT (A,I2,1X,A,1X,I4,'m ',A) 102 FORMAT (E15.7,10(1X,E15.7)) 102 FORMAT (E15.7,100(1X,E15.7)) 103 FORMAT ('NEXT') 104 FORMAT ('time averaged over',F7.1,' s')