/[MITgcm]/MITgcm/pkg/ocn_compon_interf/ocn_cpl_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/ocn_compon_interf/ocn_cpl_diags.F

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

revision 1.2 by jmc, Wed Apr 6 18:44:12 2005 UTC revision 1.3 by jscott, Thu May 10 21:15:52 2007 UTC
# Line 16  C     === Global variables === Line 16  C     === Global variables ===
16  #include "SIZE.h"  #include "SIZE.h"
17  #include "EEPARAMS.h"  #include "EEPARAMS.h"
18  #include "PARAMS.h"  #include "PARAMS.h"
19    #include "OCNIDS.h"
20  #include "OCNCPL.h"  #include "OCNCPL.h"
21  #include "CPL_DIAGS.h"  #include "CPL_DIAGS.h"
22    
# Line 74  c    &               + DDTT * vVelGround Line 75  c    &               + DDTT * vVelGround
75       &               + DDTT * SSSocn2cpl(i,j,bi,bj)       &               + DDTT * SSSocn2cpl(i,j,bi,bj)
76          vSqtave(i,j,bi,bj)  = vSqtave(i,j,bi,bj)          vSqtave(i,j,bi,bj)  = vSqtave(i,j,bi,bj)
77       &               + DDTT * vSqocn2cpl(i,j,bi,bj)       &               + DDTT * vSqocn2cpl(i,j,bi,bj)
78            IF ( ocnCpl_exchange_DIC ) THEN
79              aCO2tave(i,j,bi,bj)  = aCO2tave(i,j,bi,bj)
80         &               + DDTT * airCO2(i,j,bi,bj)
81              sWSpdtave(i,j,bi,bj) = sWSpdtave(i,j,bi,bj)
82         &               + DDTT * surfWSpeed(i,j,bi,bj)
83              iceftave(i,j,bi,bj)  = iceftave(i,j,bi,bj)
84         &               + DDTT * fracIce(i,j,bi,bj)
85              fCO2tave(i,j,bi,bj)  = fCO2tave(i,j,bi,bj)
86         &               + DDTT * fluxCO2cpl(i,j,bi,bj)
87            ENDIF
88         ENDDO         ENDDO
89        ENDDO        ENDDO
90    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22