/[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.3 by edhill, Thu Oct 9 04:19:19 2003 UTC revision 1.4 by stephd, Thu Feb 12 16:11:46 2004 UTC
# Line 1  Line 1 
1  #include "DIC_OPTIONS.h"  #include "DIC_OPTIONS.h"
2  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
3    
4  CStartOfInterFace  CBOP
5    C !ROUTINE: O2_SURFFORCING
6    
7    C !INTERFACE: ==========================================================
8        SUBROUTINE O2_SURFFORCING( PTR_O2, GO2,        SUBROUTINE O2_SURFFORCING( PTR_O2, GO2,
9       I           bi,bj,iMin,iMax,jMin,jMax,       I           bi,bj,iMin,iMax,jMin,jMax,
10       I           myIter, myTime, myThid )       I           myIter, myTime, myThid )
 C     /==========================================================\  
 C     | SUBROUTINE O2_SURFFORCING                               |  
 C     | o Calculate the oxygen air-sea flux terms                |  
 C     | o following external_forcing_o2.F from Mick             |  
 C     |==========================================================|  
       IMPLICIT NONE  
11    
12  C     == GLobal variables ==  C !DESCRIPTION:
13    C Calculate the oxygen air-sea flux terms              
14    
15    C !USES: ===============================================================
16          IMPLICIT NONE
17  #include "SIZE.h"  #include "SIZE.h"
18  #include "DYNVARS.h"  #include "DYNVARS.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 25  C     == GLobal variables == Line 26  C     == GLobal variables ==
26  #endif  #endif
27    
28    
29  C     == Routine arguments ==  c  !INPUT PARAMETERS: ===================================================
30        INTEGER myIter, myThid  C  myThid               :: thread number
31    C  myIter               :: current timestep
32    C  myTime               :: current time
33    C  PTR_O2               :: oxygen tracer field
34        _RL myTime        _RL myTime
35        _RL  PTR_O2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL  PTR_O2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
       _RL  GO2(1-OLx:sNx+OLx,1-OLy:sNy+OLy)  
36        INTEGER iMin,iMax,jMin,jMax, bi, bj        INTEGER iMin,iMax,jMin,jMax, bi, bj
37    
38    c  !OUTPUT PARAMETERS: ===================================================
39    C  GO2                  :: air-sea exchange of oxygen
40         _RL  GO2(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
41    
42  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
43    
44    
45  C     == Local variables ==  C !LOCAL VARIABLES: ===================================================
46  C I, J, K - Loop counters  C I, J, K - Loop counters
47        INTEGER I,J,K        INTEGER I,J,K
48  C Solubility relation coefficients  C Solubility relation coefficients
# Line 55  C Solubility relation coefficients Line 62  C Solubility relation coefficients
62        _RL  ttemp        _RL  ttemp
63        _RL  stemp        _RL  stemp
64        _RL  oCnew        _RL  oCnew
65    CEOP
66    
67    
68        K=1        K=1
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22