Changeset 4521 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

May 6, 2020 11:39:49 AM (4 years ago)

Author:

schwenkel

Message:

add error number

File:

• palm/trunk/SOURCE/surface_mod.f90 (modified) (12 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Rename variable
+! 
+! 4517 2020-05-03 14:29:30Z raasch
 ! added restart with MPI-IO for reading local arrays
 ! 
@@ -479 +482 @@
     LOGICAL ::  surf_microphysics_morrison = .FALSE.   !< use 2-moment Morrison (add. prog. eq. for nc and qc)
     LOGICAL ::  surf_microphysics_seifert = .FALSE.    !< use 2-moment Seifert and Beheng scheme
-    LOGICAL ::  surf_microphysics_ice_extension = .FALSE. !< use 2-moment Seifert and Beheng scheme
+    LOGICAL ::  surf_microphysics_ice_phase = .FALSE. !< use 2-moment Seifert and Beheng scheme
 
 
@@ -535 +538 @@
            surf_def_h, surf_def_v, surf_lsm_h, surf_lsm_v, surf_usm_h, surf_usm_v, surf_type,      &
            vertical_surfaces_exist, surf_bulk_cloud_model, surf_microphysics_morrison,             &
-           surf_microphysics_seifert, surf_microphysics_ice_extension
+           surf_microphysics_seifert, surf_microphysics_ice_phase
 !
 !-- Public subroutines and functions
@@ -1315 +1318 @@
 !
 !--
-       IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_extension)  THEN
+       IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_phase)  THEN
           DEALLOCATE ( surfaces%qis )
           DEALLOCATE ( surfaces%nis )
@@ -1452 +1455 @@
 !
 !--
-       IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_extension)  THEN
+       IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_phase)  THEN
           ALLOCATE ( surfaces%qis(1:surfaces%ns)   )
           ALLOCATE ( surfaces%nis(1:surfaces%ns)   )
@@ -1611 +1614 @@
 !
 !--
-       IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_extension)  THEN
+       IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_phase)  THEN
           DEALLOCATE ( surfaces%qisws )
           DEALLOCATE ( surfaces%nisws )
@@ -1690 +1693 @@
 !
 !--
-       IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_extension)  THEN
+       IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_phase)  THEN
           ALLOCATE ( surfaces%qisws(1:surfaces%ns) )
           ALLOCATE ( surfaces%nisws(1:surfaces%ns) )
@@ -1875 +1878 @@
        ENDIF
 
-       IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_extension)  THEN
+       IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_phase)  THEN
           DEALLOCATE ( surfaces%qis )
           DEALLOCATE ( surfaces%nis )
@@ -2008 +2011 @@
        ENDIF
 
-       IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_extension)  THEN
+       IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_phase)  THEN
           ALLOCATE ( surfaces%qis(1:surfaces%ns)   )
           ALLOCATE ( surfaces%nis(1:surfaces%ns)   )
@@ -2657 +2660 @@
                 ENDIF
 
-                IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_extension)  THEN
+                IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_phase)  THEN
                    surf%qis(num_h) = 0.0_wp
                    surf%nis(num_h) = 0.0_wp
@@ -2838 +2841 @@
                    surf%qrsws(num_h) = 0.0_wp
                 ENDIF
-                IF ( surf_bulk_cloud_model  .AND.  surf_microphysics_ice_extension ) THEN
+                IF ( surf_bulk_cloud_model  .AND.  surf_microphysics_ice_phase ) THEN
                    surf%nisws(num_h) = 0.0_wp
                    surf%qisws(num_h) = 0.0_wp
@@ -2982 +2985 @@
                    surf%nrsws(num_v) = 0.0_wp
                 ENDIF
-                IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_extension)  THEN
+                IF ( surf_bulk_cloud_model .AND. surf_microphysics_ice_phase)  THEN
                    surf%qis(num_v) = 0.0_wp
                    surf%nis(num_v) = 0.0_wp