From c0691f1eb05e1925d595c905a2e8063ce7091e84 Mon Sep 17 00:00:00 2001 From: "Adrian K. Turner" Date: Mon, 1 Feb 2021 18:32:49 -0600 Subject: [PATCH] Improved error messages when zTin < Tmin --- column/ice_therm_vertical.F90 | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/column/ice_therm_vertical.F90 b/column/ice_therm_vertical.F90 index f2f3cc4427d1..d2ad23be29f3 100644 --- a/column/ice_therm_vertical.F90 +++ b/column/ice_therm_vertical.F90 @@ -964,13 +964,20 @@ subroutine init_vertical_profile(nilyr, nslyr, & endif ! tice_high if (tice_low .and. heat_capacity) then + write(warning,*) ' ' call add_warning(warning) - write(warning,*) 'Starting thermo T < Tmin, layer', k + write(warning,*) 'Starting thermo, zTin < Tmin, layer', k + call add_warning(warning) + write(warning,*) 'k:', k + call add_warning(warning) + write(warning,*) 'zTin =',zTin(k),', Tmin=',Tmin call add_warning(warning) - write(warning,*) 'zTin =', zTin(k) + write(warning,*) 'zSin =',zSin(k) + call add_warning(warning) + write(warning,*) 'hin =',hin call add_warning(warning) - write(warning,*) 'Tmin =', Tmin + write(warning,*) 'zqin =',zqin(k) call add_warning(warning) l_stop = .true. stop_label = "init_vertical_profile: Starting thermo, zTin < Tmin, layer"