/[MITgcm]/MITgcm/pkg/aim/phy_convmf.F
ViewVC logotype

Diff of /MITgcm/pkg/aim/phy_convmf.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by cnh, Tue May 29 19:28:53 2001 UTC revision 1.4 by jmc, Tue Sep 25 19:50:28 2001 UTC
# Line 1  Line 1 
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,
# Line 190  C       Cloud-base mass flux Line 192  C       Cloud-base mass flux
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
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22