Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
FORESEE
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Redmine
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Container Registry
Model registry
Operate
Environments
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
4C
FORESEE
Merge requests
!1
remove main_4c file
Code
Änderungen prüfen
Branch auschecken
Herunterladen
Patches
Unformatierter Diff
Closed
remove main_4c file
cherry-pick-f1d9f851
into
master
Overview
0
Commits
1
Pipelines
0
Changes
1
Closed
Mats Nieberg
requested to merge
cherry-pick-f1d9f851
into
master
5 years ago
Overview
0
Commits
1
Pipelines
0
Changes
1
Expand
remove second main file which is intended for the unix version
(cherry picked from commit
f1d9f851
)
0
0
Merge request reports
Compare
master
master (base)
and
latest version
latest version
661679b2
1 commit,
5 years ago
1 file
+
0
−
36
Inline
Compare changes
Side-by-side
Inline
Show whitespace changes
Show one file at a time
source_code/version_2.3_windows/main_4c.f deleted
100644 → 0
+
0
−
36
Options
PROGRAM
foresee
! main program for 4C
! Unix Version
! 14.10.04 Su aktuelles Directory (actDir) hier bestimmen
! 16.08.04 Su Schleife ueber run_nr in UP sim_control (File simul.f)
! 24.03.03 pl Aufruf finish_simul fr flag_end>0
! 02.12.02 MF Aufruf SimEnv
! 30.07.02 MF Aufruf SIMENV
! 29.05.02 Su ip-Schleife fuer SIMENV (flag_multi=5) ueberspringen
! call simenv mit Uebergabe von ip
! 26.04.02 Su call out_var_file
! 21.11.01 Su flag_end=2 testen
! 14.05.01 FB call fixclimscen added
! 18.12.97 BE new structure/name
! 11.12.97 BE include same changes for multi_runs
! 27.8.97 BE insert SIM_INI
! 26.8.97 BE insert DO-LOOP for whole program, until choice=end program
! 20.3.97 BE Erweiterung/Umstrukturierung Protokollfile
! USE data_out
USE
data_simul
! USE data_stand
! USE data_species
! IMPLICIT NONE
! INTEGER run_nr, ipp
actDir
=
''
CALL
prepare_global
CALL
sim_control
END
PROGRAM
foresee
Loading