C $Header: /u/gcmpack/MITgcm/pkg/bulk_force/BULKF_DIAG.h,v 1.5 2003/11/23 01:36:55 jmc Exp $
C $Name: $
C /==========================================================\
C | BULKF_DIAG.h |
C | o Header for Bulk formula diagnostic output |
C \==========================================================/
cswdblk -- change to keep bulk formula fields --
#ifdef ALLOW_BULK_FORCE
#ifdef ALLOW_TIMEAVE
C Keep track of time
_RL BULKF_TimeAve(Nr, nSx,nSy)
COMMON /BULKF_TAVE/ BULKF_TimeAve
C Storage arrays for time-averages
_RL BULK_Qnet_AVE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL BULK_EmPmR_AVE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL BULK_fu_AVE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL BULK_fv_AVE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL BULK_latent_AVE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL BULK_sensible_AVE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL BULK_evap_AVE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL BULK_flwup_AVE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL BULK_flwupnet_AVE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL BULK_solar_AVE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL BULK_ssq_AVE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
COMMON /BULKF_TAVE_ARRAYS/
& BULK_Qnet_AVE, BULK_EmPmR_AVE,
& BULK_fu_AVE, BULK_fv_AVE,
& BULK_sensible_AVE, BULK_latent_AVE,
& BULK_evap_AVE, BULK_flwup_AVE,
& BULK_solar_AVE, BULK_ssq_AVE,
& BULK_flwupnet_AVE
#endif /* ALLOW_TIMEAVE */
#endif /* ALLOW_BULK_FORCE */