Merge pull request #2 from wrongkindofdoctor/user/jml/specify_diag_ax…

…is_argument Specify optional long_name argument in atmos_model calls to diag_axis_init
NOAA-GFDL · Mar 13, 2020 · 1490907 · 1490907
2 parents 78d166a + 5a8891a
commit 1490907
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/atmos_model.F90 b/atmos_model.F90
@@ -455,16 +455,16 @@ subroutine atmos_model_init (Atmos, Time_init, Time, Time_step, do_concurrent_ra
 Atmos % lat_bnd(:,:) = glat_bnd(is:ie+1, js:je+1)*atan(1.0)/45.0
 
 if(ntile==1) then
-   Atmos%axes(1) = diag_axis_init('lon',glon(:,1),'degrees_E','X','longitude',&
+   Atmos%axes(1) = diag_axis_init('lon',glon(:,1),'degrees_E','X', long_name='longitude',&
         set_name='atmos',domain2 = Atmos%domain)
 
-   Atmos%axes(2) = diag_axis_init('lat',glat(1,:),'degrees_N','Y','latitude',&
+   Atmos%axes(2) = diag_axis_init('lat',glat(1,:),'degrees_N','Y', long_name='latitude',&
         set_name='atmos',domain2 = Atmos%domain)  
 else
-   Atmos%axes(1) = diag_axis_init('lon',(/(real(i),i=1,nlon)/),'degrees_E','X','longitude',&
+   Atmos%axes(1) = diag_axis_init('lon',(/(real(i),i=1,nlon)/),'degrees_E','X', long_name='longitude',&
         set_name='atmos',domain2 = Atmos%domain)
 
-   Atmos%axes(2) = diag_axis_init('lat',(/(real(i),i=1,nlat)/),'degrees_N','Y','latitude',&
+   Atmos%axes(2) = diag_axis_init('lat',(/(real(i),i=1,nlat)/),'degrees_N','Y',long_name='latitude',&
         set_name='atmos',domain2 = Atmos%domain)  
 endif