From e7cbf8e8568a943f0e3e65d520bb2faf437ba082 Mon Sep 17 00:00:00 2001 From: Petra Lasch-Born <lasch@pik-potsdam.de> Date: Wed, 12 Dec 2018 16:59:23 +0100 Subject: [PATCH] Eine Neue Datei hochladen --- .../version2.2_windows/main_4c_cons_win.f90 | 38 +++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 source_code/version2.2_windows/main_4c_cons_win.f90 diff --git a/source_code/version2.2_windows/main_4c_cons_win.f90 b/source_code/version2.2_windows/main_4c_cons_win.f90 new file mode 100644 index 0000000..93a0324 --- /dev/null +++ b/source_code/version2.2_windows/main_4c_cons_win.f90 @@ -0,0 +1,38 @@ +!*****************************************************************! +!* *! +!* 4C (FORESEE) Simulation Model *! +!* *! +!* *! +!* Subroutines for: *! +!* - windows shell - *! +!* *! +!* contains: *! +!* main program for 4C *! +!* *! +!* 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 *! +!* *! +!*****************************************************************! + + PROGRAM foresee + + USE data_simul + + real time1, time2 + + call CPU_time (time1) + call Act_Dir(actDir) + + CALL topmenu_win + call CPU_time (time2) + + print *, ' 4C total run time ', time2-time1, ' sec' + + END PROGRAM foresee + -- GitLab