win_appl.f90

!*****************************************************************!
!*                                                               *!
!*              4C (FORESEE) Simulation Model                    *!
!*                                                               *!
!*                    Subroutines for:                           *!
!*                                                               *!
!*    - topmenu_win:   calls the dialog windows					 *!
!*					   controls the application flow	         *!
!*                                                               *!
!*   - control functions: start  - ok button control			 *!
!*						  cancel - exits the application, cancel *!
!*								   button						 *!
!*                        stepback - back button control		 *!
!*                                                               *!
!*                  Copyright (C) 1996-2018                      *!
!*     Potsdam Institute for Climate Impact Reserach (PIK)       *!
!*          Authors and contributors see AUTHOR file             *!
!*  This file is part of 4C and is licensed under BSD-2-Clause   *!
!*                   See LICENSE file or under:                  *!
!*     http://www.https://opensource.org/licenses/BSD-2-Clause   *!
!*                           Contact:                            *!
!*       https://gitlab.pik-potsdam.de/XXXXXXXXXXXXXXXXXXXXX     *!
!*                                                               *!                 
!*****************************************************************!

SUBROUTINE topmenu_win 

USE dflogm

INCLUDE '4C_dialogs.fd'

TYPE (DIALOG)  dlg_main
integer(4) retint

	call InitMain(dlg_main)

end subroutine topmenu_win

!***************************************************************
!****** Control Functions **************************************
!***************************************************************
SUBROUTINE Start ( dlg, id, callbacktype )

use dflogm
use dflib

use data_simul
use data_stand
use flag_field


implicit none

type (dialog) dlg, dlg_default_dir
integer id
integer callbacktype
integer retint

include '4C_dialogs.fd'

logical retlog, push_state
character :: text = 'Simulation control file: '
character :: text_mes = 'Measurement file: '
integer id_ctr
!Settings for FileOpen
character*(*),parameter :: filter_spec = &
						  "Simulation control files (*.sim)"C//"*.sim"C// &
						"All Files (*)"C//"*"C//""C
character(512) filename