Ignore:
Timestamp:
Aug 15, 2017 11:48:26 AM (4 years ago)
Author:
kanani
Message:

bugfixes and workarounds for nopointer version

File:
1 edited

Legend:

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

    r2339 r2350  
    2525! -----------------
    2626! $Id$
     27! Bugfix in nopointer version
     28!
     29! 2339 2017-08-07 13:55:26Z gronemeier
    2730! corrected timestamp in header
    2831!
     
    616619                          qc(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                &
    617620                          qc_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg),              &
    618                           tnc_m(nzb:nzt+1,nysg:nyng,nxlg:nxrg)
     621                          tnc_m(nzb:nzt+1,nysg:nyng,nxlg:nxrg),             &
    619622                          tqc_m(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    620623#else
Note: See TracChangeset for help on using the changeset viewer.