Changeset 14072 for NEMO/trunk/src/OCE/IOM/prtctl.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/IOM/prtctl.F90 (modified) (10 diffs)

NEMO/trunk/src/OCE/IOM/prtctl.F90

@@ -15 +15 @@
    IMPLICIT NONE
    PRIVATE
-   
+
    INTEGER , DIMENSION(  :), ALLOCATABLE ::   numprt_oce, numprt_top
    INTEGER , DIMENSION(  :), ALLOCATABLE ::   nall_ictls, nall_ictle   ! first, last indoor index for each i-domain
@@ -22 +22 @@
    REAL(wp), DIMENSION(  :), ALLOCATABLE ::   u_ctl , v_ctl            ! previous velocity trend values
    REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   tra_ctl                  ! previous top trend values
-   !                                          
+   !
    PUBLIC prt_ctl         ! called by all subroutines
    PUBLIC prt_ctl_info    ! called by all subroutines
@@ -31 +31 @@
    !!----------------------------------------------------------------------
    !! NEMO/OCE 4.0 , NEMO Consortium (2018)
-   !! $Id$ 
+   !! $Id$
    !! Software governed by the CeCILL license (see ./LICENSE)
    !!----------------------------------------------------------------------
@@ -70 +70 @@
       !!                     ***  ROUTINE prt_ctl  ***
       !!
-      !! ** Purpose : - print sum control of 2D or 3D arrays over the same area 
+      !! ** Purpose : - print sum control of 2D or 3D arrays over the same area
       !!                in mono and mpp case. This way can be usefull when
-      !!                debugging a new parametrization in mono or mpp. 
+      !!                debugging a new parametrization in mono or mpp.
       !!
       !! ** Method  : 2 possibilities exist when setting the sn_cfctl%prtctl parameter to
       !!                .true. in the ocean namelist:
-      !!              - to debug a MPI run .vs. a mono-processor one; 
+      !!              - to debug a MPI run .vs. a mono-processor one;
       !!                the control print will be done over each sub-domain.
-      !!                The nictl[se] and njctl[se] parameters in the namelist must 
+      !!                The nictl[se] and njctl[se] parameters in the namelist must
       !!                be set to zero and [ij]splt to the corresponding splitted
       !!                domain in MPI along respectively i-, j- directions.
-      !!              - to debug a mono-processor run over the whole domain/a specific area; 
+      !!              - to debug a mono-processor run over the whole domain/a specific area;
       !!                in the first case the nictl[se] and njctl[se] parameters must be set
       !!                to zero else to the indices of the area to be controled. In both cases
@@ -87 +87 @@
       !!              - All arguments of the above calling sequence are optional so their
       !!                name must be explicitly typed if used. For instance if the 3D
-      !!                array tn(:,:,:) must be passed through the prt_ctl subroutine, 
+      !!                array tn(:,:,:) must be passed through the prt_ctl subroutine,
       !!                it must look like: CALL prt_ctl(tab3d_1=tn).
       !!
@@ -99 +99 @@
       !!                    mask2   : mask (3D) to apply to the tab[23]d_2 array
       !!                    clinfo2 : information about the tab[23]d_2 array
-      !!                    kdim    : k- direction for 3D arrays 
-      !!                    clinfo3 : additional information 
+      !!                    kdim    : k- direction for 3D arrays
+      !!                    clinfo3 : additional information
       !!----------------------------------------------------------------------
       INTEGER                             , INTENT(in)           ::   ktab2d_1, ktab3d_1, ktab4d_1, ktab2d_2, ktab3d_2
@@ -123 +123 @@
       !!----------------------------------------------------------------------
       !
-      ! Arrays, scalars initialization 
+      ! Arrays, scalars initialization
       cl1  = ''
       cl2  = ''
@@ -310 +310 @@
             WRITE(numout,*) '~~~~~~~~~~~~~'
          ENDIF
-         IF( nn_ictls+nn_ictle+nn_jctls+nn_jctle == 0 )   THEN    ! print control done over the default area         
+         IF( nn_ictls+nn_ictle+nn_jctls+nn_jctle == 0 )   THEN    ! print control done over the default area
             nn_isplt = MAX(1, nn_isplt)            ! number of processors following i-direction
             nn_jsplt = MAX(1, nn_jsplt)            ! number of processors following j-direction
@@ -391 +391 @@
       ENDIF
 
-      ! Initialization 
+      ! Initialization
       IF( clcomp == 'oce' ) THEN
          ALLOCATE( t_ctl(ijsplt), s_ctl(ijsplt), u_ctl(ijsplt), v_ctl(ijsplt), numprt_oce(ijsplt) )
@@ -424 +424 @@
          WRITE(inum,*)
          WRITE(inum,'(19x,a20)') cl_run
-         WRITE(inum,*) 
+         WRITE(inum,*)
          WRITE(inum,*) 'prt_ctl :  Sum control indices'
          WRITE(inum,*) '~~~~~~~'