From c8654a7f652006031269fd8dddfaee58ee927505 Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Thu, 1 Aug 2024 17:43:23 -0700 Subject: [PATCH 1/4] feat(example): increase sat. mix. ratio resolution --- example/supporting-modules/saturated_mixing_ratio_m.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/example/supporting-modules/saturated_mixing_ratio_m.f90 b/example/supporting-modules/saturated_mixing_ratio_m.f90 index 3836dce91..e888f652d 100644 --- a/example/supporting-modules/saturated_mixing_ratio_m.f90 +++ b/example/supporting-modules/saturated_mixing_ratio_m.f90 @@ -37,7 +37,7 @@ module saturated_mixing_ratio_m real, parameter :: freezing_threshold = 273.15 ! [K] real, parameter :: T_min = 236.352524, T_max = 307.610779 real, parameter :: p_min = 29671.1348, p_max = 98596.7578 - integer, parameter :: resolution = 10 + integer, parameter :: resolution = 20 integer i real, parameter :: T(*) = [(real(i)/real(resolution), i=0,resolution)] real, parameter :: p(*) = [(real(i)/real(resolution), i=0,resolution)] From b2f9c2916affee5957e41501538e36f8cc26031f Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Thu, 1 Aug 2024 17:44:07 -0700 Subject: [PATCH 2/4] chore(example): rm unused object --- example/concurrent-inferences.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/example/concurrent-inferences.f90 b/example/concurrent-inferences.f90 index e6aaef9da..996d4c97d 100644 --- a/example/concurrent-inferences.f90 +++ b/example/concurrent-inferences.f90 @@ -20,7 +20,7 @@ program concurrent_inferences end if block - type(inference_engine_t) network, inference_engine + type(inference_engine_t) inference_engine type(tensor_t), allocatable :: inputs(:,:,:), outputs(:,:,:) real, allocatable :: input_components(:,:,:,:) integer, parameter :: lat=263, lon=317, lev=15 ! latitudes, longitudes, levels (elevations) From 4c3c51fbb9c7d700b8d959908c6249422b26a44e Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Thu, 1 Aug 2024 17:44:32 -0700 Subject: [PATCH 3/4] build(fpm): make julienne dev-dependency --- fpm.toml | 2 ++ 1 file changed, 2 insertions(+) diff --git a/fpm.toml b/fpm.toml index 660058e62..d5cb38030 100644 --- a/fpm.toml +++ b/fpm.toml @@ -6,4 +6,6 @@ maintainer = "rouson@lbl.gov" [dependencies] assert = {git = "https://github.com/sourceryinstitute/assert", tag = "1.7.0"} + +[dev-dependencies] julienne = {git = "https://github.com/berkeleylab/julienne"} From 0bc76ea43827f29a03b9fb3c7a641e0f0acb1052 Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Thu, 1 Aug 2024 17:47:03 -0700 Subject: [PATCH 4/4] chore(example): increase layers/mini-batches --- example/learn-saturated-mixing-ratio.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/example/learn-saturated-mixing-ratio.F90 b/example/learn-saturated-mixing-ratio.F90 index 10784e9e4..1302bde97 100644 --- a/example/learn-saturated-mixing-ratio.F90 +++ b/example/learn-saturated-mixing-ratio.F90 @@ -24,7 +24,7 @@ program train_saturated_mixture_ratio call system_clock(counter_start, clock_rate) block - integer, parameter :: max_num_epochs = 10000000, num_mini_batches = 6 + integer, parameter :: max_num_epochs = 10000000, num_mini_batches = 7 integer num_pairs ! number of input/output pairs type(mini_batch_t), allocatable :: mini_batches(:) @@ -35,7 +35,7 @@ program train_saturated_mixture_ratio real, allocatable :: cost(:), random_numbers(:) integer io_status, network_unit, plot_unit integer, parameter :: io_success=0, diagnostics_print_interval = 1000, network_save_interval = 10000 - integer, parameter :: nodes_per_layer(*) = [2, 72, 1] + integer, parameter :: nodes_per_layer(*) = [2, 4, 72, 2, 1] real, parameter :: cost_tolerance = 1.E-08 call random_init(image_distinct=.true., repeatable=.true.)