Source Files

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/!! ************** \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

** SUBROUTINE RRTM_ECRT_140GP *****

*** mji *** *** This version of RRTM has been altered to interface with either the ECMWF numerical weather prediction model or the ECMWF column radiation model (ECRT) package. Revised, April, 1997; Michael J. Iacono, AER, Inc. - initial implementation of RRTM in ECRT code Revised, June, 1999; Michael J. Iacono and Eli J. Mlawer, AER, Inc. - to implement generalized maximum/random cloud overlap

Modified by: * JJ Morcrette 980714 ECMWF for use on ECMWF's Fujitsu VPP770 * Reformatted for F90 by JJMorcrette, ECMWF * - replacing COMMONs by MODULEs * - changing labelled to unlabelled DO loops * - creating set-up routines for all block data statements * - reorganizing the parameter statements * - passing KLEV as argument * - suppressing some equivalencing * * D Salmond 9907 ECMWF Speed-up modifications * D Salmond 000515 ECMWF Speed-up modifications *