/[MITgcm]/MITgcm/pkg/atm_ocn_coupler/cpl_recv_ocn_fields.F
ViewVC logotype

Diff of /MITgcm/pkg/atm_ocn_coupler/cpl_recv_ocn_fields.F

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

revision 1.3 by jmc, Thu Jun 15 23:29:17 2006 UTC revision 1.4 by jscott, Thu May 10 21:58:12 2007 UTC
# Line 46  C     Receive sea surface velocity squar Line 46  C     Receive sea surface velocity squar
46       I                       Nx_ocn, Ny_ocn,       I                       Nx_ocn, Ny_ocn,
47       O                       vSq_ocn )       O                       vSq_ocn )
48    
49          IF ( ocnCpl_exchange_DIC ) THEN
50    C       Receive ocn->atm flux of CO2 from ocean component
51            CALL COUPRECV_R8TILES( ocnCompName, ocnFCO2Name,
52         I                       Nx_ocn, Ny_ocn,
53         O                       fluxCO2_ocn )
54          ENDIF
55    
56        RETURN        RETURN
57        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22