FIXME notes for starters

fetch4 · Jan 9, 2025 · f390802 · f390802
1 parent b410cf1
commit f390802
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/model/CHEM_DRV.F90 b/model/CHEM_DRV.F90
@@ -2154,6 +2154,7 @@ SUBROUTINE accumGCsubdd
     integer :: previous_units
 
 !    ! 3-D diagnostics of advected tracers on model levels
+!    ! FIXME:? JGW
 !    call find_groups('taijlh',grpids,ngroups)
 !    do igrp=1,ngroups
 !       subdd => subdd_groups(grpids(igrp))
@@ -2185,6 +2186,7 @@ SUBROUTINE accumGCsubdd
     IF ( RC /= GC_SUCCESS ) CALL STOP_MODEL( "CONVERT_SPC_UNITS", 255 )
 
     ! 3-D diagnostics of all tracers (advected and non-advected) on model levels
+    ! FIXME: JGW
     call find_groups('taijlh',grpids,ngroups)
     do igrp=1,ngroups
        subdd => subdd_groups(grpids(igrp))
@@ -2219,6 +2221,7 @@ SUBROUTINE accumGCsubdd
     IF ( RC /= GC_SUCCESS ) CALL STOP_MODEL( "CONVERT_SPC_UNITS", 255 )
 
     ! 2-D diagnostics
+    ! FIXME: JGW
     call find_groups('taijh',grpids,ngroups)
     do igrp=1,ngroups
        subdd => subdd_groups(grpids(igrp))