Changeset 3383 for palm/trunk/SOURCE
- Timestamp:
- Oct 19, 2018 2:22:58 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/bulk_cloud_model_mod.f90
r3371 r3383 472 472 ! Description: 473 473 ! ------------ 474 !> Parin for &bulk_cloud_parameters for the microphysicsmodule474 !> Parin for &bulk_cloud_parameters for the bulk cloud module 475 475 !------------------------------------------------------------------------------! 476 476 SUBROUTINE bcm_parin … … 501 501 line = ' ' 502 502 ! 503 !-- Try to find microphysics module package503 !-- Try to find bulk cloud module namelist 504 504 REWIND ( 11 ) 505 505 line = ' ' … … 512 512 READ ( 11, bulk_cloud_parameters ) 513 513 ! 514 !-- Set flag that indicates that the microphysicsmodule is switched on514 !-- Set flag that indicates that the bulk cloud module is switched on 515 515 !bulk_cloud_model = .TRUE. 516 516 … … 524 524 ! Description: 525 525 ! ------------ 526 !> Check parameters routine for microphysicsmodule526 !> Check parameters routine for bulk cloud module 527 527 !------------------------------------------------------------------------------! 528 528 SUBROUTINE bcm_check_parameters … … 608 608 ! Description: 609 609 ! ------------ 610 !> Check data output for microphysicsmodule610 !> Check data output for bulk cloud module 611 611 !------------------------------------------------------------------------------! 612 612 SUBROUTINE bcm_check_data_output( var, unit ) … … 696 696 ! Description: 697 697 ! ------------ 698 !> Check data output of profiles for microphysicsmodule698 !> Check data output of profiles for bulk cloud module 699 699 !------------------------------------------------------------------------------! 700 700 SUBROUTINE bcm_check_data_output_pr( variable, var_count, unit, dopr_unit ) … … 800 800 ! Description: 801 801 ! ------------ 802 !> Allocate microphysicsmodule arrays and define pointers802 !> Allocate bulk cloud module arrays and define pointers 803 803 !------------------------------------------------------------------------------! 804 804 SUBROUTINE bcm_init_arrays … … 902 902 ! Description: 903 903 ! ------------ 904 !> Initialization of the microphysicsmodule904 !> Initialization of the bulk cloud module 905 905 !------------------------------------------------------------------------------! 906 906 SUBROUTINE bcm_init !( dots_label, dots_unit, dots_num, dots_max ) … … 917 917 ! CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_label 918 918 919 CALL location_message( 'initializing microphysicsmodule', .FALSE. )919 CALL location_message( 'initializing bulk cloud module', .FALSE. ) 920 920 921 921 IF ( bulk_cloud_model ) THEN … … 1081 1081 ! Description: 1082 1082 ! ------------ 1083 !> Header output for microphysicsmodule1083 !> Header output for bulk cloud module 1084 1084 !------------------------------------------------------------------------------! 1085 1085 SUBROUTINE bcm_header ( io ) … … 1091 1091 1092 1092 ! 1093 !-- Write microphysicsmodule header1093 !-- Write bulk cloud module header 1094 1094 WRITE ( io, 1 ) 1095 1095 … … 1122 1122 1123 1123 1124 1 FORMAT ( //' Bulk cloud m icrophysics module information:'/ &1124 1 FORMAT ( //' Bulk cloud module information:'/ & 1125 1125 ' ------------------------------------------'/ ) 1126 1126 2 FORMAT ( '--> Bulk scheme with liquid water potential temperature and'/ & … … 1678 1678 ! Description: 1679 1679 ! ------------ 1680 !> This routine reads the respective restart data for the microphysicsmodule.1680 !> This routine reads the respective restart data for the bulk cloud module. 1681 1681 !------------------------------------------------------------------------------! 1682 1682 SUBROUTINE bcm_rrd_global( found ) … … 1742 1742 ! Description: 1743 1743 ! ------------ 1744 !> This routine reads the respective restart data for the microphysicsmodule.1744 !> This routine reads the respective restart data for the bulk cloud module. 1745 1745 !------------------------------------------------------------------------------! 1746 1746 SUBROUTINE bcm_rrd_local( i, k, nxlf, nxlc, nxl_on_file, nxrf, nxrc, & … … 1887 1887 ! Description: 1888 1888 ! ------------ 1889 !> This routine writes the respective restart data for the microphysicsmodule.1889 !> This routine writes the respective restart data for the bulk cloud module. 1890 1890 !------------------------------------------------------------------------------! 1891 1891 SUBROUTINE bcm_wrd_global … … 1937 1937 ! Description: 1938 1938 ! ------------ 1939 !> This routine writes the respective restart data for the microphysicsmodule.1939 !> This routine writes the respective restart data for the bulk cloud module. 1940 1940 !------------------------------------------------------------------------------! 1941 1941 SUBROUTINE bcm_wrd_local
Note: See TracChangeset
for help on using the changeset viewer.