SUBROUTINE SMFLUX  Author  : Marc, 3l50
 Date    : April 2003
 Modified:

 -----------------------------------------------------------------
 What it does
 ============

 -----------------------------------------------------------------
 Structure of Routine
 ====================

 -----------------------------------------------------------------
 Program calls
 ====================

Called by Calls

SMFLUX (summ)
SMFLUX (summ)

If
CLDTRAN(NLEV,PFLUX,DP,CL,ACL,LWCCL,BASCL,TOPCL,
H2OFLUX(CKD,NLEV,ULAY,H2O,DP,PMID,TMID,QULAY,QH2O,QDP,
SMFLUX(NLEV,PFLUX,FUP)
SMFLUX(NLEV,PFLUX,FDWN)
GASSEARCH(1,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASCNT(IBND,WVEFF,TEFF,TRCNT)
GASSEARCH(2,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASSEARCH(3,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASSEARCH(6,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASSEARCH(4,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASSEARCH(5,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASSEARCH(5,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASSEARCH(6,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASSEARCH(7,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASSEARCH(2,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASSEARCH(7,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASSEARCH(5,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASSEARCH(2,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASSEARCH(5,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
GASSEARCH(5,IBND,UPATH,PEFF,TEFF,AH2O,BH2O,
LINSEARCH(MOD,UPATH,PEFF,TEFF,AWVL,BWVL,
CONSEARCH(MOD,UPATH,PEFF,TEFF,WVEFF,AWV,BWV,
LINSEARCH(MOD,UPATH,PEFF,TEFF,AWVL,BWVL,
LINSEARCH(MOD,UPATH,PEFF,TEFF,AWVL,BWVL,
LINSEARCH(MOD,UPATH,PEFF,TEFF,AWVL,BWVL,
CONSEARCH(MOD,UPATH,PEFF,TEFF,WVEFF,AWV,BWV,
LINSEARCH(MOD,UPATH,PEFF,TEFF,AWVL,BWVL,
ABORT

 -----------------------------------------------------------------
Return to IGCM home page