Changeset 14072 for NEMO/trunk/src/OCE/BDY/bdytra.F90

Timestamp:

2020-12-04T08:48:38+01:00 (3 years ago)

Author:

laurent

Message:

Merging branch "2020/dev_r13648_ASINTER-04_laurent_bulk_ice", ticket #2369

File:

• NEMO/trunk/src/OCE/BDY/bdytra.F90 (modified) (6 diffs)

NEMO/trunk/src/OCE/BDY/bdytra.F90

@@ -30 +30 @@
    END TYPE
 
-   PUBLIC   bdy_tra      ! called in tranxt.F90 
-   PUBLIC   bdy_tra_dmp  ! called in step.F90 
+   PUBLIC   bdy_tra      ! called in tranxt.F90
+   PUBLIC   bdy_tra_dmp  ! called in step.F90
 
    !!----------------------------------------------------------------------
    !! NEMO/OCE 4.0 , NEMO Consortium (2018)
-   !! $Id$ 
+   !! $Id$
    !! Software governed by the CeCILL license (see ./LICENSE)
    !!----------------------------------------------------------------------
@@ -56 +56 @@
       LOGICAL, DIMENSION(4)          :: llsend1, llrecv1       ! indicate how communications are to be carried out
       !!----------------------------------------------------------------------
-      igrd = 1 
+      igrd = 1
       llsend1(:) = .false.  ;   llrecv1(:) = .false.
       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' )
                END SELECT
-               ! 
+               !
             END DO
          END DO
@@ -111 +111 @@
       !!----------------------------------------------------------------------
       !!                 ***  SUBROUTINE bdy_rnf  ***
-      !!                    
+      !!
       !! ** Purpose : Specialized routine to apply TRA runoff values at OBs:
       !!                  - duplicate the neighbour value for the temperature
       !!                  - specified to 0.1 PSU for the salinity
-      !! 
+      !!
       !!----------------------------------------------------------------------
       TYPE(OBC_INDEX),                     INTENT(in) ::   idx      ! OBC indices
@@ -143 +143 @@
       !!----------------------------------------------------------------------
       !!                 ***  SUBROUTINE bdy_tra_dmp  ***
-      !!                    
+      !!
       !! ** Purpose : Apply damping for tracers at open boundaries.
-      !! 
+      !!
       !!----------------------------------------------------------------------
       INTEGER                                  , INTENT(in)    :: kt        ! time step
@@ -181 +181 @@
       !
    END SUBROUTINE bdy_tra_dmp
- 
+
    !!======================================================================
 END MODULE bdytra