From 9b864aff27231bf11a86137d567dcd120e4ab725 Mon Sep 17 00:00:00 2001
From: Rolf Heilemann Myhre <rolfhm@met.no>
Date: Fri, 9 Dec 2022 09:45:27 +0100
Subject: [PATCH] start testprogs stuff
---
src/testprogs/rain_ice_old/main_rain_ice_old.F90 | 7 +++----
tools/check_commit_testprogs.sh | 4 ++--
2 files changed, 5 insertions(+), 6 deletions(-)
diff --git a/src/testprogs/rain_ice_old/main_rain_ice_old.F90 b/src/testprogs/rain_ice_old/main_rain_ice_old.F90
index 0440a747f..90a431898 100644
--- a/src/testprogs/rain_ice_old/main_rain_ice_old.F90
+++ b/src/testprogs/rain_ice_old/main_rain_ice_old.F90
@@ -45,10 +45,9 @@ program main_rain_ice_old
real, allocatable, dimension(:,:) :: pinprh, pinprh_out
- !Dummies for now
- !Spp stuff
+ !spp stuff
real, allocatable, dimension(:,:) :: picenu, pkgn_acon, pkgn_sbgr
- !Ocnd2 stuff
+ !ocnd2 stuff
real, allocatable, dimension(:,:,:) :: picldfr ! Ice cloud fraction
real, allocatable, dimension(:,:,:) :: pifr ! Ratio cloud ice moist part to dry part
real, allocatable, dimension(:,:,:) :: pssio ! Super-saturation with respect to ice in the supersaturated fraction
@@ -331,7 +330,7 @@ subroutine init_rain_ice_old(kulout)
implicit none
- integer, intent (in) :: kulout
+ integer, intent (in) :: kulout
character(len=4) :: c_micro
diff --git a/tools/check_commit_testprogs.sh b/tools/check_commit_testprogs.sh
index b94833cfb..f009e90e4 100755
--- a/tools/check_commit_testprogs.sh
+++ b/tools/check_commit_testprogs.sh
@@ -12,7 +12,7 @@ set -e
#ref is commit 855b8f8 for ice_adjust, rain_ice, turb and shallow_mf
specialName="ref"
-availTests="ice_adjust,rain_ice"
+availTests="ice_adjust,rain_ice,rain_ice_old"
defaultTest='ALL'
separator='_' #- seprator must be in sync with prep_code.sh separator
@@ -182,7 +182,7 @@ if [ $compilation -eq 1 ]; then
else
expand_options=""
fi
- subs="$subs -s turb -s micro -s aux -s ice_adjust -s rain_ice -s support"
+ subs="$subs -s turb -s micro -s aux -s ice_adjust -s rain_ice -s rain_ice_old -s support"
prep_code=$PHYEXTOOLSDIR/prep_code.sh
if [ "$fromdir" == '' ]; then
--
GitLab