- Timestamp:
- 2017-12-13T14:57:33+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90
r7646 r9012 1895 1895 jpjglo_crsm1 = jpjglo_crs - 1 1896 1896 1897 jpi_crs = ( jpiglo_crs - 2 * jpreci + (jpni-1) ) / jpni + 2 * jpreci1898 jpj_crs = ( jpjglo_crsm1 - 2 * jprecj + (jpnj-1) ) / jpnj + 2 * jprecj1897 jpi_crs = ( jpiglo_crs - 2 * nn_hls + (jpni-1) ) / jpni + 2 * nn_hls 1898 jpj_crs = ( jpjglo_crsm1 - 2 * nn_hls + (jpnj-1) ) / jpnj + 2 * nn_hls 1899 1899 1900 1900 IF( noso < 0 ) jpj_crs = jpj_crs + 1 ! add a local band on southern processors … … 1940 1940 CASE ( -1 ) 1941 1941 IF( MOD( jpjglo - njmppt(jn), nn_facty) > 0 ) nlejt_crs(jn) = nlejt_crs(jn) + 1 1942 nlcjt_crs(jn) = nlejt_crs(jn) + jprecj1942 nlcjt_crs(jn) = nlejt_crs(jn) + nn_hls 1943 1943 nldjt_crs(jn) = nldjt(jn) 1944 1944 … … 1947 1947 nldjt_crs(jn) = nldjt(jn) 1948 1948 IF( nldjt(jn) == 1 ) nlejt_crs(jn) = nlejt_crs(jn) + 1 1949 nlejt_crs(jn) = nlejt_crs(jn) + jprecj1950 nlcjt_crs(jn) = nlejt_crs(jn) + jprecj1949 nlejt_crs(jn) = nlejt_crs(jn) + nn_hls 1950 nlcjt_crs(jn) = nlejt_crs(jn) + nn_hls 1951 1951 1952 1952 CASE ( 1, 2 ) 1953 1953 1954 nlejt_crs(jn) = nlejt_crs(jn) + jprecj1954 nlejt_crs(jn) = nlejt_crs(jn) + nn_hls 1955 1955 nlcjt_crs(jn) = nlejt_crs(jn) 1956 1956 nldjt_crs(jn) = nldjt(jn) … … 1990 1990 SELECT CASE( ibonit(jn) ) 1991 1991 CASE ( -1 ) 1992 nleit_crs(jn) = nleit_crs(jn) + jpreci1993 nlcit_crs(jn) = nleit_crs(jn) + jpreci1992 nleit_crs(jn) = nleit_crs(jn) + nn_hls 1993 nlcit_crs(jn) = nleit_crs(jn) + nn_hls 1994 1994 nldit_crs(jn) = nldit(jn) 1995 1995 1996 1996 CASE ( 0 ) 1997 nleit_crs(jn) = nleit_crs(jn) + jpreci1998 nlcit_crs(jn) = nleit_crs(jn) + jpreci1997 nleit_crs(jn) = nleit_crs(jn) + nn_hls 1998 nlcit_crs(jn) = nleit_crs(jn) + nn_hls 1999 1999 nldit_crs(jn) = nldit(jn) 2000 2000 2001 2001 CASE ( 1, 2 ) 2002 2002 IF( MOD( jpiglo - nimppt(jn), nn_factx) > 0 ) nleit_crs(jn) = nleit_crs(jn) + 1 2003 nleit_crs(jn) = nleit_crs(jn) + jpreci2003 nleit_crs(jn) = nleit_crs(jn) + nn_hls 2004 2004 nlcit_crs(jn) = nleit_crs(jn) 2005 2005 nldit_crs(jn) = nldit(jn)
Note: See TracChangeset
for help on using the changeset viewer.