pkg/frazil/frazil_tendency_apply.F

C $Header:  $
C $Name:  $

#include "FRAZIL_OPTIONS.h"
C--  File frazil_tendency_apply.F: Routines to apply FRAZIL tendencies
C--   Contents
C--   o FRAZIL_TENDENCY_APPLY_T

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP 0

C !INTERFACE:
      SUBROUTINE FRAZIL_TENDENCY_APPLY_T(
     &                     iMin, iMax, jMin, jMax,
     &                     bi, bj, k, myTime, myThid )

C     !DESCRIPTION:
C     Add frazil tendency terms to T (theta) tendency.  Routine works
C     for one level at a time

C     !USES:
      IMPLICIT NONE
#include "SIZE.h"
#include "GRID.h"
#include "EEPARAMS.h"
#include "DYNVARS.h"
#include "FRAZIL.h"

C     !INPUT PARAMETERS:
      INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid
      _RL myTime
CEOP

#ifdef ALLOW_FRAZIL
C     !LOCAL VARIABLES:
      INTEGER i, j

      IF ( myPa_applyTendT ) THEN
        DO j=jMin,jMax
         DO i=iMin,iMax
          gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj)
     &     + maskC(i,j,k,bi,bj) * frazil_TendT(i,j,k,bi,bj)
         ENDDO
        ENDDO
      ENDIF
#endif /* ALLOW_FRAZIL */

      RETURN
      END
1	C $Header: $
2	C $Name: $
3
4	#include "FRAZIL_OPTIONS.h"
5	C-- File frazil_tendency_apply.F: Routines to apply FRAZIL tendencies
6	C-- Contents
7	C-- o FRAZIL_TENDENCY_APPLY_T
8
9	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
10	CBOP 0
11
12	C !INTERFACE:
13	SUBROUTINE FRAZIL_TENDENCY_APPLY_T(
14	& iMin, iMax, jMin, jMax,
15	& bi, bj, k, myTime, myThid )
16
17	C !DESCRIPTION:
18	C Add frazil tendency terms to T (theta) tendency. Routine works
19	C for one level at a time
20
21	C !USES:
22	IMPLICIT NONE
23	#include "SIZE.h"
24	#include "GRID.h"
25	#include "EEPARAMS.h"
26	#include "DYNVARS.h"
27	#include "FRAZIL.h"
28
29	C !INPUT PARAMETERS:
30	INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid
31	_RL myTime
32	CEOP
33
34	#ifdef ALLOW_FRAZIL
35	C !LOCAL VARIABLES:
36	INTEGER i, j
37
38	IF ( myPa_applyTendT ) THEN
39	DO j=jMin,jMax
40	DO i=iMin,iMax
41	gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj)
42	& + maskC(i,j,k,bi,bj) * frazil_TendT(i,j,k,bi,bj)
43	ENDDO
44	ENDDO
45	ENDIF
46	#endif /* ALLOW_FRAZIL */
47
48	RETURN
49	END