Changeset 1783 for palm/trunk/SOURCE/land_surface_model.f90

Timestamp:

Mar 6, 2016 6:36:17 PM (8 years ago)

Author:

raasch

Message:

NetCDF routines modularized; new parameter netcdf_deflate; further changes in the pmc

File:

• palm/trunk/SOURCE/land_surface_model.f90 (modified) (5 diffs)

palm/trunk/SOURCE/land_surface_model.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! netcdf variables moved to netcdf module
 ! 
 ! Former revisions:
@@ -132 +132 @@
     USE kinds
 
-    USE netcdf_control,                                                        &
-        ONLY:  dots_label, dots_num, dots_unit
-
     USE pegrid
 
@@ -157 +154 @@
                                nzt_soil = 3, & !< top of the soil model (to be switched)
                                nzs = 4         !< number of soil layers (fixed for now)
-
-    INTEGER(iwp) :: dots_soil = 0  !< starting index for timeseries output 
-
-    INTEGER(iwp), DIMENSION(0:1) :: id_dim_zs_xy, id_dim_zs_xz, id_dim_zs_yz,  &
-                                    id_dim_zs_3d, id_var_zs_xy,                & 
-                                    id_var_zs_xz, id_var_zs_yz, id_var_zs_3d
-                                    
-    INTEGER(iwp), DIMENSION(1:max_masks,0:1) :: id_dim_zs_mask, id_var_zs_mask
 
     REAL(wp), PARAMETER ::                     &
@@ -519 +508 @@
 
 !
-!-- Public grid and NetCDF variables
-    PUBLIC dots_soil, id_dim_zs_xy, id_dim_zs_xz, id_dim_zs_yz,                &
-           id_dim_zs_3d, id_dim_zs_mask, id_var_zs_xy, id_var_zs_xz,           &
-           id_var_zs_yz, id_var_zs_3d, id_var_zs_mask, nzb_soil, nzs, nzt_soil,&
-           zs
+!-- Public grid variables
+    PUBLIC nzb_soil, nzs, nzt_soil, zs
 
 !
@@ -928 +914 @@
                                                 statistic_regions+1 )
 
-!
-!--    Add timeseries for land surface model
-       dots_soil = dots_num + 1
-       dots_num  = dots_num + 8
-
-       dots_label(dots_soil) = "ghf_eb"
-       dots_label(dots_soil+1) = "shf_eb"
-       dots_label(dots_soil+2) = "qsws_eb"
-       dots_label(dots_soil+3) = "qsws_liq_eb"
-       dots_label(dots_soil+4) = "qsws_soil_eb"
-       dots_label(dots_soil+5) = "qsws_veg_eb"
-       dots_label(dots_soil+6) = "r_a"
-       dots_label(dots_soil+7) = "r_s"
-
-       dots_unit(dots_soil:dots_soil+5) = "W/m2"
-       dots_unit(dots_soil+6:dots_soil+7) = "s/m"
-
-
     END SUBROUTINE init_lsm