Changeset 1353 for palm/trunk/SOURCE/ls_forcing.f90

Timestamp:

Apr 8, 2014 3:21:23 PM (10 years ago)

Author:

heinze

Message:

REAL constants provided with KIND-attribute

File:

• palm/trunk/SOURCE/ls_forcing.f90 (modified) (3 diffs)

palm/trunk/SOURCE/ls_forcing.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! REAL constants provided with KIND-attribute
 !
 ! Former revisions:
@@ -105 +105 @@
                  vg_vert(nzb:nzt+1,0:nlsf), wsubs_vert(nzb:nzt+1,0:nlsf) )
 
-       p_surf = 0.0; pt_surf = 0.0; q_surf = 0.0; qsws_surf = 0.0
-       shf_surf = 0.0; time_vert = 0.0; time_surf = 0.0; ug_vert = 0.0
-       vg_vert = 0.0; wsubs_vert = 0.0
+       p_surf     = 0.0_wp;  pt_surf  = 0.0_wp;  q_surf    = 0.0_wp
+       qsws_surf  = 0.0_wp;  shf_surf = 0.0_wp;  time_vert = 0.0_wp
+       time_surf  = 0.0_wp;  ug_vert  = 0.0_wp;  vg_vert   = 0.0_wp
+       wsubs_vert = 0.0_wp
 
 
@@ -234 +235 @@
 !
 !--    Large scale vertical velocity has to be zero at the surface
-       wsubs_vert(nzb,:) = 0.0
+       wsubs_vert(nzb,:) = 0.0_wp
  
        IF ( time_vert(1) > end_time )  THEN