Changeset 1593 for palm/trunk/SOURCE

Timestamp:

May 16, 2015 1:58:02 PM (10 years ago)

Author:

raasch

Message:

FORTRAN error removed from openacc branch

File:

• palm/trunk/SOURCE/flow_statistics.f90 (modified) (2 diffs)

palm/trunk/SOURCE/flow_statistics.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! 
+! FORTRAN errors removed from openacc branch
 ! 
 ! Former revisions:
@@ -1612 +1612 @@
     USE kinds
     
+    USE land_surface_model_mod,                                                &
+        ONLY:   dots_soil, ghf_eb, land_surface, m_soil, nzb_soil, nzt_soil,   &
+                qsws_eb, qsws_liq_eb, qsws_soil_eb, qsws_veg_eb, r_a, r_s,     &
+                shf_eb, t_soil
+
     USE pegrid
     
+    USE radiation_model_mod,                                                   &
+        ONLY:  dots_rad, radiation, radiation_scheme, rad_net,                 &
+               rad_lw_in, rad_lw_out, rad_sw_in, rad_sw_out
+
+#if defined ( __rrtmg )
+    USE radiation_model_mod,                                                   &
+        ONLY:  rrtm_aldif, rrtm_aldir, rrtm_asdif, rrtm_asdir
+#endif
+
     USE statistics