Merge pull request #74 from GEOS-ESM/hotfix/tclune/#71-fix-format

Fixes #71  - Format statement broken for ntracers > 1

Author: mathomp4

AdvCore_GridCompMod.F90

@@ -219,7 +219,7 @@ subroutine SetServices(GC, rc)
 
 ! 3D Tracers
      do ntracer=1,ntracers
-        write(myTracer, "('TEST_TRACER',i1.1)") ntracer-1
+        write(myTracer, "('TEST_TRACER',i5.5)") ntracer-1
         call MAPL_AddExportSpec ( gc,                             &
              SHORT_NAME = TRIM(myTracer),                         &
              LONG_NAME  = TRIM(myTracer),                         &
@@ -811,7 +811,7 @@ subroutine Run(GC, IMPORT, EXPORT, CLOCK, RC)
                advTracers(N)%content    = TRACERS(:,:,:,N)
             end if
 ! Fill Export States
-            write(myTracer, "('TEST_TRACER',i1.1)") N-1
+            write(myTracer, "('TEST_TRACER',i5.5)") N-1
             call MAPL_GetPointer(EXPORT, temp3D, TRIM(myTracer), rc=status)
             VERIFY_(STATUS)
             if ((associated(temp3D)) .and. (N<=ntracers)) then

DynCore_GridCompMod.F90

@@ -1593,7 +1593,7 @@ Subroutine SetServices ( gc, rc )
 
      do ntracer=1,ntracers
         do nlev=1,nlevs
-           write(myTracer, "('Q',i1.1,'_',i3.3)") ntracer-1, plevs(nlev)
+           write(myTracer, "('Q',i5.5,'_',i3.3)") ntracer-1, plevs(nlev)
            call MAPL_AddExportSpec ( gc,                             &     
                 SHORT_NAME = TRIM(myTracer),                              &
                 LONG_NAME  = TRIM(myTracer),                             &
@@ -1602,7 +1602,7 @@ Subroutine SetServices ( gc, rc )
                 VLOCATION  = MAPL_VLocationNone,               RC=STATUS  )
            VERIFY_(STATUS)
         enddo
-        write(myTracer, "('Q',i1.1)") ntracer-1
+        write(myTracer, "('Q',i5.5)") ntracer-1
         call MAPL_AddExportSpec ( gc,                             &
              SHORT_NAME = TRIM(myTracer),                         &
              LONG_NAME  = TRIM(myTracer),                         &
@@ -4360,7 +4360,7 @@ subroutine Run(gc, import, export, clock, rc)
 
 
       do ntracer=1,ntracers
-         write(myTracer, "('Q',i1.1)") ntracer-1
+         write(myTracer, "('Q',i5.5)") ntracer-1
          call MAPL_GetPointer(export, temp3D, TRIM(myTracer), rc=status)
          VERIFY_(STATUS)
          if((associated(temp3d)) .and. (NQ>=ntracer)) then
@@ -6367,7 +6367,7 @@ subroutine RunAddIncs(gc, import, export, clock, rc)
     if(associated(temp3d)) temp3d = (tempxy)*(p00/(0.5*(vars%pe(:,:,1:km)+vars%pe(:,:,2:km+1))))**kappa
 
       do ntracer=1,ntracers
-         write(myTracer, "('Q',i1.1)") ntracer-1
+         write(myTracer, "('Q',i5.5)") ntracer-1
          call MAPL_GetPointer(export, temp3D, TRIM(myTracer), rc=status)
          VERIFY_(STATUS)
          if((associated(temp3d)) .and. (STATE%GRID%NQ>=ntracer)) then