Eine Neue Datei hochladen

source_code/version2.2_windows/win_appl_flags_field.f90

+!*****************************************************************!
+!*                                                               *!
+!*              4C (FORESEE) Simulation Model                    *!
+!*                                                               *!
+!*                    Subroutines for:                           *!
+!*                                                               *!
+!*    - data_general_dlg: module to store the general dlg info	 *!
+!*    - flag_field :      module to store the flags				 *!
+!*    - flags_comments:   module to store the flags commens		 *!
+!*                                                               *!                                 
+!*                                                               *!
+!*                  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     *!
+!*                                                               *!      
+!*****************************************************************!
+
+module data_general_dlg
+	
+	! which way was chosen
+	integer :: id_ctr	
+
+end module
+
+!***********************************************************************
+
+! data module containig the flags changes for the win_appl
+module flag_field
+
+	integer,allocatable,save,dimension(:,:)	::	flagsave
+	character(50), dimension(22) :: flagnames	
+	integer act_run
+
+    end ! module flags_field
+
+!**********************
+    
+!contains all flag comments for the combo-boxes
+module flags_comments
+	character(60), dimension(30) :: flag_mort_com
+	character(60), dimension(30) :: flag_reg_com
+	character(60), dimension(30) :: flag_forska_com
+	character(60), dimension(30) :: flag_stand_com
+	character(60), dimension(30) :: flag_sveg_com
+	character(60), dimension(30) :: flag_mg_com
+	character(60), dimension(30) :: flag_dis_com
+	character(60), dimension(30) :: flag_light_com
+	character(60), dimension(30) :: flag_folhei_com
+	character(60), dimension(30) :: flag_volfunc_com
+	character(60), dimension(30) :: flag_resp_com
+	character(60), dimension(30) :: flag_limi_com
+	character(60), dimension(30) :: flag_decomp_com
+	character(60), dimension(30) :: flag_sign_com
+	character(60), dimension(30) :: flag_wred_com
+	character(60), dimension(30) :: flag_wurz_com
+	character(60), dimension(30) :: flag_cond_com
+	character(60), dimension(30) :: flag_int_com
+	character(60), dimension(30) :: flag_eva_com
+	character(100), dimension(30) :: flag_CO2_com
+	character(60), dimension(30) :: flag_sort_com
+	character(60), dimension(30) :: flag_wpm_com
+	character(60), dimension(30) :: flag_stat_com
+end
+