Atmosphere-Ocean Model NASA Homepage Atmosphere-Ocean Model Homepage Goddard Institute for Space Studies Homepage

Download 4x3 Atmosphere-Ocean Model Code and Input Files

From this web page, you can download the Fortran source code and input files of the 2004 version of the Atmosphere-Ocean Model which runs on UNIX workstations. Model simulations of past climate change and future climate prediction have been delivered to the Intergovernmental Panel on Climate Change. Resolution of the Model is 4 degrees in longitude, 3 degrees in latitude, 12 vertical layers in the atmosphere, and up to 16 layers in the ocean. The Model was programmed using Fortran-90 with module statements and Open MP parallelization statments.

Running the Model requires a significant investment in time and money; it is not appropriate for students. We are happy to answer questions from permanent scientific institutions that plan to use or are using the Atmosphere-Ocean Model.

Fortran source code files that have a ".S" extent use the first eight characters of each line as a line number as mentioned in the file EXECUTE. The greenhouse gas (15) and river direction (54) input files are ASCII files. Many of the other input files (10, 11, 16, 20, 21, 30, 31, 32, 33, 40, 41, 50, 51, 52, 53, 60, 71, 72, 73, 76, 78) are DataFiles which means that they can be operated on by QDF, MEAN, DATA, RMS, SCC, CPSIJ and other programs.


Scripts for Compiling and Running Atmosphere-Ocean Model
EXECUTE Instructions for executing the Atmosphere-Ocean Model on a UNIX workstation
FCE Kornshell script to compile a Fortran-90 source file (including .S files) into an executable module
FCO Kornshell script to compile a Fortran-90 source file (including .S files) into an object module
SETUP Kornshell script to set up directories and files and make initial execution of Atnosphere or Atmosphere-Ocean Model
MKEXE Kornshell script to recreate executable module of Atmosphere-Ocean Model
RUN Kornshell script to continue a simulation of Atmosphere Model
END Kornshell script to end a simulation of Atmosphere Model
FTOC.FOR Moves 8 character line number from columns 1-8 to columns 73-80 for each line of the input file; converts .S Fortran source files to card image files
QDF.FOR Lists record titles of a DataFile
QRSF.FOR Lists current date and hour of fort.1 and fort.2 of a Model simulation
RESTRT.FOR Restarts a Model simulation from a prior Model M file

Atmosphere-Ocean Model Fortran-90 Source Code Files
C480c.R Run deck for Atmosphere-Ocean Model control simulation C480c with perpetual 1850 atmosphere
C483c.R Run deck for Atmosphere-Ocean Model simulation C483c with observed greenhouse gases and tropospheric sulfates followed by SRES A1B in the twenty first century
C484c.R Run deck for Atmosphere-Ocean Model simulation C484c with SRES B1 in the twenty first century
C477C.S Module blocks and subroutines for geometry and calendar
C478M.S Code for MAIN, INPUT, DAILY, and atmospheric dynamics
A400S.S Code for wall clock timing of Model on DEC Alpha machine
C480cP.S Code for condensation, radiation interface, and surface interaction
C480cR.S Code for radiation with perpetual 1850 atmosphere
C483cR.S Code for radiation with time varying greenhouse gases and tropospheric sulfates
C478O.S Code for dynamic ocean
K458.COM Common blocks for KPP ocean vertical mixing scheme
C478K.S Code for KPP ocean vertical mixing scheme
C478G.S Code for ground hydrology and land ice
C478L.S Code for lakes and river flow
C478I.S Code for dynamics and thermodynamics of sea ice
C477D.S Code for accumulation and printing of diagnostics
FFT90.FOR Code for fast Fourier transforms used by polar filter
FUNTABLE_NEW.OCN Code for multiple linear interpolation of ocean functions

Atmosphere-Ocean Model Input Files
10 AIC.C4X3L12.D771201 Atmosphereic initial conditions
11 Z4X3N Surface fractions and topography
12 RPLK25 Planck function table for radiation
13 RTAU.G25L15 Gas optical thicknesses for radiation
14 OZONE60X15.MCPETERS Monthly, latitudinal OZONE distribution
15 GHGA1B.IN Observed and SRES A1B greenhouse gases adjusted for radiation input
GHGA1B.LP Observed and SRES A1B greenhouse gases unmodified
15 GHGB1.IN Observed and SRES B1 greenhouse gases adjusted for radiation input
GHGB1.LP Observed and SRES B1 greenhouse gases unmodified
16 SUL4X3.A1B Tropospheric sulfate mass for IPCC Scenario A1B
16 SUL4X3.B1 Tropospheric sulfate mass for IPCC Scenario B1
20 OIC4X3L16.Dec1.LEVITUS Ocean initial conditions
21 OST90X60.ROBINSON Monthly ocean surface temperature, used by 4x3 Atmosphere Model
22 OFTABLE_NEW Tables of ocean functions
23 OPF4X3L16 Ocean polar filter coefficients
30 SIIC90x60.Dec1 Sea ice and lake ice initial conditions
31 OIC4X3E.AMIP Monthly horizontal sea ice cover
32 MSI4X3E.CCC Monthly sea ice mass
33 SIB4X3b.Russell Sea ice blocking factor
40 GIIC90X60.Dec1 Glacial (land) ice initial conditions
41 GIF4X3.A410a Glacial ice downstream mass flux
50 GIC4X3.Dec1 Ground initial conditions
51 VEG90X60 Vegetation fractions and albedoes
52 GRDAT4X3.GISS Ground properties based on soil fractions
53 CDN4X3.GISS Neutral drag coefficient over land
54 RD4X3.Russell River direction file
60 LKIC4X3.Dec1 Lake initial conditions
70 RADAER.S6.T25 Radiative properties of aerosols
71 BCI4X3 Vertical integral of industrial black carbon
72 OCI4X3 Vertical integral of industrial organic carbon
73 STA4X3 Vertical integral of tropospheric anthropogenic sulfates
74 VDAA60X12 Vertical distribution of anthropogenic aerosols
76 AERN4X3 Vertical integral of natural aerosols
78 DUST4X3 Vertical integral of dust aerosols
79 VDUS60X12 Vertical distribution of dust aerosols
9 M1849Dec.C480c M file from run C480c on 1849 December 31, hour 24, initial state for C480c and C483c
9 M1899Dec.C480c M file from run C480c on 1899 December 31, hour 24, initial state for C490c and C493c
6 C480c.PRT Line printer output from initial hour of run C480c

