Ignore:
Timestamp:
Apr 8, 2014 3:21:23 PM (7 years ago)
Author:
heinze
Message:

REAL constants provided with KIND-attribute

File:
1 edited

Legend:

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

    r1321 r1353  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    105105                 vg_vert(nzb:nzt+1,0:nlsf), wsubs_vert(nzb:nzt+1,0:nlsf) )
    106106
    107        p_surf = 0.0; pt_surf = 0.0; q_surf = 0.0; qsws_surf = 0.0
    108        shf_surf = 0.0; time_vert = 0.0; time_surf = 0.0; ug_vert = 0.0
    109        vg_vert = 0.0; wsubs_vert = 0.0
     107       p_surf     = 0.0_wp;  pt_surf  = 0.0_wp;  q_surf    = 0.0_wp
     108       qsws_surf  = 0.0_wp;  shf_surf = 0.0_wp;  time_vert = 0.0_wp
     109       time_surf  = 0.0_wp;  ug_vert  = 0.0_wp;  vg_vert   = 0.0_wp
     110       wsubs_vert = 0.0_wp
    110111
    111112
     
    234235!
    235236!--    Large scale vertical velocity has to be zero at the surface
    236        wsubs_vert(nzb,:) = 0.0
     237       wsubs_vert(nzb,:) = 0.0_wp
    237238 
    238239       IF ( time_vert(1) > end_time )  THEN
Note: See TracChangeset for help on using the changeset viewer.