New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15270 for NEMO/trunk/src/OCE/DOM/domain.F90 – NEMO

Ignore:
Timestamp:
2021-09-17T16:27:55+02:00 (3 years ago)
Author:
smasson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/DOM/domain.F90

    r15267 r15270  
    2020   !!---------------------------------------------------------------------- 
    2121   !!   dom_init      : initialize the space and time domain 
    22    !!   dom_glo       : initialize global domain <--> local domain indices 
    2322   !!   dom_nam       : read and contral domain namelists 
    2423   !!   dom_ctl       : control print for the ocean domain 
     
    124123      !           !==  Reference coordinate system  ==! 
    125124      ! 
    126 !      CALL dom_glo                      ! global domain versus local domain 
    127125      CALL dom_nam                      ! read namelist ( namrun, namdom ) 
    128126      CALL dom_tile_init                ! Tile domain 
     
    244242      ! 
    245243   END SUBROUTINE dom_init 
    246  
    247  
    248    SUBROUTINE dom_glo 
    249       !!---------------------------------------------------------------------- 
    250       !!                     ***  ROUTINE dom_glo  *** 
    251       !! 
    252       !! ** Purpose :   initialization of global domain <--> local domain indices 
    253       !! 
    254       !! ** Method  : 
    255       !! 
    256       !! ** Action  : - mig , mjg : local  domain indices ==> global domain, including halos, indices 
    257       !!              - mig0, mjg0: local  domain indices ==> global domain, excluding halos, indices 
    258       !!              - mi0 , mi1 : global domain indices ==> local  domain indices 
    259       !!              - mj0 , mj1   (if global point not in the local domain ==> mi0>mi1 and/or mj0>mj1) 
    260       !!---------------------------------------------------------------------- 
    261       INTEGER ::   ji, jj   ! dummy loop argument 
    262       !!---------------------------------------------------------------------- 
    263       ! 
    264       DO ji = 1, jpi                 ! local domain indices ==> global domain indices, including halos 
    265         mig(ji) = ji + nimpp - 1 
    266       END DO 
    267       DO jj = 1, jpj 
    268         mjg(jj) = jj + njmpp - 1 
    269       END DO 
    270       !                              ! local domain indices ==> global domain indices, excluding halos 
    271       ! 
    272       mig0(:) = mig(:) - nn_hls 
    273       mjg0(:) = mjg(:) - nn_hls 
    274       !                              ! global domain, including halos, indices ==> local domain indices 
    275       !                                   ! (return (m.0,m.1)=(1,0) if data domain gridpoint is to the west/south of the 
    276       !                                   ! local domain, or (m.0,m.1)=(jp.+1,jp.) to the east/north of local domain. 
    277       DO ji = 1, jpiglo 
    278         mi0(ji) = MAX( 1 , MIN( ji - nimpp + 1, jpi+1 ) ) 
    279         mi1(ji) = MAX( 0 , MIN( ji - nimpp + 1, jpi   ) ) 
    280       END DO 
    281       DO jj = 1, jpjglo 
    282         mj0(jj) = MAX( 1 , MIN( jj - njmpp + 1, jpj+1 ) ) 
    283         mj1(jj) = MAX( 0 , MIN( jj - njmpp + 1, jpj   ) ) 
    284       END DO 
    285       IF(lwp) THEN                   ! control print 
    286          WRITE(numout,*) 
    287          WRITE(numout,*) 'dom_glo : domain: global <<==>> local ' 
    288          WRITE(numout,*) '~~~~~~~ ' 
    289          WRITE(numout,*) '   global domain:   jpiglo = ', jpiglo, ' jpjglo = ', jpjglo, ' jpkglo = ', jpkglo 
    290          WRITE(numout,*) '   local  domain:   jpi    = ', jpi   , ' jpj    = ', jpj   , ' jpk    = ', jpk 
    291          WRITE(numout,*) 
    292       ENDIF 
    293       ! 
    294    END SUBROUTINE dom_glo 
    295244 
    296245 
Note: See TracChangeset for help on using the changeset viewer.