Programs that Produce Scaled Diagnostic Files from Model D Files
C410C.S Module blocks for Atmosphere-Ocean Model but used in producing executable programs AVER410, AIJL410, AIJV410, and CONS410
C410D.S Fortran source code for Atmosphere-Ocean Model diagnostics needed in producing the executable program CONS410
AVER410.FOR Produces a single seasonal, annual, or multi-year-averaged D file from several input D files
AIJ480.I Namelist file indicating quantities to be created by AIJ480
AIJ480.FOR Creates a DataFile of longitude by latitude atmospheric and surface quantities from one or more Model D files
AIJK480.I Namelist file indicating quantities to be created by AIJK480
AIJK480.FOR Creates a DataFile of longitude by latitude atmospheric quantities at constant pressure coordinates from one or more D files
AIJL410.I Namelist file indicating quantities to be created by AIJL410
AIJL410.FOR Creates a DataFile of longitude by latitude atmospheric quantities by averaging over Model layers from one or more D files
AIJV410.I Namelist file indicating quantities to be created by AIJV410
AIJLV410.FOR Creates a vector DataFile of longitude by latitude atmospheric and surface quantities from one or more D files.
CONS410.FOR Creates a printer file of conservation and budget page diagnostics from one or more D files, similar to those written to unit 6 by the Model when it is initialized
OIJ480.I Namelist file indicating quantities to be created by OIJ480
OIJ480.FOR Creates a DataFile of longitude by latitude ocean quantities from one or more Model D files
OIJK480.I Namelist file indicating quantities to be created by OIJK480
OIJK480.FOR Creates a DataFile of longitude by latitude ocean quantities at constant depth from one or more D files
OIJV410.I Namelist file indicating quantities to be created by OIJV410
OIJV410.FOR Creates a vector DataFile of longitude by latitude ocean quantities from one or more D files
OSJL480.FOR Calculates ocean JxL stream function from one or more D files
OST410.FOR Calculate ocean strait diagnostics
OTJ480.FOR Calculate northward transports by ocean
KBASIN4X3.TXT ASCII file that divides Earth into ocean basins

Korn Shell Scripts that Collect DataFile Records from AIJ480 etc. into Single Quantity DataFiles
AIJ480A1 Collects DataFile records from repetitive execution of AIJ480 accumulates single quantity annual A1 DataFiles
AIJ480M1 Collects DataFile records from repetitive execution of AIJ480 accumulates single quantity monthly M1 DataFiles
AIJ480A10 Collects DataFile records from repetitive execution of AIJ480 accumulates single quantity decade-annual A10 DataFiles
AIJ480M10 Collects DataFile records from repetitive execution of AIJ480 accumulates single quantity decade-monthly M10 DataFiles
AIJ480A50 Collects DataFile records from repetitive execution of AIJ480 accumulates single quantity 50-year-annual A50 DataFiles
AIJ480M50 Collects DataFile records from repetitive execution of AIJ480 accumulates single quantity 50-year-monthly M50 DataFiles
AIJK480A1 Collects DataFile records from repetitive execution of AIJ480K accumulates single quantity annual A1 DataFiles
AIJK480M1 Collects DataFile records from repetitive execution of AIJ480K accumulates single quantity monthly M1 DataFiles
OIJ480A1 Collects DataFile records from repetitive execution of OIJ480 accumulates single quantity annual A1 DataFiles
OIJ480M1 Collects DataFile records from repetitive execution of OIJ480 accumulates single quantity monthly M1 DataFiles
OIJ480A10 Collects DataFile records from repetitive execution of OIJ480 accumulates single quantity decade-annual A10 DataFiles
OIJ480M10 Collects DataFile records from repetitive execution of OIJ480 accumulates single quantity decade-monthly M10 DataFiles
OIJK480M1 Collects DataFile records from repetitive execution of OIJ480K accumulates single quantity monthly M1 DataFiles
KANN410 Korn shell script that creates an annual DYearAnn file from 12 monthly model DYearMon files
PKEY480 Perl script that tracks key diagnostics from AOM simulations
Page Links to 4x3 Atmophere-Ocean Model
COLOR PLOTS STATISTICS MODEL DOC MODEL DATA SUNLIGHT PUBLICA
LINE PLOTS GEN INFO MODEL CODE OBSERVE DATA TIDES and MOON PEOPLE
Enter questions about this page:
 Enter your name:

Enter your E-mail address:

Curator: Gary L. Russell . . . . . 2006/01/12/15:33:32