Fixed error in previous commit.

climbfuji · Jan 6, 2020 · b679203 · b679203
1 parent 04ad9ed
commit b679203
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git 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
@@ -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