1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#include "ctrparam.h" |
5 |
#include "ATM2D_OPTIONS.h" |
6 |
|
7 |
C !INTERFACE: |
8 |
SUBROUTINE SUM_THSICE_OUT( myThid ) |
9 |
C *==========================================================* |
10 |
C | Sum output from temp seaice step for passing to ocean. | |
11 |
C *==========================================================* |
12 |
IMPLICIT NONE |
13 |
|
14 |
#include "ATMSIZE.h" |
15 |
#include "SIZE.h" |
16 |
#include "GRID.h" |
17 |
#include "EEPARAMS.h" |
18 |
|
19 |
C === Global SeaIce Variables === |
20 |
#include "THSICE_VARS.h" |
21 |
|
22 |
C === Atmos/Ocean/Seaice Interface Variables === |
23 |
#include "ATM2D_VARS.h" |
24 |
|
25 |
|
26 |
C !INPUT/OUTPUT PARAMETERS: |
27 |
C === Routine arguments === |
28 |
C myThid - Thread no. that called this routine. |
29 |
INTEGER myThid |
30 |
|
31 |
C LOCAL VARIABLES: |
32 |
INTEGER i,j |
33 |
|
34 |
DO j=1, sNy |
35 |
DO i=1,sNx |
36 |
|
37 |
IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN |
38 |
sum_sHeat(i,j) = sum_sHeat(i,j) + sHeating(i,j,1,1) |
39 |
sum_flxCnB(i,j)= sum_flxCnB(i,j) + flxCndBt(i,j,1,1) |
40 |
|
41 |
C Add contribution of SW passing through ice |
42 |
sum_solarnet(i,j)= sum_solarnet(i,j) |
43 |
& + icFlxSW(i,j,1,1)*iceMask(i,j,1,1) |
44 |
C zero out icFlxSw or it will be double counted in thsice_step_fwd |
45 |
icFlxSW(i,j,1,1)= 0. _d 0 |
46 |
|
47 |
ENDIF |
48 |
|
49 |
ENDDO |
50 |
ENDDO |
51 |
|
52 |
|
53 |
RETURN |
54 |
END |