/[MITgcm]/MITgcm/pkg/mom_common/mom_init_fixed.F
ViewVC logotype

Annotation of /MITgcm/pkg/mom_common/mom_init_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.3 - (hide annotations) (download)
Wed Jun 7 01:55:14 2006 UTC (18 years ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint58l_post, mitgcm_mapl_00, checkpoint58u_post, checkpoint58w_post, checkpoint58r_post, checkpoint58n_post, checkpoint58x_post, checkpoint58t_post, checkpoint58h_post, checkpoint58q_post, checkpoint58j_post, checkpoint59e, checkpoint59d, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59, checkpoint58i_post, checkpoint58o_post, checkpoint58y_post, checkpoint58k_post, checkpoint58v_post, checkpoint58s_post, checkpoint58p_post, checkpoint58m_post
Changes since 1.2: +4 -4 lines 
Modifications for bottom topography control
o replace hFacC by _hFacC at various places
o replace ALLOW_HFACC_CONTROL by ALLOW_DEPTH_CONTROL
o add non-self-adjoint cg2d_nsa
o update autodiff support routines
o re-initialise hfac after ctrl_depth_ini
o works for 5x5 box, doesnt work for global_ocean.90x40x15
1 heimbach 1.3 C$Header: /u/gcmpack/MITgcm/pkg/mom_common/mom_init_fixed.F,v 1.2 2005/09/29 03:33:28 jmc Exp $
2 jmc 1.1 C$Name: $
3    
4     #include "MOM_COMMON_OPTIONS.h"
5    
6     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7     CBOP
8     C !ROUTINE: MOM_INIT_FIXED
9    
10     C !INTERFACE:
11     SUBROUTINE MOM_INIT_FIXED( myThid )
12    
13     C !DESCRIPTION:
14 jmc 1.2 C Initialize fixed quantities
15 jmc 1.1 C for momentum (common to fluxform & vecinv) packages
16    
17     C !USES:
18     IMPLICIT NONE
19     #include "SIZE.h"
20     #include "EEPARAMS.h"
21     #include "PARAMS.h"
22 jmc 1.2 #include "GRID.h"
23     #include "SURFACE.h"
24 jmc 1.1
25     C !INPUT PARAMETERS:
26     C myThid :: thread number
27     INTEGER myThid
28     CEOP
29    
30 jmc 1.2 C !LOCAL VARIABLES:
31     #ifdef NONLIN_FRSURF
32     C i,j,k,bi,bj :: loop counter
33     INTEGER i,j,k,bi,bj
34     #endif
35    
36     #ifdef NONLIN_FRSURF
37     C- used for side-drag:
38     DO bj=myByLo(myThid), myByHi(myThid)
39     DO bi=myBxLo(myThid), myBxHi(myThid)
40     DO k=1,Nr
41     DO j=1-Oly,sNy+Oly
42     DO i=1-Olx,sNx+Olx
43 heimbach 1.3 h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
44     h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
45     h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj)
46 jmc 1.2 ENDDO
47     ENDDO
48     ENDDO
49     ENDDO
50     ENDDO
51     #endif /* NONLIN_FRSURF */
52    
53    
54 jmc 1.1 #ifdef ALLOW_DIAGNOSTICS
55     IF ( useDiagnostics ) THEN
56     CALL MOM_DIAGNOSTICS_INIT( myThid )
57     ENDIF
58     #endif /* ALLOW_DIAGNOSTICS */
59    
60     RETURN
61     END
  ViewVC Help
Powered by ViewVC 1.1.22