Skip to content

Commit 717a186

Browse files
committed
Merge branch 'NSF-MPAS/physics_minor_bugs_1' into hotfix-v8.2.1 (PR #1224)
This merge corrects the subroutine name used in two calls to mpas_log_write in mpas_init_atm_thompson_aerosols.F, where "init_atm_gocart" should have been "init_atm_thompson_aerosols". Note that the affected mpas_log_write calls are commented-out and so their messages don't appear in log files by default.
2 parents 48b1934 + ba80002 commit 717a186

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/core_init_atmosphere/mpas_init_atm_thompson_aerosols.F

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,7 @@ subroutine init_atm_thompson_aerosols(block,mesh,configs,diag,state)
5252
logical:: lexist
5353

5454
!-----------------------------------------------------------------------------------------------------------------
55-
!call mpas_log_write('--- enter subroutine init_atm_gocart:')
55+
!call mpas_log_write('--- enter subroutine init_atm_thompson_aerosols:')
5656

5757
!inquire if the GOCART input file exists:
5858
lexist = .false.
@@ -75,7 +75,7 @@ subroutine init_atm_thompson_aerosols(block,mesh,configs,diag,state)
7575
call mpas_log_write('nwfa and nifa are set to zero and not interpolated from climatological data.')
7676
endif
7777

78-
!call mpas_log_write('--- end subroutine init_atm_gocart.')
78+
!call mpas_log_write('--- end subroutine init_atm_thompson_aerosols.')
7979
call mpas_log_write(' ')
8080

8181
end subroutine init_atm_thompson_aerosols

0 commit comments

Comments
 (0)