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

Diff of /MITgcm/pkg/ocn_compon_interf/ocn_import_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 70  C-    Receive sea-ice mass (sea-ice mode Line 71  C-    Receive sea-ice mass (sea-ice mode
71       I                       sNx, OLx, sNy, OLy, 1, nSx, nSy,       I                       sNx, OLx, sNy, OLy, 1, nSx, nSy,
72       O                       seaIceMass )       O                       seaIceMass )
73    
74          IF ( ocnCpl_exchange_DIC ) THEN
75    C-      Receive atmos CO2 level from coupling layer.
76            CALL COMPRECV_R8TILES( ocnAirCO2Name,
77         I                       sNx, OLx, sNy, OLy, 1, nSx, nSy,
78         O                       airCO2 )
79    
80    C-      Receive ground-level windspeed from coupling layer.
81            CALL COMPRECV_R8TILES( ocnWSpdName,
82         I                       sNx, OLx, sNy, OLy, 1, nSx, nSy,
83         O                       surfWSpeed )
84    
85    C-      Receive seaice fraction from coupling layer.
86            CALL COMPRECV_R8TILES( ocnFIceName,
87         I                       sNx, OLx, sNy, OLy, 1, nSx, nSy,
88         O                       fracIce )
89          ENDIF
90    
91        RETURN        RETURN
92        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22