ELF>@@     c8DKSYgz0/_3t57_8cK;5<I=`>x?@AhD2AhF UHHH]H`H`Hu H]øHhH`HHpHpHv8H H`HhHHHHٸ ,H HhHHHʸ$H HHHxHxHHHHHu H]HH HH(HH,HH0HhH`HHHHv8H H`HhHHHHٸ4,H HhHHHʸ8H HHHHHHHHHu H]HH HHHHH]Ðmodule_io_domain_defs.inc%s/%s%swset_timekeeping_defs.incset_timekeeping_alarms.incio_form_for_dataset.incio_form_for_stream.incswitches_and_alarms.inccheck_auxstream_alarms.incfine_stream_input.incmed_auxinput_in.incmed_hist_out_opens.incmed_hist_out_closes.incmed_auxinput_in_closes.incmed_last_solve_io.incmed_open_esmf_calls.incmed_find_esmf_coupling.incshutdown_closes.inc TYPE(grid_config_rec_type), INTENT(IN ) :: config_flags CALL %s_wrf( fid, grid, config_flags, %s%s%s_only, ierr ) ; outputinputaux%dhisthistorySUBROUTINE %s_%s%s%s ( fid , grid , config_flags , ierr ) IMPLICIT NONE TYPE(domain) :: grid INTEGER, INTENT(IN) :: fid INTEGER, INTENT(INOUT) :: ierr IF ( config_flags%%io_form_%s%s%s .GT. 0 ) THEN ENDIF RETURN END SUBROUTINE %s_%s%s%s INTEGER :: %s%s%s_interval , & %s%s%s_interval_d, & %s%s%s_interval_h, & %s%s%s_interval_m, & %s%s%s_interval_s INTEGER :: %s%s%s_begin , & %s%s%s_begin_y, & %s%s%s_begin_d, & %s%s%s_begin_h, & %s%s%s_begin_m, & %s%s%s_begin_s INTEGER :: %s%s%s_end , & %s%s%s_end_y, & %s%s%s_end_d, & %s%s%s_end_h, & %s%s%s_end_m, & %s%s%s_end_s CALL nl_get_%s%s%s_interval( grid%%id, %s%s%s_interval ) ! same as minutes CALL nl_get_%s%s%s_interval_d( grid%%id, %s%s%s_interval_d ) CALL nl_get_%s%s%s_interval_h( grid%%id, %s%s%s_interval_h ) CALL nl_get_%s%s%s_interval_m( grid%%id, %s%s%s_interval_m ) CALL nl_get_%s%s%s_interval_s( grid%%id, %s%s%s_interval_s ) IF ( %s%s%s_interval_m .EQ. 0 ) %s%s%s_interval_m = %s%s%s_interval %s%s%s_interval_h, %s%s%s_interval_m , %s%s%s_interval_s ) .GT. 0 ) THEN CALL WRFU_TimeIntervalSet( interval, D=%s%s%s_interval_d, & H=%s%s%s_interval_h, M=%s%s%s_interval_m, S=%s%s%s_interval_s, rc=rc ) 'WRFU_TimeIntervalSet(%s%s%s_interval) FAILED', & %s%s%s_begin_h, %s%s%s_begin_m , %s%s%s_begin_s ) .GT. 0 ) THEN CALL WRFU_TimeIntervalSet( begin_time , D=%s%s%s_begin_d, & H=%s%s%s_begin_h, M=%s%s%s_begin_m, S=%s%s%s_begin_s, rc=rc ) 'WRFU_TimeIntervalSet(%s%s%s_begin) FAILED', & %s%s%s_end_h, %s%s%s_end_m , %s%s%s_end_s ) .GT. 0 ) THEN H=%s%s%s_end_h, M=%s%s%s_end_m, S=%s%s%s_end_s, rc=rc ) 'WRFU_TimeIntervalSet(%s%s%s_end) FAILED', & CALL domain_alarm_create( grid, %s%s%s_ALARM, interval, begin_time, end_time ) IF ( interval .NE. padding_interval .AND. begin_time .EQ. zero_time ) THEN CALL WRFU_AlarmRingerOn( grid%%alarms( %s%s%s_ALARM ), rc=rc ) 'WRFU_AlarmRingerOn(%s%s%s_ALARM) FAILED', & ! %s%s%s INTERVAL IF ( MAX( %s%s%s_interval_d, & CALL wrf_check_error( WRFU_SUCCESS, rc, & __FILE__ , & __LINE__ ) ELSE interval = padding_interval ENDIF CALL nl_get_%s%s%s_begin ( grid%%id, %s%s%s_begin ) CALL nl_get_%s%s%s_begin_y( grid%%id, %s%s%s_begin_y ) CALL nl_get_%s%s%s_begin_d( grid%%id, %s%s%s_begin_d ) CALL nl_get_%s%s%s_begin_h( grid%%id, %s%s%s_begin_h ) CALL nl_get_%s%s%s_begin_m( grid%%id, %s%s%s_begin_m ) CALL nl_get_%s%s%s_begin_s( grid%%id, %s%s%s_begin_s ) IF ( %s%s%s_begin_m .EQ. 0 ) %s%s%s_begin_m = %s%s%s_begin IF ( MAX( %s%s%s_begin_y, %s%s%s_begin_d, & CALL wrf_check_error( WRFU_SUCCESS, rc, & __FILE__ , & __LINE__ ) begin_time = zero_time CALL nl_get_%s%s%s_end( grid%%id, %s%s%s_end ) CALL nl_get_%s%s%s_end_y( grid%%id, %s%s%s_end_y ) CALL nl_get_%s%s%s_end_d( grid%%id, %s%s%s_end_d ) CALL nl_get_%s%s%s_end_h( grid%%id, %s%s%s_end_h ) CALL nl_get_%s%s%s_end_m( grid%%id, %s%s%s_end_m ) CALL nl_get_%s%s%s_end_s( grid%%id, %s%s%s_end_s ) IF ( %s%s%s_end_m .EQ. 0 ) %s%s%s_end_m = %s%s%s_end IF ( MAX( %s%s%s_end_y, %s%s%s_end_d, & CALL WRFU_TimeIntervalSet( end_time , D=%s%s%s_end_d, & end_time = run_length + padding_interval ELSE ! default if nothing is set in SysDepInfo; use history IF ( DataSet .eq. 'RESTART' ) THEN CALL nl_get_io_form_restart( 1, io_form ) ELSE IF ( DataSet .eq. 'INPUT' ) THEN CALL nl_get_io_form_input( 1, io_form ) ELSE IF ( DataSet .eq. 'HISTORY' ) THEN CALL nl_get_io_form_history( 1, io_form ) ELSE IF ( DataSet .eq. 'BOUNDARY' ) THEN CALL nl_get_io_form_boundary( 1, io_form ) ELSE IF ( DataSet .eq. 'AUXINPUT%s' ) THEN CALL nl_get_io_form_auxinput%s( 1, io_form ) ELSE IF ( DataSet .eq. 'AUXHIST%s' ) THEN CALL nl_get_io_form_auxhist%s( 1, io_form ) ENDIF ELSE ! if no match then do the old service representative schtick CALL wrf_error_fatal('internal error: please contact wrfhelp@ucar.edu: io_form_for_stream.inc -- invalid stream number') IF ( stream .eq. restart_only ) THEN ELSE IF ( stream .eq. input_only ) THEN ELSE IF ( stream .eq. history_only ) THEN ELSE IF ( stream .eq. boundary_only ) THEN ELSE IF ( stream .eq. auxinput%s_only ) THEN ELSE IF ( stream .eq. auxhist%s_only ) THEN INTEGER, PARAMETER :: INPUT_ALARM = input_only ! not used INTEGER, PARAMETER :: history_only = 1 INTEGER, PARAMETER :: HISTORY_ALARM = history_only INTEGER, PARAMETER :: input_only = %d INTEGER, PARAMETER :: auxhist%d_only = %d INTEGER, PARAMETER :: AUXHIST%d_ALARM = %d INTEGER, PARAMETER :: auxinput%d_only = %d INTEGER, PARAMETER :: AUXINPUT%d_ALARM = %d IF( WRFU_AlarmIsRinging( grid%%alarms( AUXHIST%d_ALARM ), rc=rc ) ) THEN CALL WRFU_AlarmRingerOff( grid%%alarms( AUXHIST%d_ALARM ), rc=rc ) IF( WRFU_AlarmIsRinging( grid%%alarms( AUXINPUT%d_ALARM ), rc=rc ) ) THEN WRITE ( message , FMT='(A,A,A,i3)' ) 'Input data processed for ' , & TRIM(config_flags%%auxinput%d_inname) , ' for domain ',grid%%id CALL WRFU_AlarmRingerOff( grid%%alarms( AUXINPUT%d_ALARM ), rc=rc ) ! - AUX HISTORY OUTPUT #ifndef DISABLE_ALARM_AUXHIST%d CALL med_hist_out ( grid , %d, config_flags ) #endif ! - AUX INPUT INPUT #ifndef DISABLE_ALARM_AUXINPUT%d CALL med_auxinput%d_in ( grid , config_flags ) CALL wrf_debug ( 0 , message ) IF ( ( grid%%id .EQ. 1 ) .OR. ( config_flags%%fine_input_stream .EQ. 0 ) ) THEN CALL wrf_debug ( 0 , 'med_initialdata_input: calling input_input' ) CALL input_input ( fid , grid , config_flags , ierr ) CALL wrf_debug ( 100 , 'med_initialdata_input: back from input_input' ) CALL wrf_debug ( 0 , 'med_initialdata_input: calling input_auxinput%d' ) CALL input_auxinput%d ( fid , grid , config_flags , ierr ) CALL wrf_debug ( 100 , 'med_initialdata_input: back from input_auxinput%d' ) WRITE( message , '("med_initialdata_input: bad fine_input_stream = ",I4)') config_flags%%fine_input_stream ELSE IF ( config_flags%%fine_input_stream .EQ. %d ) THEN ELSE CALL WRF_ERROR_FATAL ( message ) END IF CALL open_aux_u( grid, config_flags, stream, AUXINPUT%d_ALARM, & config_flags%%auxinput%d_inname, grid%%auxinput%d_oid, & CALL input_auxinput%d ( grid%%auxinput%d_oid, grid , config_flags , ierr ) CASE ( AUXINPUT%d_ALARM ) input_auxinput%d, ierr ) CALL open_hist_w( grid, config_flags, stream, AUXHIST%d_ALARM, & config_flags%%auxhist%d_outname, grid%%auxhist%d_oid, & CALL output_auxhist%d ( grid%%auxhist%d_oid, grid , config_flags , ierr ) CASE ( AUXHIST%d_ALARM ) output_auxhist%d, fname, n2, ierr ) IF ( grid%%nframes(stream) >= config_flags%%frames_per_auxhist%d ) THEN CALL close_dataset ( grid%%auxhist%d_oid , config_flags , n2 ) grid%%auxhist%d_oid = 0 grid%%nframes(stream) = 0 ENDIF IF ( grid%%nframes(stream) >= config_flags%%frames_per_auxinput%d ) THEN CALL close_dataset ( grid%%auxinput%d_oid , config_flags , "DATASET=AUXINPUT%d" ) grid%%auxinput%d_oid = 0 IF( WRFU_AlarmIsRinging( grid%%alarms( AUXHIST%d_ALARM ), rc=rc ) ) THEN CALL med_hist_out ( grid , AUXHIST%d_ALARM , config_flags ) IF( grid%%auxhist%d_oid > 0 ) CALL close_dataset ( grid%%auxhist%d_oid, config_flags, 'DATASET=AUXHIST%d' ) CALL open_aux_u( grid, config_flags, stream, AUXINPUT%d_ALARM, & config_flags%%auxinput%d_inname, grid%%auxinput%d_oid, & CALL open_hist_w( grid, config_flags, stream, AUXHIST%d_ALARM, & config_flags%%auxhist%d_outname, grid%%auxhist%d_oid, & CALL nl_get_io_form_auxinput%d( 1, io_form ) IF ( use_package( io_form ) == IO_ESMF ) THEN stream = first_auxinput + %d input_auxinput%d, ierr ) IF ( ierr /= 0 ) RETURN ENDIF CALL nl_get_io_form_auxhist%d( 1, io_form ) stream = first_auxhist + %d output_auxhist%d, fname, n2, ierr ) CALL ESMF_AlarmGet( head_grid%%alarms( AUXINPUT%d_ALARM ), & RingInterval=couplingInterval, rc=rc ) CALL wrf_error_fatal ( 'wrf_findCouplingInterval: ESMF_AlarmGet(AUXINPUT%d_ALARM) failed' ) CALL ESMF_AlarmGet( head_grid%%alarms( AUXHIST%d_ALARM ), & CALL wrf_error_fatal ( 'wrf_findCouplingInterval: ESMF_AlarmGet(AUXHIST%d_ALARM) failed' ) IF ( .NOT. foundcoupling ) THEN CALL nl_get_io_form_auxinput%d( 1, io_form ) IF ( use_package( io_form ) == IO_ESMF ) THEN IF ( rc /= ESMF_SUCCESS ) THEN foundcoupling = .TRUE. ENDIF CALL nl_get_io_form_auxhist%d( 1, io_form ) rconfig logical override_restart_timers namelist,time_control 1 .false. rconfig character aux%s%d_inname %s %s "aux%s%d_d_" rconfig character aux%s%d_outname %s %s "aux%s%d_d_" Registrynamelist,time_controlmax_domainsio_boilerplate_temporary.incstate integer aux%s%d_oid - - - - - "" "" "" 1rconfig integer aux%s%d_interval_y %s %s 0 rconfig integer aux%s%d_interval_d %s %s 0 rconfig integer aux%s%d_interval_h %s %s 0 rconfig integer aux%s%d_interval_m %s %s 0 rconfig integer aux%s%d_interval_s %s %s 0 rconfig integer aux%s%d_interval %s %s 0 rconfig integer aux%s%d_begin_y %s %s 0 rconfig integer aux%s%d_begin_d %s %s 0 rconfig integer aux%s%d_begin_h %s %s 0 rconfig integer aux%s%d_begin_m %s %s 0 rconfig integer aux%s%d_begin_s %s %s 0 rconfig integer aux%s%d_begin %s %s 0 rconfig integer aux%s%d_end_y %s %s 0 rconfig integer aux%s%d_end_d %s %s 0 rconfig integer aux%s%d_end_h %s %s 0 rconfig integer aux%s%d_end_m %s %s 0 rconfig integer aux%s%d_end_s %s %s 0 rconfig integer aux%s%d_end %s %s 0 rconfig integer io_form_aux%s%d %s %s 0 rconfig integer frames_per_aux%s%d %s %s 999999  fQint 2 v|fpv}vvfnv|  0  #2 # # # # #( #0 #8 #@ #H #P #X #`~ #h #p2 #t2 #x # # # # &# /# 0# 1# 2# 3# 5#2 7#  #~ # #2    ,2fpv~dirv~auxvvv~i2v~j2v~2fpv~auxv~v~#v}i2v}2/fpv{dirvyauxv{v{vyi2vyj2vy/2/fpvp1auxv1v1)v2i2vHJ2JfpvpLauxvLvLvMi2vHe2_efpvhgauxv@gv@gv@hi2vPx2cxfpvxzauxvzvzv{i2v2fpvxauxv@v@v@i2vP2fpvhauxvPvPtvPi2vP2fpvhauxvPvPvPi2vP2fpvpauxvPvP\vPi2vP2fpvpauxvPvPvPi2vP2fpvpauxv`v`D v`i2v`2hfpvhauxv`v` v`i2v`2hfpvhi2v 2 fpvp"i2vG2 Ifpv}Jv|K vwLfnv|MauxvwMv}M vwNv|Ov|Pi2v{Pj2v{ /usr/include/usr/include/bits/gpfs/dell1/usrx/local/prod/intel/2018UP01/compilers_and_libraries_2018.1.163/linux/compiler/includegen_streams.çstdio.hlibio.htypes.h .; : I' @? ; : I4; : I4; : II$ >  &I ; : I ; :  ; : 8I ;: 8II !/ I !/; : I.;: I' @? ;: I4;: I4;: I.;: I@? x AC ^IAAAA*AA*AA*AA*AA*AA*AA*AA*AA*AA*AAAAAAAAAAAARA,AC \hA,AC \A,/AC \ A$AC $AC ,_AC e4A$cAC ^$AC ,AC SA,AC SA$AC ,AC SA$AC ,hAC SOA,hAC SOA$AC 4 AC JAA A/gpfs/dell2/emc/modeling/noscrub/George.Gayno/sref2dell/wrf_shared.v1.1.0/toolsgen_streams.cIntel(R) C Intel(R) 64 Compiler for applications running on Intel(R) 64, Version 18.0.1.163 Build 20171018 -DIWORDSIZE=4 -DMAX_HISTORY=25 -c -ggen_streamschardirnameFILE_IO_FILE_flags_IO_read_ptr_IO_read_end_IO_read_base_IO_write_base_IO_write_ptr_IO_write_end_IO_buf_base_IO_buf_end_IO_save_base_IO_backup_base_IO_save_end_markers_IO_marker_next_sbuf_pos_chain_fileno_flags2_old_offset__off_tlong_cur_columnunsigned short_vtable_offset_shortbuf_lock_IO_lock_tvoid__off64_t__pad1__pad2__pad3__pad4__pad5size_tunsigned long_mode_unused2fnamegen_io_domain_defsstreamtypestreamnogen_set_timekeeping_defsgen_set_timekeeping_alarmsgen_io_form_for_datasetgen_io_form_for_streamgen_switches_and_alarmsgen_check_auxstream_alarmsgen_fine_stream_inputgen_med_auxinput_ingen_med_hist_out_opensgen_med_hist_out_closesgen_med_auxinput_in_closesgen_med_last_solve_iogen_shutdown_closesgen_med_open_esmf_callsgen_med_find_esmf_couplinggen_io_boilerplatehowsetmaxdx AC ^IAAAA*AA*AA*AA*AA*AA*AA*AA*AA*AA*AAAAAAAAAAAARA,AC \hA,4AC \A,d/AC \ A$AC $AC ,_AC e4A$cAC ^$<AC ,dAC SA,AC SA$AC ,AC SA$AC ,DhAC SOA,thAC SOA$AC 4 AC JAA Agen_streams.c.strtab.symtab.data.bss.text.rodatagen_streamsstrlensprintffopenprint_warninggen_io_domain_defsclose_the_filegen_set_timekeeping_defsgen_set_timekeeping_alarmsgen_io_form_for_datasetgen_io_form_for_streamgen_switches_and_alarmsgen_check_auxstream_alarmsgen_fine_stream_inputgen_med_auxinput_ingen_med_hist_out_opensgen_med_hist_out_closesgen_med_auxinput_in_closesgen_med_last_solve_iogen_med_open_esmf_callsgen_med_find_esmf_couplinggen_shutdown_closesfprintfgen_io_boilerplate.note.GNU-stack.debug_info.debug_line.debug_abbrev.debug_frame.debug_str.eh_frame.debug_info_seg.rela.text.rela.debug_info.rela.debug_line.rela.debug_frame.rela.eh_frame. Dc  $ (%:OZ ,p  $ (Qf{ H  $  (*} d   $9K (V | 7K $ew (   ? cw $ (+6 Lk  $ (-BWb x  $ ( Y n       $ ' (2        ' $A S (^        ? S $m  (     $( A e y $  (   ) @?X | $ (   5@ XVo  $ ("7!LW pm  $ (9N"cn   $ ( Pe#z   (9 0N 4^ 8 ( < D L,$> N$` p$ $ $ $ $* l$~ ($ 0$ <${ 0 4 8 ($ <2 DS X$ |$ +$= s$ $  $ 0K$] T$ x$ #$5 k$} $ $  ,C$U P$ t$ $ 0 4 8 (; <I Dx  $ 5$O  $ ?$Y $ @I $c  $!  D!$Z! !$! `;"$Q" "$" #$# @ T#$f# 8v#$# d#$# #$# #$# #$$ $$$ %$% @%$% |&$(& &$& '$2' 0'$' pF($`(  ($)  A)$W) ` )$)  *$*  Z*$l* |*$* *$* *$* 0*$* +$+ P+$+  ,$$, ,$, -$.- ,-$- d.$2. .$. ./$H/ @ /$/ 0$-0  0$0 0$0  1$01 @1$R1 b1$t1 1$1 H1$1 1$1 ` 2$"2  22$D2  z2$2 2$2  2$2 83$3 d(3$:3 J3$p3 3$3 3$3 (3$3 T3$3 3$3  4$4 (4$44 D4$q4 844 L4$4 |4$4 4$4 5$#5 35$?5 O5$[5 k5$5 5$5 5$5 05$5 T5$5 `6$6 !6$-6 =6$I6 Y6$6 866 6$6 |6$6 7$7 '7$87  H7$T7 d7$p7 7$7 7$7 7$7 7$7 @ 8$68 $U8$a8 T8$8 8$8 8$8 , 9$69 DK9$W9 l9$x9 h9$9 `9$9 9$9 9$9 :$4: I:$U: j:$v: :$:  :$: :$: :$: ;$; !;$-; =;$\; @l;$x; ;$; ;$; @;$; 0 <$< #<$/< D<$P< `e<$v< l <$< <$< t <$<  <$= !.=$:=  O=$[= !u=$= !=$= `!=$> #>$%> ":>$F> `"`>$l> ,#>$> ">$> #?$ ? #!?$-? #B?$N? ($c?$o? H$?$? l$?$? !?$@ $@$!@ $;@$G@ <%\@$h@ H$x@$@ l$@$@ `%@$@ % A$A ('A$eA &A$A 'A$A  (B$ B P('B$3B &HB$TB &nB$zB p(B$B (B$B (B$B (C$C  (*C$6C (PC$\C @'qC$}C 'C$C )C$C (C$C (C$4D D+DD$PD h+eD$qD +D$D `)D$D )D$D +D$D *D$E E$#E +3E$?E  ,OE$[E (kE$wE D+E$E ,E$E +E$E *E$E )F$ F +F$)F *>F$JF ZF$fF +vF$F  ,F$F (F$F d-F p-F -F -G%G IG]G $wGG (GGG `, H$KH (YH <H -H$H ,H -CI$]I  -vI -I$I -,J$>J .J$J H.J$K t.XK$jK .K$K . L$2L .L$L $/L$L P/LM$^M |/M$M /N$&N /xN$N 0N$N (0.O$@O P0O$O x0O$O 06P$HP 0P$P 0P -P$P 14 C n r v?    @ + V Z ^ 2A     A   DG 8K 8O Fs     K R fQ  4 8d h0 _3 t5 7 8< @K;d h< = > ? @D H2At xA D F 8h0_3t578@K;h<=>? @H2AxADF@ %*hQ08U`1  '3UDAN0WYsB~Y8 H` 9