IndexRundeck: P1SoM40Created: Wed May 8 03:30:18 EDT 2024

MODEL_COM
File: MODEL_COM.f
Summary: MODEL_COM Main model variables, independent of resolution
Author : Original Development Team
Version:
Subroutines:
isbeginningaccumperiod

makeearthorbit

makeorbit

makeplanetorbit

Global Variables:
int_months_per_year : used from timeconstants_mod

int_days_per_year : used from timeconstants_mod

abstractorbit : used from abstractorbit_mod

abstractcalendar : used from abstractcalendar_mod

xlabel : character*132
=runID+brief description of run
Used by: | :def_rsf_label | :giss_modele | :init_diag | :input | :new_io_label | :readifile | :run_radonly | :strout | DIAGKS | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag7p | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagij | DIAG_SERIAL:diagil | DIAG_SERIAL:diagj | DIAG_SERIAL:diagjk | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijkmap | DIAG_SERIAL:ijlmap | DIAG_SERIAL:ijmap | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:print_generic_jl | SUBDAILY |
run :
name stored in XLABEL(1:LRUNID)
length :
of crucial beg of module_headers
lrunid : integer

Used by: | :giss_modele | :init_diag | :input | :readifile | :run_radonly | :strout | DIAG_SERIAL:diag7p | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagij | DIAG_SERIAL:diagil | DIAG_SERIAL:diagj | DIAG_SERIAL:diagjk | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijkmap | DIAG_SERIAL:ijlmap | DIAG_SERIAL:ijmap | SUBDAILY |
kocean : integer
: if 0 => specified, if 1 => predicted ocean
Initial Value = 1
Used by: | :advsi | :advsi_diag_ocnml | :daily_seaice | :form_si | :init_lakeice | :init_model | :init_ocean | :init_oceanice | :j_defs | :melt_si | :si_diags | :underice |
lhead : integer
Initial Value = 15
Used by: | :io_atm | :io_clouds | :io_lakes | :io_rad | :io_snow | :io_soils | :io_somtq | :io_straits | :io_veg_related | :io_vegetation |
master_yr : integer
year of simulation. This value will define aero_yr,
Initial Value = 1951
Used by: | :init_model | :init_oceanice | :init_rad | :initializemodele | :run_radonly | ENT_DRV:init_module_ent |
nmonav : integer
number of months in a diagnostic accuml. period
Initial Value = 1
Used by: | :daily_diag | :giss_modele | :init_diag | :init_model | :input |
niprnt : integer
number of instantaneous initial printouts
Initial Value = 1
Used by: | :giss_modele | :init_model |
jmpery :
number of days,months per year
jdpery :
number of days,months per year
jdendofm : integer, dimension(0:INT_MONTHS_PER_YEAR)
(0:12) last Julian day in month
Initial Value = ( /0,31,59,90,120,151,181,212,243,273,304,334,365/)
Used by: | :initializemodele |
jdmidofm : integer, dimension(0:INT_MONTHS_PER_YEAR+1)
(0:13) middle Julian day in month
Initial Value = ( /-15,16,45,75,106,136,167,197,228,259,289,320,350,381/)
Used by: | :initializemodele | AERPARAM_MOD:updateaerosol2 |
amonth : character*4, dimension(0:12)
(0:12) (3-4 letter) names for current,all months
Initial Value = (/'IC ', 'JAN ','FEB ','MAR ','APR ','MAY ','JUNE', 'JULY','AUG ','SEP ','OCT ','NOV ','DEC '/)
Used by: | :getdte | :input | DIAGKS | MDIAG_COM:aperiod |
amon : character*4
(0:12) (3-4 letter) names for current,all months
Initial Value = 'none'
Used by: | :daily_cal | :daily_diag | :def_acc_meta | :diag_river | :init_diag | :strout | DIAGKS | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag7p | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagij | DIAG_SERIAL:diagj | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijmap | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:print_generic_jl |
amon0 : character*4
(3-4 letter) name of first month of the current acc-period
Initial Value = 'none'
Used by: | :def_acc_meta | :diag_river | :init_diag | :input | :reset_mdiag | :strout | DIAGKS | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag7p | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagij | DIAG_SERIAL:diagj | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijmap | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:print_generic_jl |
nday : integer
number of Internal Time Units per day (1 ITU = DTsrc sec)
Used by: | :daily_atm | :daily_cal | :daily_li | :def_acc_meta | :def_rsf_label | :diag_river | :giss_modele | :init_diag | :input | :input_atm | :io_cputime | :new_io_label | :ocean_driver | :reset_mdiag | :sundial | :surface | :write_meta_atmacc | DIAGKS | DIAG_SERIAL:diag4 | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagij | DIAG_SERIAL:diagj | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijmap | SOIL_DRV:daily_earth | SOIL_DRV:earth | SOIL_DRV:ghy_diag | SOIL_DRV:init_veg | SUBDAILY |
nday : integer
number of Internal Time Units per day (1 ITU = DTsrc sec)
Used by: | :daily_atm | :daily_cal | :daily_li | :def_acc_meta | :def_rsf_label | :diag_river | :giss_modele | :init_diag | :input | :input_atm | :io_cputime | :new_io_label | :ocean_driver | :reset_mdiag | :sundial | :surface | :write_meta_atmacc | DIAGKS | DIAG_SERIAL:diag4 | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagij | DIAG_SERIAL:diagj | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijmap | SOIL_DRV:daily_earth | SOIL_DRV:earth | SOIL_DRV:ghy_diag | SOIL_DRV:init_veg | SUBDAILY |
iyear1 : integer
year 1 of internal clock (Itime=0 to 365*NDAY)
Initial Value = -1
Used by: | :daily_cal | :def_rsf_label | :giss_modele | :init_diag | :init_rad | :input | :input_atm | :new_io_label | :readifile | :reset_mdiag | :run_radonly | SUBDAILY |
relate :
internal to calendar time
modeleclock : type(modelclock), public
encapsulates current time with reference to a calendar
Used by: | :advsi_diag_ocnml | :ahourly | :condse | :daily_cal | :daily_ch4ox | :daily_diag | :daily_li | :daily_ocnml_offline | :daily_orbit | :daily_rad | :def_acc_meta | :diag_river | :get_chl_from_seawifs | :giss_modele | :init_diag | :init_oceanice | :init_rad | :input | :read_seaice | :reset_mdiag | :run_radonly | :startnewday | :strout | :sundial | :surface | :surface_landice | :unrdrag | DIAGKS | DIAGKS:diagkn | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag7p | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagij | DIAG_SERIAL:diagj | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijmap | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:print_generic_jl | SOIL_DRV:daily_earth | SOIL_DRV:earth | SOIL_DRV:ghy_diag | SOIL_DRV:init_veg | SUBDAILY |
modeleclocki : type(modelclock), public
encapsulates start time of model run
Used by: | :input |
itime : integer
current time in ITUs (1 ITU = DTsrc sec, currently 1 hour)
Used by: | :advsi_diag_ocnml | :atm_diffus | :check_upper_limit | :checkpointmodele | :condse | :daily_atm | :daily_cal | :daily_ch4ox | :daily_li | :daily_ocnml_offline | :def_acc_meta | :def_rsf_label | :diag_river | :diagca | :giss_modele | :init_diag | :input | :input_atm | :io_cputime | :new_io_label | :ocean_driver | :oceans | :odiff | :print_diags | :read_seaice | :reset_mdiag | :riverf | :run_radonly | :si_diags | :sundial | :surface | :surface_diag1 | :surface_landice | :vpicedyn | ATMDYN:filter | ATMDYN:sdrag | CLOUDS | DIAGKS | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagij | DIAG_SERIAL:diagj | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijmap | DYNAMICS:daily_atmdyn | OCALBEDO_MOD:reflectance | SOIL_DRV:checke | SOIL_DRV:earth | SOIL_DRV:ghy_diag | SOIL_DRV:init_land_surface | SOIL_DRV:init_veg | SUBDAILY |
itimee : integer
time at start,end of run
Used by: | :def_rsf_label | :giss_modele | :init_diag | :input | :input_atm | :new_io_label | :run_radonly |
itimei : integer
time at start,end of run
Used by: | :daily_li | :daily_ocnml_offline | :def_rsf_label | :giss_modele | :init_diag | :init_model | :input | :input_atm | :io_rsf | :new_io_label | :print_diags | :read_seaice | :sundial | DIAGKS | DYNAMICS:daily_atmdyn |
itime0 : integer
time at start of current accumulation period
Used by: | :def_acc_meta | :def_rsf_label | :diag_river | :giss_modele | :init_diag | :input | :io_cputime | :new_io_label | :reset_mdiag | DIAGKS | DIAG_SERIAL:diag4 | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagij | DIAG_SERIAL:diagj | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijmap | SUBDAILY |
jhour0 : integer
date-info about Itime0 (beg.of acc.per)
Used by: | :def_acc_meta | :diag_river | :init_diag | :input | :reset_mdiag | DIAGKS | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagij | DIAG_SERIAL:diagj | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijmap |
jyear0 : integer
date-info about Itime0 (beg.of acc.per)
Used by: | :daily_diag | :def_acc_meta | :diag_river | :giss_modele | :init_diag | :input | :reset_mdiag | :strout | :write_meta_atmacc | DIAGKS | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag7p | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagij | DIAG_SERIAL:diagj | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijmap | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:print_generic_jl |
jdate0 : integer
date-info about Itime0 (beg.of acc.per)
Used by: | :def_acc_meta | :diag_river | :init_diag | :input | :reset_mdiag | :strout | DIAGKS | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag7p | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagij | DIAG_SERIAL:diagj | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijmap | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:print_generic_jl |
jmon0 : integer
date-info about Itime0 (beg.of acc.per)
Used by: | :daily_diag | :giss_modele | :init_diag | :input | :reset_mdiag | :strout | :write_meta_atmacc | DIAGKS | DIAG_SERIAL:jkmap |
yeari : integer
start of model run
Initial Value = -1
Used by: | :input | :readifile | :run_radonly | :sundial |
monthi : integer
start of model run
Initial Value = 1
Used by: | :input | :readifile | :sundial |
datei : integer
start of model run
Initial Value = 1
Used by: | :input | :readifile | :sundial |
houri : integer
start of model run
Initial Value = 0
Used by: | :input | :readifile | :sundial |
yeare : integer
end of model run
Initial Value = -1
Used by: | :input |
monthe : integer
end of model run
Initial Value = 1
Used by: | :input |
datee : integer
end of model run
Initial Value = 1
Used by: | :input |
houre : integer
end of model run
Initial Value = 0
Used by: | :input |
dtsrc : real*8
source time step (s) = 1 ITU
Initial Value = 3600.
Used by: | :advsi | :checkost | :compute_wsave | :condse | :daily_li | :diag_river | :diag_river_prep | :diaggc_prep | :diagj_prep | :diurn_defs | :dynsi | :gc_defs | :giss_modele | :glmelt | :ground_li | :ground_lk | :ground_si | :ijhc_defs | :ijk_defs | :ijl_defs | :init_cld | :init_diag | :init_icedyn | :init_lakes | :init_li | :init_ocean | :init_odiag | :init_rad | :input | :input_atm | :j_defs | :jl_defs | :melt_si | :riverf | :set_con | :sundial | :surface | :surface_diag1 | :surface_diag1a | :underice | ATMDYN:dynam | ATMDYN:init_atmdyn | CLOUDS | CLOUDS:mc_cloud_fraction | DIAG_SERIAL:diagil | DIAG_SERIAL:diagjk | DIAG_SERIAL:ij_mapk | SOIL_DRV:earth | SOIL_DRV:ghy_diag | SUBDAILY |
kcopy : integer
: if 1 => acc, if 3 => +od are saved
Initial Value = 1
Used by: | :giss_modele | :init_model | :io_rsf |
krsf : integer
: .rsf is written at beginning of every KRSF months
Initial Value = 120
Used by: | :giss_modele | :init_model |
ndisk : integer
: DT_saversf = Ndisk *DTsrc fort.1/fort.2 saves
Initial Value = 24
Used by: | :giss_modele | :init_model |
nssw : integer
: DT_checkSsw = Nssw *DTsrc
Initial Value = 1
Used by: | :giss_modele | :init_model |
irand : integer
last seed used by rand.number generator
Initial Value = 123456789
Used by: | :checkpointmodele | :giss_modele | :init_model | :input | :input_atm |
kdisk : integer
next rsf (fort.)1 or 2 to be written to
Initial Value = 1
Used by: | :checkpointmodele | :giss_modele | :input |
rsf_file_name : character(6), parameter, dimension(2)
names of restart files
Initial Value = (/'fort.1','fort.2'/)
Used by: | :checkpointmodele | :find_later_rsf | :giss_modele | :input | :io_rsf |
melse : integer
timing-indices
Used by: | :giss_modele | :input |
mdiag : integer
timing-indices
Used by: | :diag5a | :diag5d | :diag5f | :diag7a | :diaga | :diagb | :diagca | :diagcd | :giss_modele | :input_atm |
msurf : integer
timing-indices
Used by: | :giss_modele | :input_atm | :oceans |
mrad : integer
timing-indices
Used by: | :input_atm |
mcnds : integer
timing-indices
Used by: | :input_atm |
mdyn : integer
timing-indices
Used by: | :diag5d | :diag5f | :diaga | :diagb | :diagcd | :input_atm |
nsampl : integer, parameter
number of diagnostic sampling schemes
Initial Value = 12
idacc : integer, dimension(nsampl)
(NSAMPL) counters for diagn. accumulations
Used by: | :calc_derived_aij | :def_rsf_acc | :diag4a | :diag5a | :diag5f | :diag7a | :diag_river | :diaga | :diagb | :diaggc_prep | :diagj_prep | :init_diag | :input | :input_atm | :new_io_acc | :new_io_glaacc | :oijl_prep | :reset_mdiag | :strout | :surface | :write_meta_atmacc | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag7p | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagij | DIAG_SERIAL:diagil | DIAG_SERIAL:diagj | DIAG_SERIAL:diagjk | DIAG_SERIAL:ij_mapk | DIAG_SERIAL:ijkmap | DIAG_SERIAL:ijlmap | DIAG_SERIAL:print_generic_jl |
iowrite : integer, parameter
Flag used for writing normal restart files
Initial Value = -1
Used by: | :def_rsf_label | :giss_modele | :io_atm | :io_clouds | :io_cputime | :io_lakes | :io_rad | :io_rsf | :io_snow | :io_soils | :io_somtq | :io_straits | :io_veg_related | :io_vegetation | :new_io_acc | :new_io_agrice | :new_io_atm | :new_io_bldat | :new_io_clouds | :new_io_earth | :new_io_fluxes | :new_io_glaacc | :new_io_icdiag | :new_io_icedyn | :new_io_label | :new_io_lakes | :new_io_landice | :new_io_longacc | :new_io_ocdiag | :new_io_ocean | :new_io_pbl | :new_io_rad | :new_io_seaice | :new_io_snow | :new_io_soils | :new_io_somtq | :new_io_subdd | :new_io_veg_related | :new_io_vegetation |
iowrite_single : integer, parameter
Flag used for saving diags in single precision
Initial Value = -2
Used by: | :giss_modele | :init_diag | :io_rsf | :new_io_acc | :new_io_glaacc | :new_io_ocdiag |
iowrite_mon : integer, parameter
Flag used for saving restart part only (no diags)
Initial Value = -3
Used by: | :giss_modele | :io_rsf | :new_io_acc |
ioread : integer, parameter
Flag used for reading in (composite) restart files
Initial Value = 1
Used by: | :input | :io_atm | :io_clouds | :io_cputime | :io_lakes | :io_rad | :io_rsf | :io_snow | :io_soils | :io_somtq | :io_straits | :io_veg_related | :io_vegetation | :new_io_acc | :new_io_agrice | :new_io_atm | :new_io_bldat | :new_io_clouds | :new_io_earth | :new_io_fluxes | :new_io_glaacc | :new_io_icdiag | :new_io_icedyn | :new_io_label | :new_io_lakes | :new_io_landice | :new_io_longacc | :new_io_ocdiag | :new_io_ocean | :new_io_pbl | :new_io_rad | :new_io_seaice | :new_io_snow | :new_io_soils | :new_io_somtq | :new_io_subdd | :new_io_veg_related | :new_io_vegetation | :read_agrice_ic | :read_landice_ic | :read_landsurf_ic | :read_seaice_ic |
ioreadnt : integer, parameter
Flag used for reading in restart files (w/o tracers)
Initial Value = 6
irsfic : integer, parameter
Flag used for reading in restart part to start NEW run
Initial Value = 4
Used by: | :input | :io_lakes | :io_rad | :io_snow | :io_soils | :io_straits | :io_veg_related | :io_vegetation | :new_io_label |
irsficnt : integer, parameter
Flag used for reading restart (w/o tracers) for NEW run
Initial Value = 5
Used by: | :io_rad | :io_straits | :new_io_label |
irsficno : integer, parameter
Flag used for reading restart (w/o ocean) for NEW run
Initial Value = 7
Used by: | :io_lakes | :io_rad | :io_snow | :io_soils | :io_straits | :io_veg_related | :io_vegetation | :new_io_label |
irerun : integer, parameter
Flag used for reading in restart part to extend OLD run
Initial Value = 3
Used by: | :input | :io_lakes | :io_rad | :io_rsf | :io_snow | :io_soils | :io_straits | :io_veg_related | :io_vegetation |
qcheck : logical
TRUE for running diagnostic checks
Initial Value = .FALSE.
Used by: | :checkl | :checkli | :checko | :checko_serial | :checkost | :diurn_defs | :gc_defs | :ijk_defs | :input | :isccp_cloud_types | :j_defs | :jl_defs | :printlk | :sjl_defs | :surface | :underice | :vpicedyn | :wave_defs | LAKES:lksourc | SOIL_DRV:fix_water_ic |
ioread_single : integer, parameter
Initial Value = 2
Used by: | :init_diag | :io_rad | :io_rsf |
ioread_nodiag : integer, parameter
Initial Value = 8
stop_on : logical
TRUE stops the model (set with "kill -15 PID)
Initial Value = .FALSE.
Used by: | :giss_modele | :sig_stop_model |
iwrite_sv : integer

Used by: | :init_diag | :input |
jwrite_sv : integer

Used by: | :init_diag | :input |
itwrite_sv : integer

Used by: | :init_diag | :input |
kdiag_sv : integer, dimension(13)

Used by: | :init_diag | :input |

Simplex Website Curator: Igor Aleinov — NASA Official: Gavin A. Schmidt

Contact GISS — NASA Privacy Policy — Accessibility