Changeset 3700 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Jan 26, 2019 5:03:42 PM (5 years ago)

Author:

knoop

Message:

Moved user_define_netdf_grid into user_module.f90
Added module interface for the definition of additional timeseries

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -1136 +1136 @@
     END INTERFACE radiation_check_data_output
 
+    INTERFACE radiation_check_data_output_ts
+       MODULE PROCEDURE radiation_check_data_output_ts
+    END INTERFACE radiation_check_data_output_ts
+
     INTERFACE radiation_check_data_output_pr
        MODULE PROCEDURE radiation_check_data_output_pr
@@ -1241 +1245 @@
 !-- Public functions / NEEDS SORTING
     PUBLIC radiation_check_data_output, radiation_check_data_output_pr,        &
+           radiation_check_data_output_ts,                                     &
            radiation_check_parameters, radiation_control,                      &
            radiation_header, radiation_init, radiation_parin,                  &
@@ -1448 +1453 @@
 
     END SUBROUTINE radiation_check_data_output
+
+
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Set module-specific timeseries units and labels
+!------------------------------------------------------------------------------!
+ SUBROUTINE radiation_check_data_output_ts( dots_max, dots_num, dots_label, dots_unit )
+
+
+   INTEGER(iwp),      INTENT(IN)     ::  dots_max
+   INTEGER(iwp),      INTENT(INOUT)  ::  dots_num
+   CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT)  :: dots_label
+   CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT)  :: dots_unit
+
+!
+!-- Temporary solution to add LSM and radiation time series to the default
+!-- output
+    IF ( land_surface  .OR.  radiation )  THEN
+       IF ( TRIM( radiation_scheme ) == 'rrtmg' )  THEN
+          dots_num = dots_num + 15
+       ELSE
+          dots_num = dots_num + 11
+       ENDIF
+    ENDIF
+
+
+ END SUBROUTINE radiation_check_data_output_ts
 
 !------------------------------------------------------------------------------!