DynCore can read AK-BK through the configure file, but not the AdvCore. To provide AdvCore with such function, we can create a reading subroutine shared by both cores. Or, we can simply copy those lines from Dyncore to AdvCore.
|
call ESMF_ConfigFindLabel( cf, 'AK:', isPresent=isPresent, rc = status ) |
|
VERIFY_(STATUS) |
|
if (isPresent) then |
|
do L = 0, SIZE(AK)-1 |
|
call ESMF_ConfigNextLine ( CF, rc=STATUS ) |
|
call ESMF_ConfigGetAttribute( cf, AK(L), rc = status ) |
|
VERIFY_(STATUS) |
|
enddo |
|
else |
|
ak_is_missing = .true. |
|
endif |
|
|
|
call ESMF_ConfigFindLabel( cf, 'BK:', isPresent=isPresent, rc = status ) |
|
VERIFY_(STATUS) |
|
if (isPresent) then |
|
do L = 0, SIZE(bk)-1 |
|
call ESMF_ConfigNextLine ( CF, rc=STATUS ) |
|
call ESMF_ConfigGetAttribute( cf, BK(L), rc = status ) |
|
VERIFY_(STATUS) |
|
enddo |
|
else |
|
bk_is_missing = .true. |
|
endif |
@tclune
