Changeset 15270 for NEMO/trunk/src/OCE/DOM/domain.F90

Timestamp:

2021-09-17T16:27:55+02:00 (3 years ago)

Author:

smasson

Message:

trunk: forget some cleaning (remove dom_glo), #2724

File:

• NEMO/trunk/src/OCE/DOM/domain.F90 (modified) (3 diffs)

NEMO/trunk/src/OCE/DOM/domain.F90

@@ -20 +20 @@
    !!----------------------------------------------------------------------
    !!   dom_init      : initialize the space and time domain
-   !!   dom_glo       : initialize global domain <--> local domain indices
    !!   dom_nam       : read and contral domain namelists
    !!   dom_ctl       : control print for the ocean domain
@@ -124 +123 @@
       !           !==  Reference coordinate system  ==!
       !
-!      CALL dom_glo                      ! global domain versus local domain
       CALL dom_nam                      ! read namelist ( namrun, namdom )
       CALL dom_tile_init                ! Tile domain
@@ -244 +242 @@
       !
    END SUBROUTINE dom_init
-
-
-   SUBROUTINE dom_glo
-      !!----------------------------------------------------------------------
-      !!                     ***  ROUTINE dom_glo  ***
-      !!
-      !! ** Purpose :   initialization of global domain <--> local domain indices
-      !!
-      !! ** Method  :
-      !!
-      !! ** Action  : - mig , mjg : local  domain indices ==> global domain, including halos, indices
-      !!              - mig0, mjg0: local  domain indices ==> global domain, excluding halos, indices
-      !!              - mi0 , mi1 : global domain indices ==> local  domain indices
-      !!              - mj0 , mj1   (if global point not in the local domain ==> mi0>mi1 and/or mj0>mj1)
-      !!----------------------------------------------------------------------
-      INTEGER ::   ji, jj   ! dummy loop argument
-      !!----------------------------------------------------------------------
-      !
-      DO ji = 1, jpi                 ! local domain indices ==> global domain indices, including halos
-        mig(ji) = ji + nimpp - 1
-      END DO
-      DO jj = 1, jpj
-        mjg(jj) = jj + njmpp - 1
-      END DO
-      !                              ! local domain indices ==> global domain indices, excluding halos
-      !
-      mig0(:) = mig(:) - nn_hls
-      mjg0(:) = mjg(:) - nn_hls
-      !                              ! global domain, including halos, indices ==> local domain indices
-      !                                   ! (return (m.0,m.1)=(1,0) if data domain gridpoint is to the west/south of the
-      !                                   ! local domain, or (m.0,m.1)=(jp.+1,jp.) to the east/north of local domain.
-      DO ji = 1, jpiglo
-        mi0(ji) = MAX( 1 , MIN( ji - nimpp + 1, jpi+1 ) )
-        mi1(ji) = MAX( 0 , MIN( ji - nimpp + 1, jpi   ) )
-      END DO
-      DO jj = 1, jpjglo
-        mj0(jj) = MAX( 1 , MIN( jj - njmpp + 1, jpj+1 ) )
-        mj1(jj) = MAX( 0 , MIN( jj - njmpp + 1, jpj   ) )
-      END DO
-      IF(lwp) THEN                   ! control print
-         WRITE(numout,*)
-         WRITE(numout,*) 'dom_glo : domain: global <<==>> local '
-         WRITE(numout,*) '~~~~~~~ '
-         WRITE(numout,*) '   global domain:   jpiglo = ', jpiglo, ' jpjglo = ', jpjglo, ' jpkglo = ', jpkglo
-         WRITE(numout,*) '   local  domain:   jpi    = ', jpi   , ' jpj    = ', jpj   , ' jpk    = ', jpk
-         WRITE(numout,*)
-      ENDIF
-      !
-   END SUBROUTINE dom_glo