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

Diff of /MITgcm/pkg/dic/dic_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 138  C calculate SCHMIDT NO. for CO2 Line 138  C calculate SCHMIDT NO. for CO2
138    
139  c  c
140  #ifdef USE_PLOAD  #ifdef USE_PLOAD
141  c convert from Pa to atmos  C Convert anomalous pressure pLoad (in Pa) from atmospheric model
142                 AtmosP(i,j,bi,bj)=pLoad(i,j,bi,bj)/1.01295e5  C to total pressure (in Atm)
143    C Note: it is assumed the reference atmospheric pressure is 1Atm=1013mb
144    C       rather than the actual ref. pressure from Atm. model so that on
145    C       average AtmosP is about 1 Atm.
146                   AtmosP(i,j,bi,bj)= 1. _d 0 + pLoad(i,j,bi,bj)/Pa2Atm
147  #endif  #endif
148    
149  C Determine surface flux (FDIC)  C Determine surface flux (FDIC)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22