Changeset 9190 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ICB/icblbc.F90

Timestamp:

2018-01-06T15:18:23+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: OPA_SRC: style only, results unchanged

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ICB/icblbc.F90 (modified) (4 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ICB/icblbc.F90

@@ -1 +1 @@
 MODULE icblbc
-
    !!======================================================================
    !!                       ***  MODULE  icblbc  ***
    !! Ocean physics:  routines to handle boundary exchanges for icebergs
    !!======================================================================
-   !! History : 3.3.1 !  2010-01  (Martin&Adcroft) Original code
-   !!            -    !  2011-03  (Madec)          Part conversion to NEMO form
-   !!            -    !                            Removal of mapping from another grid
-   !!            -    !  2011-04  (Alderson)       Split into separate modules
-   !!            -    !  2011-05  (Alderson)       MPP exchanges written based on lib_mpp
-   !!            -    !  2011-05  (Alderson)       MPP and single processor boundary
-   !!            -    !                            conditions added
+   !! History :  3.3  !  2010-01  (Martin&Adcroft) Original code
+   !!             -   !  2011-03  (Madec)          Part conversion to NEMO form
+   !!             -   !                            Removal of mapping from another grid
+   !!             -   !  2011-04  (Alderson)       Split into separate modules
+   !!             -   !  2011-05  (Alderson)       MPP exchanges written based on lib_mpp
+   !!             -   !  2011-05  (Alderson)       MPP and single processor boundary conditions added
    !!----------------------------------------------------------------------
+
    !!----------------------------------------------------------------------
    !!   icb_lbc       : -  Pass icebergs across cyclic boundaries
@@ -27 +26 @@
    !!                         nicbfldpts  - packed i,j point in exchanging processor
    !!----------------------------------------------------------------------
-
    USE par_oce                             ! ocean parameters
    USE dom_oce                             ! ocean domain
@@ -45 +43 @@
 
    TYPE, PUBLIC :: buffer
-      INTEGER :: size=0
-      REAL(wp), DIMENSION(:,:), POINTER :: data
+      INTEGER :: size = 0
+      REAL(wp), DIMENSION(:,:), POINTER ::   data
    END TYPE buffer
 
-   TYPE(buffer), POINTER           ::   obuffer_n=>NULL() , ibuffer_n=>NULL()
-   TYPE(buffer), POINTER           ::   obuffer_s=>NULL() , ibuffer_s=>NULL()
-   TYPE(buffer), POINTER           ::   obuffer_e=>NULL() , ibuffer_e=>NULL()
-   TYPE(buffer), POINTER           ::   obuffer_w=>NULL() , ibuffer_w=>NULL()
+   TYPE(buffer), POINTER       ::   obuffer_n=>NULL() , ibuffer_n=>NULL()
+   TYPE(buffer), POINTER       ::   obuffer_s=>NULL() , ibuffer_s=>NULL()
+   TYPE(buffer), POINTER       ::   obuffer_e=>NULL() , ibuffer_e=>NULL()
+   TYPE(buffer), POINTER       ::   obuffer_w=>NULL() , ibuffer_w=>NULL()
 
    ! north fold exchange buffers
-   TYPE(buffer), POINTER           ::   obuffer_f=>NULL() , ibuffer_f=>NULL()
-
-   INTEGER, PARAMETER, PRIVATE     ::   jp_delta_buf = 25             ! Size by which to increment buffers
-   INTEGER, PARAMETER, PRIVATE     ::   jp_buffer_width = 15+nkounts  ! items to store for each berg
+   TYPE(buffer), POINTER       ::   obuffer_f=>NULL() , ibuffer_f=>NULL()
+
+   INTEGER, PARAMETER, PRIVATE ::   jp_delta_buf = 25             ! Size by which to increment buffers
+   INTEGER, PARAMETER, PRIVATE ::   jp_buffer_width = 15+nkounts  ! items to store for each berg
 
 #endif
@@ -926 +924 @@
       WRITE(numout,*) 'icb_lbc_mpp: You should not have seen this message!!'
    END SUBROUTINE icb_lbc_mpp
-
 #endif