update to external_ic::remap_scale to skip remapping non-existent IC …

…tracers (NOAA-EMC#159)
LarissaReames-NOAA · Oct 14, 2021 · d1a4235 · d1a4235
1 parent bfcee14
commit d1a4235
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tools/external_ic.F90 b/tools/external_ic.F90
@@ -3084,6 +3084,7 @@ subroutine remap_scalar(Atm, km, npz, ncnst, ak0, bk0, psc, qa, zh, omga, t_in)
 
 ! map tracers
       do iq=1,ncnst
+        if (floor(qa(is,j,1,iq)) == -1000) cycle !skip missing scalars [floor(-999.99) is -1000]
          do k=1,km
             do i=is,ie
                qp(i,k) = qa(i,j,k,iq)