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 10106 for NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90 – NEMO

Ignore:
Timestamp:
2018-09-07T15:53:19+02:00 (6 years ago)
Author:
cbricaud
Message:

add mikt coarsening in nemo3.6 coarsening branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90

    r10101 r10106  
    17361736   END SUBROUTINE crs_dom_bat 
    17371737 
     1738   SUBROUTINE crs_dom_top 
     1739      !!---------------------------------------------------------------- 
     1740      !!               *** SUBROUTINE crs_dom_top *** 
     1741      !! 
     1742      !! ** Purpose :  coarsening mikt 
     1743      !! 
     1744      !!---------------------------------------------------------------- 
     1745      INTEGER ::  ji, jj, jk 
     1746      INTEGER ::  ijis, ijie, ijjs, ijje 
     1747 
     1748      !!---------------------------------------------------------------- 
     1749 
     1750      DO jj  = nldj_crs,nlej_crs 
     1751 
     1752         ijjs = mjs_crs(jj) 
     1753         ijje = mje_crs(jj) 
     1754 
     1755         DO ji = nldi_crs, nlei_crs 
     1756 
     1757            ijis = mis_crs(ji) 
     1758            ijie = mie_crs(ji) 
     1759 
     1760            mikt_crs(ji,jj) = MINVAL( mikt(ijis:ijie,ijjs:ijje) ) 
     1761         ENDDO 
     1762      ENDDO 
     1763 
     1764      mikt_crs = MAX( mikt_crs , 1 ) 
     1765 
     1766   END SUBROUTINE crs_dom_top 
     1767 
    17381768   SUBROUTINE PIKSRT(N,ARR) 
    17391769     INTEGER                  ,INTENT(IN) :: N 
Note: See TracChangeset for help on using the changeset viewer.