Skip to content
This repository was archived by the owner on Oct 23, 2020. It is now read-only.

Commit 1873fab

Browse files
committed
Remove excessive auto-inserted use statements
This commit removes four "use" statements that are auto-inserted into inc/namelist_defines.inc 86 times. This file is included in mpas_$CORE_core_interface.F. The ocean, sea ice, and land ice components have these four use statements at the top as well, which causes a compile bug for intel 17 in the ocean. Martyn Corden, an intel compile developer, recommended single use statements before "contains" to speed up compilation time. The atmosphere will need to add the use statements to the top of src/core_init_atmosphere/mpas_init_atm_core_interface.F
1 parent e375a9e commit 1873fab

File tree

1 file changed

+0
-4
lines changed

1 file changed

+0
-4
lines changed

src/tools/registry/gen_inc.c

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -589,10 +589,6 @@ int parse_namelist_records_from_registry(ezxml_t registry)/*{{{*/
589589

590590
// Start defining new subroutine for namelist record.
591591
fortprintf(fd, " subroutine %s_setup_nmlrec_%s(configPool, unitNumber, dminfo)\n", core_string, nmlrecname);
592-
fortprintf(fd, " use mpas_derived_types\n");
593-
fortprintf(fd, " use mpas_dmpar\n");
594-
fortprintf(fd, " use mpas_pool_routines\n");
595-
fortprintf(fd, " use mpas_io_units\n");
596592
fortprintf(fd, " implicit none\n");
597593
fortprintf(fd, " type (mpas_pool_type), intent(inout) :: configPool\n");
598594
fortprintf(fd, " integer, intent(in) :: unitNumber\n");

0 commit comments

Comments
 (0)