C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/Attic/SEAICE_DIAGS.h,v 1.4 2003/10/09 04:19:20 edhill Exp $ C $Name: $ #ifdef ALLOW_SEAICE C /==========================================================\ C | SEAICE_DIAGS.h | C | o Header for SEAICE diagnostic output | C \==========================================================/ #ifdef ALLOW_TIMEAVE C Keep track of time _RL SEAICE_TimeAve(Nr,nSx,nSy) COMMON /SEAICE_TAVE/ SEAICE_TimeAve C Storage arrays for time-averages _RL FUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) _RL FVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) _RL EmPmRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) _RL QNETtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) _RL QSWtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) _RL UICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) _RL VICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) _RL HEFFtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) _RL AREAtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) COMMON /SEAICE_TAVE_DIAGS/ & FUtave, FVtave, EmPmRtave, QNETtave, QSWtave, & UICEtave, VICEtave, HEFFtave, AREAtave #endif /* ALLOW_TIMEAVE */ #endif /* ALLOW_SEAICE */