change associated to size for a couple variables in GFS_diagnostics a…

…nd add one small change to atmos_cubed_sphere

.gitmodules

@@ -1,7 +1,9 @@
 [submodule "atmos_cubed_sphere"]
   path = atmos_cubed_sphere
-  url = https://github.com/NOAA-GFDL/GFDL_atmos_cubed_sphere
-  branch = dev/emc
+  #url = https://github.com/NOAA-GFDL/GFDL_atmos_cubed_sphere
+  #branch = dev/emc
+  url = https://github.com/grantfirl/GFDL_atmos_cubed_sphere
+  branch = feature/fix_check_all_zero_alloc
 [submodule "ccpp/framework"]
   path = ccpp/framework
   #url = https://github.com/NCAR/ccpp-framework

ccpp/driver/GFS_diagnostics.F90

@@ -931,7 +931,7 @@ subroutine GFS_externaldiag_populate (ExtDiag, Model, Statein, Stateout, Sfcprop
 
 !--- air quality diagnostics ---
   if (Model%cplaqm) then
-    if (associated(IntDiag(1)%aod)) then
+    if (size(IntDiag(1)%aod) > 0) then
       idx = idx + 1
       ExtDiag(idx)%axes = 2
       ExtDiag(idx)%name = 'aod'
@@ -1887,7 +1887,7 @@ subroutine GFS_externaldiag_populate (ExtDiag, Model, Statein, Stateout, Sfcprop
     enddo
     endif
 
-    if(associated(Coupling(1)%htrlw)) then
+    if(size(Coupling(1)%htrlw) > 0) then
     idx = idx + 1
     ExtDiag(idx)%axes = 3
     ExtDiag(idx)%name = 'htrlw'