C $Header: /u/gcmpack/MITgcm/pkg/atm2d/init_sumvars.F,v 1.2 2007/10/08 23:48:28 jmc Exp $ C $Name: $ #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