jscott/pkg_atm2d/init_sumvars.F

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

C     !INTERFACE:
      SUBROUTINE INIT_SUMVARS( myThid)
C     *==========================================================*
C     | |
c     | |
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	#include "ctrparam.h"
2	#include "ATM2D_OPTIONS.h"
3
4	C !INTERFACE:
5	SUBROUTINE INIT_SUMVARS( myThid)
6	C ==========================================================
7	C \| \|
8	c \| \|
9	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