# Type of Ground Cover

  ---------------------------- ------------------------------------------
  *Symbol (code)*              *Ground cover*

  01                           Grass

  02                           Fallow

  03                           Bare ground

  04                           Brome grass

  05                           Sod

  06                           Straw mulc

  07                           Grass Mulc

  08                           Bare muck

  09 or 00                     Unknown ground cover
  ---------------------------- ------------------------------------------

# Depth of the Soil layers

  ------------------------------ ----------------------------------------
  *Symbol (code)*                *Depth*

  1                              2 inches or 5cm

  2                              4 inches or 10cm

  3                              8 inches or 20cm

  4                              20 inches or 50cm

  5                              40 inches or 100cm
  ------------------------------ ----------------------------------------

Data observation time

  --------------------- -------------------------------------------------
  *Symbol (code)*       *observation time*

  1                     maximum soil temperature

  2                     minimum soil temperature

  3                     observed at 7:00am (very few 6:00am)

  4                     observed at 8:00am

  5                     observed at noon

  6                     observed at 17:00pm

  7                     observed at 18:00pm
  --------------------- -------------------------------------------------

Data flags

+---------+------------------------------------------------------------+
| Flag    | Meaning of the flag                                        |
+---------+------------------------------------------------------------+
| 1       | Internal inconsistent problem                              |
|         |                                                            |
|         | such as Tmin\<Tmax or                                      |
|         |                                                            |
|         | outside the world limit                                    |
+---------+------------------------------------------------------------+
| 2       | Failure spike check                                        |
+---------+------------------------------------------------------------+
| 6       | Failure the limited check (Meek's rule)                    |
+---------+------------------------------------------------------------+
| 7       | Failure the rate-of-chance limit (Meek's rule)             |
+---------+------------------------------------------------------------+
| 9       | Missing value                                              |
+---------+------------------------------------------------------------+
| 0       | Valid                                                      |
+---------+------------------------------------------------------------+

The following is the Fortran code for read the data

character nsta\*6,ground_cover\*5,ngc\*5

integer nt(31),flag(31)I,num

integer year,month,layer,observation_time

c ngc is the number of ground cover type in current station

open(10,file=\'st01.dat\') ! Please change the state name when needed

do istation_number = 1, 2000

read(10,109,end=301)nsta,ground_cover,ngc,num

109 format(1x,a6,2a5,i5)

do i=1,num

read(10,189)year,month,layer,observation_time,

& (nt(j),flag(j),j=1,31)

189. format(i4,i2,2i2,31(i5,i2))

> enddo
>
> cc
> \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
>
> cc you can deal the data you want
>
> end