jscott/pkg_atm2d/init_sumvars.F

#include "ctrparam.h"
#include "ATM2D_OPTIONS.h"

C     !INTERFACE:
      SUBROUTINE INIT_SUMVARS( myThid)
C     *==========================================================*
C     | Initialize all the output variables from the atmos and   |
c     | seaice models that are accumulated and passed to the ocn.|
C     *==========================================================*
        IMPLICIT NONE

#include "ATMSIZE.h"
#include "SIZE.h"
#include "EEPARAMS.h"
#include "ATM2D_VARS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     === Routine arguments ===
C     myThid - Thread no. that called this routine.
      INTEGER myThid

C     LOCAL VARIABLES:
      INTEGER i,j

      DO i=1-OLx,sNx+OLx
        DO j=1-OLy,sNy+OLy

          sum_runoff(i,j)= 0. _d 0
          sum_precip(i,j)= 0. _d 0
          sum_evap(i,j)= 0. _d 0
          sum_qnet(i,j)= 0. _d 0
          sum_fu(i,j)= 0. _d 0
          sum_fv(i,j)= 0. _d 0
          sum_wspeed(i,j)= 0. _d 0
          sum_solarnet(i,j)= 0. _d 0
          sum_slp(i,j)= 0. _d 0
          sum_pCO2(i,j)= 0. _d 0
          sum_prcIce(i,j)= 0. _d 0
          sum_snowPrc(i,j)= 0. _d 0
          sum_evapIce(i,j)= 0. _d 0
          sum_sHeat(i,j)= 0. _d 0
          sum_flxCnB(i,j)= 0. _d 0

        ENDDO
      ENDDO

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