From 929b59cfd7fe3df54962d70eef32e1603a502b26 Mon Sep 17 00:00:00 2001 From: Michael Levy Date: Thu, 30 Mar 2023 12:35:55 -0600 Subject: [PATCH] Need if statement for advertising ndep dshr_fldList_add needs the ugridded_lbound and ugridded_ubound arguments for Faxa_ndep, so I added it to the if statement that handles Faxa_bcph, Faxa_ocph, Faxa_dstwet, and Faxa_dstdry. --- docn/docn_import_data_mod.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/docn/docn_import_data_mod.F90 b/docn/docn_import_data_mod.F90 index 13273625..cb7d9513 100644 --- a/docn/docn_import_data_mod.F90 +++ b/docn/docn_import_data_mod.F90 @@ -47,6 +47,8 @@ subroutine docn_import_data_advertise(importState, fldsimport, flds_scalar_name, call dshr_fldList_add(fldsImport, trim(fieldnamelist(n)), ungridded_lbound=1, ungridded_ubound=3) else if (trim(fieldnamelist(n)) == 'Faxa_dstwet' .or. trim(fieldnamelist(n)) == 'Faxa_dstdry') then call dshr_fldList_add(fldsImport, trim(fieldnamelist(n)), ungridded_lbound=1, ungridded_ubound=4) + else if (trim(fieldnamelist(n)) == 'Faxa_ndep') then + call dshr_fldList_add(fldsImport, trim(fieldnamelist(n)), ungridded_lbound=1, ungridded_ubound=2) else call dshr_fldList_add(fldsImport, trim(fieldnamelist(n))) end if