114 |
O2sat(i,j) = o2s/22391.6*1000.0 |
O2sat(i,j) = o2s/22391.6*1000.0 |
115 |
|
|
116 |
#ifdef USE_PLOAD |
#ifdef USE_PLOAD |
117 |
c convert from Pa to atmos |
C Convert anomalous pressure pLoad (in Pa) from atmospheric model |
118 |
AtmosP(i,j,bi,bj)=pLoad(i,j,bi,bj)/1.01295e5 |
C to total pressure (in Atm) |
119 |
|
C Note: it is assumed the reference atmospheric pressure is 1Atm=1013mb |
120 |
|
C rather than the actual ref. pressure from Atm. model so that on |
121 |
|
C average AtmosP is about 1 Atm. |
122 |
|
AtmosP(i,j,bi,bj)= 1. _d 0 + pLoad(i,j,bi,bj)/Pa2Atm |
123 |
#endif |
#endif |
124 |
|
|
125 |
c Determine flux, inc. correction for local atmos surface pressure |
c Determine flux, inc. correction for local atmos surface pressure |