Changeset 3000 for branches/dev_2802_OBStools/NEMOGCM/TOOLS/OBSTOOLS/src/fbaccdata.F90

Timestamp:

2011-10-26T15:44:20+02:00 (13 years ago)

Author:

djlea

Message:

Updated obstools. Addition of headers to programs which explain what each utility does and how to run it. All the programs now build using the naketools utility.

File:

• branches/dev_2802_OBStools/NEMOGCM/TOOLS/OBSTOOLS/src/fbaccdata.F90 (modified) (1 diff)

branches/dev_2802_OBStools/NEMOGCM/TOOLS/OBSTOOLS/src/fbaccdata.F90

@@ -1 +1 @@
 MODULE fbaccdata
-   INTEGER, DIMENSION(:,:,:,:), ALLOCATABLE :: inum
-   REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: zmean,zrms,zsdev
+   USE fbacctype
+   IMPLICIT NONE
+   INTEGER, DIMENSION(:,:,:,:,:), ALLOCATABLE :: inum,inumov,inumbv
+   INTEGER, DIMENSION(:,:,:,:), ALLOCATABLE :: inuma
+   REAL, DIMENSION(:,:,:,:,:), ALLOCATABLE :: zbias,zrms,zsdev,zomean,zmmean,&
+      & zoemea,zovmea,zbemea,zbvmea
+   REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: zoamean
    INTEGER, PARAMETER :: maxvars = 10
    REAL, DIMENSION(maxvars) :: zcheck
    REAL, DIMENSION(maxvars) :: zhistmax, zhistmin, zhiststep
-   TYPE histtype
-      INTEGER :: npoints
-      INTEGER, POINTER, DIMENSION(:,:,:,:) :: nhist
-   END TYPE histtype
    TYPE(histtype), DIMENSION(maxvars) :: hist
-
+   REAL, DIMENSION(maxvars) :: zxymax, zxymin, zxystep
+   TYPE(xytype), DIMENSION(maxvars) :: xy
 END MODULE fbaccdata