pkg/smooth2/smooth_init_fixed.F

C $Header: /u/gcmpack/MITgcm_contrib/gael/pkg/smooth2/smooth_init_fixed.F,v 1.1 2009/10/24 23:27:24 gforget Exp $
C $Name:  $

#include "CPP_OPTIONS.h"
#include "CPP_EEOPTIONS.h"

      subroutine smooth_init_fixed (mythid)

C     *==========================================================*
C     | SUBROUTINE smooth_init_fixed
C     | o Routine that initializes smoothing/correlation operators
C     *==========================================================*

      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "PARAMS.h"
#include "DYNVARS.h"
#include "GRID.h"
#ifdef ALLOW_AUTODIFF_TAMC
#include "tamc.h"
#include "tamc_keys.h"
#endif /* ALLOW_AUTODIFF_TAMC */
# include "FFIELDS.h"
# include "EOS.h"
#include "smooth.h"
#ifdef ALLOW_SMOOTH_INV
#include "ctrl.h"
#endif
        integer k
        integer myThid
        integer ikey_bak
        integer smoothOpNb


#ifdef ALLOW_SMOOTH2D
      DO smoothOpNb=1,smoothOpNbMax
      if (smooth2Dtype(smoothOpNb).NE.0) then
      call smooth_init2D(smoothOpNb,mythid)
      endif
      ENDDO 
#endif

#ifdef ALLOW_SMOOTH_CORREL2D
      DO smoothOpNb=1,smoothOpNbMax
      if (smooth2Dtype(smoothOpNb).NE.0) then
      call smooth_filtervar2D(smoothOpNb,mythid)
      endif
      ENDDO
#endif

#ifdef ALLOW_SMOOTH3D
      DO smoothOpNb=1,smoothOpNbMax
      if ((smooth3DtypeZ(smoothOpNb).NE.0).OR.
     & (smooth3DtypeH(smoothOpNb).NE.0)) then
      call smooth_init3D(smoothOpNb,mythid)
      endif
      ENDDO
#endif

#ifdef ALLOW_SMOOTH_CORREL3D
      DO smoothOpNb=1,smoothOpNbMax
      if ((smooth3DtypeZ(smoothOpNb).NE.0).OR.
     & (smooth3DtypeH(smoothOpNb).NE.0)) then
      call smooth_filtervar3D(smoothOpNb,mythid)
      endif
      ENDDO
#endif

        END 


1	C $Header: /u/gcmpack/MITgcm_contrib/gael/pkg/smooth2/smooth_init_fixed.F,v 1.1 2009/10/24 23:27:24 gforget Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5	#include "CPP_EEOPTIONS.h"
6
7	subroutine smooth_init_fixed (mythid)
8
9	C ==========================================================
10	C \| SUBROUTINE smooth_init_fixed
11	C \| o Routine that initializes smoothing/correlation operators
12	C ==========================================================
13
14	IMPLICIT NONE
15	#include "SIZE.h"
16	#include "EEPARAMS.h"
17	#include "EESUPPORT.h"
18	#include "PARAMS.h"
19	#include "DYNVARS.h"
20	#include "GRID.h"
21	#ifdef ALLOW_AUTODIFF_TAMC
22	#include "tamc.h"
23	#include "tamc_keys.h"
24	#endif /* ALLOW_AUTODIFF_TAMC */
25	# include "FFIELDS.h"
26	# include "EOS.h"
27	#include "smooth.h"
28	#ifdef ALLOW_SMOOTH_INV
29	#include "ctrl.h"
30	#endif
31	integer k
32	integer myThid
33	integer ikey_bak
34	integer smoothOpNb
35
36
37	#ifdef ALLOW_SMOOTH2D
38	DO smoothOpNb=1,smoothOpNbMax
39	if (smooth2Dtype(smoothOpNb).NE.0) then
40	call smooth_init2D(smoothOpNb,mythid)
41	endif
42	ENDDO
43	#endif
44
45	#ifdef ALLOW_SMOOTH_CORREL2D
46	DO smoothOpNb=1,smoothOpNbMax
47	if (smooth2Dtype(smoothOpNb).NE.0) then
48	call smooth_filtervar2D(smoothOpNb,mythid)
49	endif
50	ENDDO
51	#endif
52
53	#ifdef ALLOW_SMOOTH3D
54	DO smoothOpNb=1,smoothOpNbMax
55	if ((smooth3DtypeZ(smoothOpNb).NE.0).OR.
56	& (smooth3DtypeH(smoothOpNb).NE.0)) then
57	call smooth_init3D(smoothOpNb,mythid)
58	endif
59	ENDDO
60	#endif
61
62	#ifdef ALLOW_SMOOTH_CORREL3D
63	DO smoothOpNb=1,smoothOpNbMax
64	if ((smooth3DtypeZ(smoothOpNb).NE.0).OR.
65	& (smooth3DtypeH(smoothOpNb).NE.0)) then
66	call smooth_filtervar3D(smoothOpNb,mythid)
67	endif
68	ENDDO
69	#endif
70
71	END
72
73