Changeset 4631 for palm


Ignore:
Timestamp:
Aug 3, 2020 1:48:14 PM (3 months ago)
Author:
suehring
Message:

Spinup: Set pt1 attribute only element-wise

File:
1 edited

Legend:

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

    r4540 r4631  
    2020! Current revisions:
    2121! -----------------
    22 ! 
    23 ! 
     22!
     23!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Set pt1 attribute only element-wise
     28!
     29! 4540 2020-05-18 15:23:29Z raasch
    2730! File re-formatted to follow the PALM coding standard
    2831!
     
    335338                pt(k,j,i) = pt_spinup
    336339                !!!!!!!!!!!!!!!!HACK!!!!!!!!!!!!!
    337                 surf_usm_h%pt1 = pt_spinup
     340                surf_usm_h%pt1(m) = pt_spinup
    338341                !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    339342             ENDDO
     
    346349                   pt(k,j,i) = pt_spinup
    347350                   !!!!!!!!!!!!!!!!HACK!!!!!!!!!!!!!
    348                    surf_usm_v(l)%pt1 = pt_spinup
     351                   surf_usm_v(l)%pt1(m) = pt_spinup
    349352                   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    350353                ENDDO
Note: See TracChangeset for help on using the changeset viewer.