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


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


TOTAL                   2443       55019