/[MITgcm]/MITgcm/pkg/dic/o2_surfforcing.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/o2_surfforcing.F

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

revision 1.13 by stephd, Mon May 7 15:58:20 2007 UTC revision 1.14 by dfer, Mon Aug 13 02:29:40 2007 UTC
# Line 114  c Convert from ml/l to mol/m^3 Line 114  c Convert from ml/l to mol/m^3
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
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22