Changeset 2240


Ignore:
Timestamp:
Jun 1, 2017 1:45:34 PM (4 years ago)
Author:
hellstea
Message:

index error in nesting corrected

File:
1 edited

Legend:

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

    r2233 r2240  
    2121! Current revisions:
    2222! ------------------
    23 !
     23! A minor indexing error in pmci_init_loglaw_correction is corrected.
    2424!
    2525! Former revisions:
     
    3131!
    3232! 2229 2017-05-30 14:52:52Z hellstea
    33 ! A minor indexing error in init_anterp_tophat is corrected.
     33! A minor indexing error in pmci_init_anterp_tophat is corrected.
    3434!
    3535! 2174 2017-03-13 08:18:57Z maronga
     
    15311531       nk = 1
    15321532       DO  k = 1, nzt_topo_max
    1533           nk = MAX( nk, CEILING( cg%dzu(k) / dzu(k) ) )
     1533          nk = MAX( nk, CEILING( cg%dzu(kco(k)) / dzu(k) ) )
    15341534       ENDDO
    15351535       nk = nk / 2   !  Note that this must be integer division.
Note: See TracChangeset for help on using the changeset viewer.