DSM-f90

Introduction

This repo hosts a discrete-sectional model (DSM) implemented in Fortran 90.

Modules

• discsecpb.f90: main program
• preci.f90: precision configuration
• globals.f90: define the global variables shared between the main program and other modules including funcs, calbeta_mod, xdoteq_mod, ot_mod
• calbeta_common.f90: define the common variables shared between the CALBETA subroutine and other modules including funcs, calbeta_mod, xdoteq_mod
• aux_data_funcs.f90: functions for pulling data
• funcs.f90: functions used in CALBETA subroutine and DTWODQ sobroutine
• quad_glegq.f90: function and subroutine used in CALBETA subroutine
• dtwodq.f90: integral subroutine
• calbeta_mod.f90: determine the coagulation and condensation coefficients in the free molecular regime
• ot_mod.f90: write results to the output file
• xdoteq_mod.f90: determine the differential equations required by RK45
• rk45_init0.f90: Runge-Kutta integration scheme

Module calling tree

discsecpb (discsecpb.f90)
        |-- TEMPHIST(aux_data_funcs.f90)
        |-- MTSAT(aux_data_funcs.f90)
        |-- RTDATA(aux_data_funcs.f90)
        |-- NUCLDATA(aux_data_funcs.f90)
        |-- CALBETA(calbeta_mod.f90)
                 |-- QUAD(quad_glegq.f90)
                         |-- GLEGQ(quad_glegq.f90)
                         |-- FX(funcs.f90)
                 |-- DTWODQ(dtwodq.f90)
                         |-- F(funcs.f90)
                         |-- G(funcs.f90)
                         |-- H(funcs.f90)
        |-- OT(ot_mod.f90)
        |-- INIT0(rk45_init0.f90)
        |-- TEMPHIST(aux_data_funcs.f90)
        |-- MTSAT(aux_data_funcs.f90)
        |-- RTDATA(aux_data_funcs.f90)
        |-- NUCLDATA(aux_data_funcs.f90)
        |-- RK45(rk45_init0.f90)
                 |-- XDOTEQ(xdoteq_mod.f90)
                 |-- INIT0(rk45_init0.f90)
        |-- OT(ot_mod.f90)

Inputs

• SYSOPH.DAT includes:
• TMPHIST.DAT includes:

Outputs

• output.dat:
• confc.dat: