fortran procedures     lines  characters
________________________________________
ACCRETION                 12         233
AD_FLUX                   38         797
AD_FLUX_F                 14         255
ALLOCATE_ARRAYS          147        2106
APROOT                    10         157
ARPGRID                   18         316
AUTO_CONV                 14         301
BLGRID                    97        1779
BLGRIDMOD                  2          23
BLGRID_PREP               23         406
CALC_MEAN_RHO              7         113
CLEAN_UP                   7         139
DIFFUSE_AND_STEP          20         381
DIFFUSE_AND_STEPX         20         376
DRIZ_EVAP                 25         496
DRIZ_SED                  11         321
DZFDT_TO_DMFDT            12         202
EXNER_TO_Z                 8         129
EXPL                      24         521
F_GET_HITE                12         238
F_GET_HITE3               38         700
F_HUMP                    24         930
F_PARAMIN                  7         186
F_TK                      27        1085
F_WBAR                    14         258
GET_HITE2                 14         207
GRIDTEST                  49         949
GRID_ADAPT                12         194
IMPL                       8         206
INIT_FIELDS               52        1277
INIT_FIELDS_ORIG          38         458
KCNST                      8         105
KICKOFF                    6         113
KINIT                     41         598
KIOMOD                     5          94
KOLUM                     44         831
KPHYSMOD                   3          34
KVAR                      12         358
MASS_COORDS               17         222
MASS_TO_PRES_TO_EXN        6         123
MICROMOD                   3          34
MICROPHYSICS              29         797
MONO_CORR                 44         905
NOCTURNAL_GRID            17         291
OPEN_TRACE                18         409
POSITIVE_CORR             18         326
POS_DEF                   15         268
PRECIS                     3          61
PRES_TO_MASS               5          78
PROG_TKE                 176        4516
RADIATION                 21         530
READ_A_COLUMN             20         476
READ_NAMELIST_FILE        10         208
READ_RESTART              22         526
REPOINT                    8         125
SAT_ADJ                   28         445
SAT_ICE                   16         414
SAT_WATER                 15         403
STRHGRD                   96        1839
SUBSIDENCE                25         407
TENDENCIES                10         227
TENDENCIES_F              11         245
THV                       24         429
TKE_TO_RHO_K              18         248
TRIDAG                    23         433
UNIFORM_GRID               9         136
UPDATE_TIME                9         140
WRITE_A_COLUMN            14         373
WRITE_A_REAL              14         355
WRITE_HIST                18         457
WRITE_MON                  6         128
WRITE_RESTART             19         494
WRITE_TRACE               11         262
ZFUNC                      7         187
Z_COORDS                  16         206
Z_TO_EXNER_TO_PRES         9         175
________________________________________
fortran TOTAL           1753       35770
########################################


include procedures     lines  characters
________________________________________
.inc                       3          53
allocate.inc             139        1936
charout.inc               32        1176
declare.inc               85        2789
flux_init.inc             13          88
prognosticate.inc         64         965
prognosticate2.inc        28         989
readin.inc               104        4282
repoint.inc               29         553
surface.inc               14         170
writecol.inc              68        1787
writeout.inc             104        4387
zero_tendencies.inc        7          74
________________________________________
include TOTAL            690       19249
########################################


TOTAL                   2443       55019