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

Contents 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 - (show annotations) (download)
Wed Jun 7 01:55:14 2006 UTC (17 years, 10 months 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 C$Header: /u/gcmpack/MITgcm/pkg/mom_common/mom_init_fixed.F,v 1.2 2005/09/29 03:33:28 jmc Exp $
2 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 C Initialize fixed quantities
15 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 #include "GRID.h"
23 #include "SURFACE.h"
24
25 C !INPUT PARAMETERS:
26 C myThid :: thread number
27 INTEGER myThid
28 CEOP
29
30 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 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 ENDDO
47 ENDDO
48 ENDDO
49 ENDDO
50 ENDDO
51 #endif /* NONLIN_FRSURF */
52
53
54 #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