pkg/atm2d/init_sumvars.F

09a6f3668a Jeff*0001 #include "ctrparam.h"
                0002 #include "ATM2D_OPTIONS.h"
                0003
                0004 C     !INTERFACE:
                0005       SUBROUTINE INIT_SUMVARS( myThid)
                0006 C     *==========================================================*
                0007 C     | Initialize all the output variables from the atmos and   |
                0008 c     | seaice models that are accumulated and passed to the ocn.|
                0009 C     *==========================================================*
                0010         IMPLICIT NONE
                0011
                0012 #include "ATMSIZE.h"
                0013 #include "SIZE.h"
                0014 #include "EEPARAMS.h"
                0015 #include "ATM2D_VARS.h"
                0016
                0017 C     !INPUT/OUTPUT PARAMETERS:
                0018 C     === Routine arguments ===
                0019 C     myThid - Thread no. that called this routine.
                0020       INTEGER myThid
                0021
                0022 C     LOCAL VARIABLES:
                0023       INTEGER i,j
                0024
                0025       DO i=1-OLx,sNx+OLx
                0026         DO j=1-OLy,sNy+OLy
                0027
                0028           sum_runoff(i,j)= 0. _d 0
                0029           sum_precip(i,j)= 0. _d 0
                0030           sum_evap(i,j)= 0. _d 0
                0031           sum_qnet(i,j)= 0. _d 0
                0032           sum_fu(i,j)= 0. _d 0
                0033           sum_fv(i,j)= 0. _d 0
                0034           sum_wspeed(i,j)= 0. _d 0
                0035           sum_solarnet(i,j)= 0. _d 0
                0036           sum_slp(i,j)= 0. _d 0
                0037           sum_pCO2(i,j)= 0. _d 0
                0038           sum_prcIce(i,j)= 0. _d 0
                0039           sum_snowPrc(i,j)= 0. _d 0
                0040           sum_evapIce(i,j)= 0. _d 0
                0041           sum_sHeat(i,j)= 0. _d 0
                0042           sum_flxCnB(i,j)= 0. _d 0
                0043
                0044         ENDDO
                0045       ENDDO
                0046
                0047       RETURN
                0048       END