/[MITgcm]/MITgcm/pkg/icefront/icefront_tendency_apply.F
ViewVC logotype

Contents of /MITgcm/pkg/icefront/icefront_tendency_apply.F

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


Revision 1.3 - (show annotations) (download)
Tue Feb 16 21:25:22 2010 UTC (14 years, 5 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint64, checkpoint63, checkpoint62c, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x
Changes since 1.2: +7 -9 lines
removed some unused variables

1 C $Header: /u/gcmpack/MITgcm/pkg/icefront/icefront_tendency_apply.F,v 1.2 2010/01/29 01:05:27 dimitri Exp $
2 C $Name: $
3
4 #include "ICEFRONT_OPTIONS.h"
5 C-- File icefront_tendency_apply.F: Routines to apply ICEFRONT tendencies
6 C-- Contents
7 C-- o ICEFRONT_TENDENCY_APPLY_T
8 C-- o ICEFRONT_TENDENCY_APPLY_S
9
10 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
11 CBOP 0
12 C !ROUTINE: ICEFRONT_TENDENCY_APPLY_T
13
14 C !INTERFACE:
15 SUBROUTINE ICEFRONT_TENDENCY_APPLY_T(
16 & bi, bj, k, myTime, myThid )
17
18 C !DESCRIPTION:
19 C Add icefront tendency terms to T (theta) tendency.
20 C Routine works for one level at a time.
21
22 C !USES:
23 IMPLICIT NONE
24 #include "SIZE.h"
25 #include "GRID.h"
26 #include "EEPARAMS.h"
27 #include "DYNVARS.h"
28 #include "ICEFRONT.h"
29
30 C !INPUT PARAMETERS:
31 INTEGER k, bi, bj, myThid
32 _RL myTime
33 CEOP
34
35 C !LOCAL VARIABLES:
36 INTEGER i, j
37
38 IF ( applyIcefrontTendT ) THEN
39 DO j=1,sNy
40 DO i=1,sNx
41 IF (k .LE. k_icefront(i,j,bi,bj)) THEN
42 gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj)
43 & + ICEFRONT_TendT(i,j,k,bi,bj)
44 ENDIF
45 ENDDO
46 ENDDO
47 ENDIF
48
49 RETURN
50 END
51
52 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
53 CBOP 0
54 C !ROUTINE: ICEFRONT_TENDENCY_APPLY_S
55
56 C !INTERFACE:
57 SUBROUTINE ICEFRONT_TENDENCY_APPLY_S(
58 & bi, bj, k, myTime, myThid )
59
60 C !DESCRIPTION:
61 C Add icefront tendency terms to S tendency.
62 C Routine works for one level at a time.
63
64 C !INPUT PARAMETERS:
65 IMPLICIT NONE
66 #include "SIZE.h"
67 #include "GRID.h"
68 #include "EEPARAMS.h"
69 #include "DYNVARS.h"
70 #include "ICEFRONT.h"
71
72 C !INPUT PARAMETERS:
73 INTEGER k, bi, bj, myThid
74 _RL myTime
75 CEOP
76
77 C !LOCAL VARIABLES:
78 INTEGER i, j
79
80 IF ( applyIcefrontTendS ) THEN
81 DO j=1,sNy
82 DO i=1,sNx
83 IF (k .LE. k_icefront(i,j,bi,bj)) THEN
84 gS(i,j,k,bi,bj) = gS(i,j,k,bi,bj)
85 & + ICEFRONT_TendS(i,j,k,bi,bj)
86 ENDIF
87 ENDDO
88 ENDDO
89 ENDIF
90
91 RETURN
92 END

  ViewVC Help
Powered by ViewVC 1.1.22