diff --git a/physics/radlw_main.f b/physics/radlw_main.f index 34cc389cb..bc3c56091 100644 --- a/physics/radlw_main.f +++ b/physics/radlw_main.f @@ -390,7 +390,7 @@ subroutine rrtmg_lw_run & & gasvmr_ch4, gasvmr_o2, gasvmr_co, gasvmr_cfc11, & & gasvmr_cfc12, gasvmr_cfc22, gasvmr_ccl4, & & icseed,aeraod,aerssa,sfemis,sfgtmp, & - & dzlyr,delpin,de_lgth,xlon,xlat, & + & dzlyr,delpin,de_lgth, lon, lat, & & npts, nlay, nlp1, lprnt, cld_cf, lslwr, & & hlwc,topflx,sfcflx,cldtau, & ! --- outputs & HLW0,HLWB,FLXPRF, & ! --- optional @@ -589,7 +589,7 @@ subroutine rrtmg_lw_run & & cld_od real (kind=kind_phys), dimension(npts), intent(in) :: sfemis, & - & sfgtmp, de_lgth, xlon, xlat + & sfgtmp, de_lgth, lon, lat real (kind=kind_phys), dimension(npts,nlay,nbands),intent(in):: & & aeraod, aerssa @@ -1169,7 +1169,7 @@ subroutine rrtmg_lw_run & do k=1,nlay write(47,"(23f8.2)") plyr(iplon,k),clwp(k),relw(k),ciwp(k), & - & reiw(k),taucld(:,k),xlon(k),xlat(k) + & reiw(k),taucld(:,k),lon(iplon),lat(iplon) enddo diff --git a/physics/radlw_main.meta b/physics/radlw_main.meta index 1d8a08fb3..91dabd663 100644 --- a/physics/radlw_main.meta +++ b/physics/radlw_main.meta @@ -207,7 +207,7 @@ kind = kind_phys intent = in optional = F -[xlon] +[lon] standard_name = longitude long_name = longitude units = radians @@ -216,7 +216,7 @@ kind = kind_phys intent = in optional = F -[xlat] +[lat] standard_name = latitude long_name = latitude units = radians