55 |
CALL COUPSEND_R8TILES( ocnCompName, ocnSeaIceName, |
CALL COUPSEND_R8TILES( ocnCompName, ocnSeaIceName, |
56 |
I Nx_ocn, Ny_ocn, sIceMass_ocn ) |
I Nx_ocn, Ny_ocn, sIceMass_ocn ) |
57 |
|
|
58 |
|
IF ( ocnCpl_exchange_DIC ) THEN |
59 |
|
|
60 |
|
C Send atmos CO2 to ocean component |
61 |
|
CALL COUPSEND_R8TILES( ocnCompName, ocnAirCO2Name, |
62 |
|
I Nx_ocn, Ny_ocn, aCO2_ocn ) |
63 |
|
|
64 |
|
C Send surface windspeed to ocean component |
65 |
|
CALL COUPSEND_R8TILES( ocnCompName, ocnWSpdName, |
66 |
|
I Nx_ocn, Ny_ocn, wSpeed_ocn ) |
67 |
|
|
68 |
|
C Send sea-ice fraction to ocean component |
69 |
|
CALL COUPSEND_R8TILES( ocnCompName, ocnFIceName, |
70 |
|
I Nx_ocn, Ny_ocn, SIceFrac_ocn ) |
71 |
|
|
72 |
|
ENDIF |
73 |
|
|
74 |
RETURN |
RETURN |
75 |
END |
END |
76 |
|
|