1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
|
#include "AIM_OPTIONS.h" |
5 |
|
|
6 |
cmolt SUBROUTINE CONVMF (PSA,SE,QA,QSAT, |
cmolt SUBROUTINE CONVMF (PSA,SE,QA,QSAT, |
7 |
SUBROUTINE CONVMF (PSA,TA,QA,QSAT, |
SUBROUTINE CONVMF (PSA,TA,QA,QSAT, |
8 |
* IDEPTH,CBMF,PRECNV,DFSE,DFQA, |
* IDEPTH,CBMF,PRECNV,DFSE,DFQA, |
192 |
C |
C |
193 |
C Upward fluxes at upper boundary |
C Upward fluxes at upper boundary |
194 |
cch FUS=FMASS*SE(J,K) |
cch FUS=FMASS*SE(J,K) |
195 |
C_jmc FUQ=FMASS*QSAT(J,K) |
#ifdef OLD_AIM_INTERFACE |
196 |
|
FUQ=FMASS*QSAT(J,K) |
197 |
|
#else |
198 |
FUQ=FMASS*MAX( QSAT(J,K), MIN(QB,QA(J,K)) ) |
FUQ=FMASS*MAX( QSAT(J,K), MIN(QB,QA(J,K)) ) |
199 |
|
#endif |
200 |
C |
C |
201 |
C Downward fluxes at upper boundary |
C Downward fluxes at upper boundary |
202 |
cch FDS=FMASS*SB |
cch FDS=FMASS*SB |