| 101 |
CALL COUPSEND_R8TILES( ocnCompName, ocnSeaIceName, |
CALL COUPSEND_R8TILES( ocnCompName, ocnSeaIceName, |
| 102 |
I Nx_ocn, Ny_ocn, sIceMass_ocn ) |
I Nx_ocn, Ny_ocn, sIceMass_ocn ) |
| 103 |
|
|
| 104 |
|
IF ( ocnCpl_exchange_DIC ) THEN |
| 105 |
|
|
| 106 |
|
C-- Map atmos CO2 onto ocean grid |
| 107 |
|
C CALL ATM_TO_OCN_MAPXYR8( |
| 108 |
|
C I Nx_atm, Ny_atm, aCO2_atm, Nx_ocn, Ny_ocn, |
| 109 |
|
C O aCO2_ocn ) |
| 110 |
|
C Send atmos CO2 to ocean component |
| 111 |
|
CALL COUPSEND_R8TILES( ocnCompName, ocnAirCO2Name, |
| 112 |
|
I Nx_ocn, Ny_ocn, aCO2_ocn ) |
| 113 |
|
|
| 114 |
|
C-- Map surf wind speed onto ocean grid |
| 115 |
|
C CALL ATM_TO_OCN_MAPXYR8( |
| 116 |
|
C I Nx_atm, Ny_atm, wSpeed_atm, Nx_ocn, Ny_ocn, |
| 117 |
|
C O wSpeed_ocn ) |
| 118 |
|
C Send surface windspeed to ocean component |
| 119 |
|
CALL COUPSEND_R8TILES( ocnCompName, ocnWSpdName, |
| 120 |
|
I Nx_ocn, Ny_ocn, wSpeed_ocn ) |
| 121 |
|
|
| 122 |
|
C-- Map seaice fraction from sea-ice compon. onto ocean grid |
| 123 |
|
C CALL ATM_TO_OCN_MAPXYR8( |
| 124 |
|
C I Nx_atm, Ny_atm, SIceFrac_atm, Nx_ocn, Ny_ocn, |
| 125 |
|
C O SIceFrac_ocn ) |
| 126 |
|
C Send sea-ice fraction to ocean component |
| 127 |
|
CALL COUPSEND_R8TILES( ocnCompName, ocnFIceName, |
| 128 |
|
I Nx_ocn, Ny_ocn, SIceFrac_ocn ) |
| 129 |
|
|
| 130 |
|
ENDIF |
| 131 |
|
|
| 132 |
RETURN |
RETURN |
| 133 |
END |
END |
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch