/[MITgcm]/MITgcm/pkg/bling/bling_airseaflux.F
ViewVC logotype

Diff of /MITgcm/pkg/bling/bling_airseaflux.F

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

revision 1.2 by mmazloff, Mon Sep 12 20:00:28 2016 UTC revision 1.3 by mmazloff, Wed Oct 12 22:34:27 2016 UTC
# Line 7  C $Name$ Line 7  C $Name$
7  CBOP  CBOP
8        subroutine BLING_AIRSEAFLUX(        subroutine BLING_AIRSEAFLUX(
9       I           PTR_DIC, PTR_ALK, PTR_O2, PTR_NO3, PTR_PO4,       I           PTR_DIC, PTR_ALK, PTR_O2, PTR_NO3, PTR_PO4,
10       O           SGDIC, SGO2,       O           SGDIC, SGO2, FluxO2,
11       I           bi, bj, imin, imax, jmin, jmax,       I           bi, bj, imin, imax, jmin, jmax,
12       I           myIter, myTime, myThid)       I           myIter, myTime, myThid)
13    
# Line 59  C     PTR_O2           :: oxygen tracer Line 59  C     PTR_O2           :: oxygen tracer
59        _RL  PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL  PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
60        _RL  PTR_O2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL  PTR_O2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
61  C     === Output ===  C     === Output ===
62  C     SGDIC            :: tendency of DIC due to air-sea exchange  C     SGDIC            :: surface tendency of DIC due to air-sea exchange
63  C     SGO2             :: tendency od O2 due to air-sea exchange  C     SGO2             :: surface tendency of O2 due to air-sea exchange
64    C     FluxO2           :: air-sea flux of O2
65    C     (FluxCO2 is a global variable)
66        _RL  SGDIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL  SGDIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
67        _RL  SGO2(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL  SGO2(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
68          _RL  FluxO2      (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
69    
70    
71  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
# Line 89  C o2 solubility relation coefficients Line 92  C o2 solubility relation coefficients
92        _RL SchmidtNoO2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL SchmidtNoO2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
93        _RL O2sat       (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL O2sat       (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
94        _RL Kwexch_o2   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL Kwexch_o2   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
       _RL FluxO2      (1-OLx:sNx+OLx,1-OLy:sNy+OLy)  
95        _RL aTT        _RL aTT
96        _RL aTK        _RL aTK
97        _RL aTS        _RL aTS
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22