Changeset 2296 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Jun 28, 2017 7:53:56 AM (4 years ago)

Author:

maronga

Message:

added new spinup mechanism for surface/radiation models

File:

• palm/trunk/SOURCE/land_surface_model_mod.f90 (modified) (10 diffs)

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in calculation of bare soil heat capacity.
+! Bugfix in calculation of shf
+! Added support for spinups
+! 
+! 2282 2017-06-13 11:38:46Z schwenkel
 ! Bugfix for check of saturation moisture
 ! 
@@ -226 +231 @@
 
     USE control_parameters,                                                    &
-        ONLY:  cloud_physics, dt_3d, humidity, intermediate_timestep_count,    &
+        ONLY:  cloud_physics, coupling_start_time, dt_3d, end_time, humidity,  &
+               intermediate_timestep_count,                                    &
                initializing_actions, intermediate_timestep_count_max,          &
                land_surface, max_masks, precipitation, pt_surface,             &
-               rho_surface, surface_pressure, timestep_scheme, tsc,            &
+               rho_surface, spinup, spinup_pt_mean, spinup_time,               &
+               surface_pressure, timestep_scheme, tsc,                         &
                time_since_reference_point
 
@@ -1230 +1237 @@
        ENDIF
     ENDDO
-  
+ 
  END SUBROUTINE lsm_check_parameters
  
@@ -1374 +1381 @@
           c_surface_tmp = (rho_c_soil * ( 1.0_wp - surf%m_sat(nzb_soil,m) )    &
                            + rho_c_water * surf_m_soil%var_2d(nzb_soil,m) )    &
-                           * dz_soil_layer(nzb_soil) * 0.25_wp               
+                           * dz_soil_layer(nzb_soil) * 0.5_wp               
 
        ELSEIF ( surf_t_surface%var_1d(m) >= surf_t_soil%var_2d(nzb_soil,m)) &
@@ -2069 +2076 @@
        dz_soil_layer(nzb_soil) = 2.0_wp * zs(nzb_soil)
        zs_layer(nzb_soil)      = 2.0_wp * zs(nzb_soil)
-
-
-       
-       
+  
        DO  k = nzb_soil+1, nzt_soil
           dz_soil_layer(k) = ( zs(k) - zs_layer(k-1) ) * 2.0_wp
@@ -2322 +2326 @@
                 DO  k = nzb_soil, nzt_soil  
                    t_soil_h%var_2d(k,m)   = soil_temperature(k)
-                   m_soil_h%var_2d(k,m)   = MAX(soil_moisture(k),surf_lsm_h%m_wilt(k,m))
-                   soil_moisture(k)       = MAX(soil_moisture(k),wilting_point)           
+                   m_soil_h%var_2d(k,m)   = soil_moisture(k)
                 ENDDO
                 t_soil_h%var_2d(nzt_soil+1,m) = soil_temperature(nzt_soil+1)
@@ -2343 +2346 @@
                 DO  k = nzb_soil, nzt_soil                        
                    t_soil_h%var_2d(k,m)   = soil_temperature(k)
-                   m_soil_h%var_2d(k,m)   = MAX(soil_moisture(k),surf_lsm_h%m_wilt(k,m))
-                   soil_moisture(k)       = MAX(soil_moisture(k),wilting_point)         
+                   m_soil_h%var_2d(k,m)   = soil_moisture(k)       
                 ENDDO 
                 t_soil_h%var_2d(nzt_soil+1,m) = soil_temperature(nzt_soil+1)
@@ -2411 +2413 @@
                    surf_lsm_v(l)%z0q(m)         = z0h_pavement  
                    DO  k = nzb_soil, nzt_soil  
-                      t_soil_v(l)%var_2d(k,m)      = soil_temperature(k)
-                      m_soil_v(l)%var_2d(k,m)   = MAX(soil_moisture(k),surf_lsm_v(l)%m_wilt(k,m))
-                      soil_moisture(k)          = MAX(soil_moisture(k),wilting_point)   
+                      t_soil_v(l)%var_2d(k,m)   = soil_temperature(k)
+                      m_soil_v(l)%var_2d(k,m)   = soil_moisture(k) 
                    ENDDO
                    t_soil_v(l)%var_2d(nzt_soil+1,m)  = soil_temperature(nzt_soil+1)
@@ -2433 +2434 @@
                    DO  k = nzb_soil, nzt_soil                        
                       t_soil_v(l)%var_2d(k,m)   = soil_temperature(k)
-                      m_soil_v(l)%var_2d(k,m)   = MAX(soil_moisture(k),surf_lsm_v(l)%m_wilt(k,m))
-                      soil_moisture(k)          = MAX(soil_moisture(k),wilting_point)         
+                      m_soil_v(l)%var_2d(k,m)   = soil_moisture(k)       
                    ENDDO 
                    t_soil_v(l)%var_2d(nzt_soil+1,m) = soil_temperature(nzt_soil+1)
@@ -2857 +2857 @@
        land_surface = .TRUE.
 
+!
+!--    Activate spinup
+       IF ( spinup_time > 0.0_wp )  THEN
+          coupling_start_time = spinup_time
+          end_time = end_time + spinup_time
+          IF ( spinup_pt_mean == 9999999.9_wp )  THEN
+             spinup_pt_mean = pt_surface
+          ENDIF
+          spinup = .TRUE.
+       ENDIF
+
+
  10    CONTINUE