From b6792036ac56e939121e049a8c11e3658a3e4492 Mon Sep 17 00:00:00 2001 From: Dustin Swales Date: Mon, 6 Jan 2020 14:40:49 -0700 Subject: [PATCH] Fixed error in previous commit. --- physics/radlw_main.f | 6 +++--- physics/radlw_main.meta | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) 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