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

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

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

revision 1.1 by jmc, Fri May 21 19:42:26 2004 UTC revision 1.2 by jscott, Thu May 10 21:15:52 2007 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CStartOfInterface  CStartOfInterface
# Line 49  C-    Send ocean surface velocity square Line 50  C-    Send ocean surface velocity square
50        CALL COMPSEND_R8TILES( ocnSSVsqName,        CALL COMPSEND_R8TILES( ocnSSVsqName,
51       I     sNx, OLx, sNy, OLy, 1, nSx, nSy, vSqocn2cpl )       I     sNx, OLx, sNy, OLy, 1, nSx, nSy, vSqocn2cpl )
52    
53          IF ( ocnCpl_exchange_DIC ) THEN
54    C-    Send ocean CO2 flux to coupling layer
55            CALL COMPSEND_R8TILES( ocnFCO2Name,
56         I     sNx, OLx, sNy, OLy, 1, nSx, nSy, fluxCO2cpl )
57          ENDIF
58    
59        RETURN        RETURN
60        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22