File: C:\NOAA\NEMS_11731\src\chem\gocart\src\GMAO_Shared\MAPL_Base\qsatice.H

1     #define TABLE   ESTBLE
2     #define FILE_    "esatice.H"
3     #define PHASE   ICE
4     
5     if(TX>=TMAX(ICE)) then
6     
7     #if KIND_==4
8     #define FUNC Qsat0
9     #else
10     #define FUNC Qsatd0
11     #endif
12        
13        if(present(PL)) then	
14           if(present(DQ)) then	
15              EX = FUNC(TX,PL=PX,DQ=DX)
16           else
17              EX = FUNC(TX,PL=PX)
18           endif
19        else
20           if(present(DQ)) then	
21              EX = FUNC(TX,DQ=DX)
22           else
23              EX = FUNC(TX)
24           endif
25        endif
26     
27     #undef FUNC
28     
29     else
30     
31     #include "eqsat.H"
32     
33     endif
34     
35     #undef TABLE
36     #undef FILE_
37     #undef PHASE
38