Changeset 14072 for NEMO/trunk/src/OCE/BDY
- Timestamp:
- 2020-12-04T08:48:38+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/BDY/bdytra.F90
r13982 r14072 30 30 END TYPE 31 31 32 PUBLIC bdy_tra ! called in tranxt.F90 33 PUBLIC bdy_tra_dmp ! called in step.F90 32 PUBLIC bdy_tra ! called in tranxt.F90 33 PUBLIC bdy_tra_dmp ! called in step.F90 34 34 35 35 !!---------------------------------------------------------------------- 36 36 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 37 !! $Id$ 37 !! $Id$ 38 38 !! Software governed by the CeCILL license (see ./LICENSE) 39 39 !!---------------------------------------------------------------------- … … 56 56 LOGICAL, DIMENSION(4) :: llsend1, llrecv1 ! indicate how communications are to be carried out 57 57 !!---------------------------------------------------------------------- 58 igrd = 1 58 igrd = 1 59 59 llsend1(:) = .false. ; llrecv1(:) = .false. 60 60 DO ir = 1, 0, -1 ! treat rim 1 before rim 0 … … 83 83 CASE DEFAULT ; CALL ctl_stop( 'bdy_tra : unrecognised option for open boundaries for T and S' ) 84 84 END SELECT 85 ! 85 ! 86 86 END DO 87 87 END DO … … 111 111 !!---------------------------------------------------------------------- 112 112 !! *** SUBROUTINE bdy_rnf *** 113 !! 113 !! 114 114 !! ** Purpose : Specialized routine to apply TRA runoff values at OBs: 115 115 !! - duplicate the neighbour value for the temperature 116 116 !! - specified to 0.1 PSU for the salinity 117 !! 117 !! 118 118 !!---------------------------------------------------------------------- 119 119 TYPE(OBC_INDEX), INTENT(in) :: idx ! OBC indices … … 143 143 !!---------------------------------------------------------------------- 144 144 !! *** SUBROUTINE bdy_tra_dmp *** 145 !! 145 !! 146 146 !! ** Purpose : Apply damping for tracers at open boundaries. 147 !! 147 !! 148 148 !!---------------------------------------------------------------------- 149 149 INTEGER , INTENT(in) :: kt ! time step … … 181 181 ! 182 182 END SUBROUTINE bdy_tra_dmp 183 183 184 184 !!====================================================================== 185 185 END MODULE bdytra
Note: See TracChangeset
for help on using the changeset viewer.