89 |
! where rhoice = 910 kg / m^3 |
! where rhoice = 910 kg / m^3 |
90 |
! Nx * Ny Real*8 array |
! Nx * Ny Real*8 array |
91 |
|
|
92 |
|
! UiceTag |
93 |
|
! zonal ice velocity in m/s at South-West C-grid U point |
94 |
|
! >0 from West to East |
95 |
|
! Nx * Ny Real*8 array |
96 |
|
|
97 |
|
! ViceTag |
98 |
|
! meridional ice velocity in m/s at South-West C-grid V point |
99 |
|
! >0 from South to North |
100 |
|
! Nx * Ny Real*8 array |
101 |
|
|
102 |
! UwindTag |
! UwindTag |
103 |
! 10-m u-wind at the tracer points (m/s) |
! 10-m u-wind at the tracer points (m/s) |
104 |
! >0 from West to East |
! >0 from West to East |
200 |
INTEGER HeffTag |
INTEGER HeffTag |
201 |
INTEGER HsnowTag |
INTEGER HsnowTag |
202 |
INTEGER HsaltTag |
INTEGER HsaltTag |
203 |
|
INTEGER UiceTag |
204 |
|
INTEGER ViceTag |
205 |
INTEGER UwindTag |
INTEGER UwindTag |
206 |
INTEGER VwindTag |
INTEGER VwindTag |
207 |
INTEGER LwDownTag |
INTEGER LwDownTag |
234 |
PARAMETER ( HeffTag = 10004002 ) |
PARAMETER ( HeffTag = 10004002 ) |
235 |
PARAMETER ( HsnowTag = 10004003 ) |
PARAMETER ( HsnowTag = 10004003 ) |
236 |
PARAMETER ( HsaltTag = 10004004 ) |
PARAMETER ( HsaltTag = 10004004 ) |
237 |
|
PARAMETER ( UiceTag = 10004005 ) |
238 |
|
PARAMETER ( ViceTag = 10004006 ) |
239 |
PARAMETER ( UwindTag = 10005001 ) |
PARAMETER ( UwindTag = 10005001 ) |
240 |
PARAMETER ( VwindTag = 10005002 ) |
PARAMETER ( VwindTag = 10005002 ) |
241 |
PARAMETER ( LwDownTag = 10005101 ) |
PARAMETER ( LwDownTag = 10005101 ) |