Changeset 3579 for palm/trunk/SOURCE/nesting_offl_mod.f90
- Timestamp:
- Nov 29, 2018 3:32:39 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/nesting_offl_mod.f90
r3413 r3579 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Check implemented for offline nesting in child domain 28 ! 29 ! 3413 2018-10-24 10:28:44Z suehring 27 30 ! Keyword ID set 28 31 ! … … 79 82 ! 80 83 !-- Public subroutines 81 PUBLIC nesting_offl_bc, nesting_offl_ header, nesting_offl_init,&82 nesting_offl_ mass_conservation, nesting_offl_parin84 PUBLIC nesting_offl_bc, nesting_offl_check_parameters, nesting_offl_header,& 85 nesting_offl_init, nesting_offl_mass_conservation, nesting_offl_parin 83 86 ! 84 87 !-- Public variables … … 88 91 MODULE PROCEDURE nesting_offl_bc 89 92 END INTERFACE nesting_offl_bc 93 94 INTERFACE nesting_offl_check_parameters 95 MODULE PROCEDURE nesting_offl_check_parameters 96 END INTERFACE nesting_offl_check_parameters 90 97 91 98 INTERFACE nesting_offl_header … … 879 886 !------------------------------------------------------------------------------! 880 887 SUBROUTINE nesting_offl_check_parameters 888 889 USE control_parameters, & 890 ONLY: child_domain, message_string, nesting_offline 881 891 882 892 IMPLICIT NONE 883 893 ! 884 894 !-- Perform checks 895 IF ( nesting_offline .AND. child_domain ) THEN 896 message_string = 'Offline nesting is only applicable in root model.' 897 CALL message( 'stg_check_parameters', 'PA0622', 1, 2, 0, 6, 0 ) 898 ENDIF 885 899 886 900
Note: See TracChangeset
for help on using the changeset viewer.