Changeset 3650 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Jan 4, 2019 1:01:33 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3649 r3650 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Add restart routines for biometeorology 28 ! 29 ! 3649 2019-01-02 16:52:21Z suehring 27 30 ! Initialize strings, in order to avoid compiler warnings for non-initialized 28 31 ! characters with intent(out) attribute … … 75 78 bio_3d_data_averaging, & 76 79 bio_data_output_2d, & 77 bio_data_output_3d 80 bio_data_output_3d, & 81 bio_rrd_global, & 82 bio_rrd_local, & 83 bio_wrd_global, & 84 bio_wrd_local 78 85 79 86 USE bulk_cloud_model_mod, & … … 552 559 CHARACTER (LEN=*), INTENT(OUT) :: grid_z !< netcdf dimension in z-direction 553 560 ! 554 !--As long as no action is done in this subroutine, initial strings with561 !--As long as no action is done in this subroutine, initialize strings with 555 562 !--intent(out) attribute, in order to avoid compiler warnings. 556 563 found = .FALSE. … … 878 885 LOGICAL, INTENT(OUT) :: found !< flag if variable was found 879 886 887 IF ( .NOT. found ) CALL bio_rrd_global( found ) ! ToDo: change interface to pass variable 880 888 IF ( .NOT. found ) CALL bcm_rrd_global( found ) ! ToDo: change interface to pass variable 881 889 IF ( .NOT. found ) CALL flight_rrd_global( found ) ! ToDo: change interface to pass variable … … 899 907 900 908 909 IF ( biometeorology ) CALL bio_wrd_global 901 910 IF ( bulk_cloud_model ) CALL bcm_wrd_global 902 911 IF ( virtual_flight ) CALL flight_wrd_global … … 946 955 947 956 957 IF ( .NOT. found ) CALL bio_rrd_local( & 958 found & 959 ) 960 948 961 IF ( .NOT. found ) CALL bcm_rrd_local( & 949 962 file_index, map_index, & … … 1039 1052 1040 1053 1054 IF ( biometeorology ) CALL bio_wrd_local 1041 1055 IF ( bulk_cloud_model ) CALL bcm_wrd_local 1042 1056 IF ( air_chemistry ) CALL chem_wrd_local
Note: See TracChangeset
for help on using the changeset viewer.