1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#include "ctrparam.h" |
5 |
#include "ATM2D_OPTIONS.h" |
6 |
|
7 |
C !INTERFACE: |
8 |
SUBROUTINE INIT_SUMVARS( myThid) |
9 |
C *==========================================================* |
10 |
C | Initialize all the output variables from the atmos and | |
11 |
c | seaice models that are accumulated and passed to the ocn.| |
12 |
C *==========================================================* |
13 |
IMPLICIT NONE |
14 |
|
15 |
#include "ATMSIZE.h" |
16 |
#include "SIZE.h" |
17 |
#include "EEPARAMS.h" |
18 |
#include "ATM2D_VARS.h" |
19 |
|
20 |
C !INPUT/OUTPUT PARAMETERS: |
21 |
C === Routine arguments === |
22 |
C myThid - Thread no. that called this routine. |
23 |
INTEGER myThid |
24 |
|
25 |
C LOCAL VARIABLES: |
26 |
INTEGER i,j |
27 |
|
28 |
DO i=1-OLx,sNx+OLx |
29 |
DO j=1-OLy,sNy+OLy |
30 |
|
31 |
sum_runoff(i,j)= 0. _d 0 |
32 |
sum_precip(i,j)= 0. _d 0 |
33 |
sum_evap(i,j)= 0. _d 0 |
34 |
sum_qnet(i,j)= 0. _d 0 |
35 |
sum_fu(i,j)= 0. _d 0 |
36 |
sum_fv(i,j)= 0. _d 0 |
37 |
sum_wspeed(i,j)= 0. _d 0 |
38 |
sum_solarnet(i,j)= 0. _d 0 |
39 |
sum_slp(i,j)= 0. _d 0 |
40 |
sum_pCO2(i,j)= 0. _d 0 |
41 |
sum_prcIce(i,j)= 0. _d 0 |
42 |
sum_snowPrc(i,j)= 0. _d 0 |
43 |
sum_evapIce(i,j)= 0. _d 0 |
44 |
sum_sHeat(i,j)= 0. _d 0 |
45 |
sum_flxCnB(i,j)= 0. _d 0 |
46 |
|
47 |
ENDDO |
48 |
ENDDO |
49 |
|
50 |
RETURN |
51 |
END |