Changeset 14275 for NEMO/trunk/src/OCE/CRS/crsdom.F90
- Timestamp:
- 2021-01-07T13:13:16+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/CRS/crsdom.F90
r13286 r14275 1960 1960 ENDDO 1961 1961 ENDDO 1962 Nje0_crs = nje0all_crs(n proc + 1)1963 jpj_crs = jpjall_crs (n proc + 1)1964 Njs0_crs = njs0all_crs(n proc + 1)1965 njmpp_crs = njmppt_crs (n proc + 1)1962 Nje0_crs = nje0all_crs(narea) 1963 jpj_crs = jpjall_crs (narea) 1964 Njs0_crs = njs0all_crs(narea) 1965 njmpp_crs = njmppt_crs (narea) 1966 1966 1967 1967 ! Calcul suivant un decoupage en i … … 2004 2004 ENDDO 2005 2005 2006 Nie0_crs = nie0all_crs(n proc + 1)2007 jpi_crs = jpiall_crs (n proc + 1)2008 Nis0_crs = nis0all_crs(n proc + 1)2009 nimpp_crs = nimppt_crs (n proc + 1)2006 Nie0_crs = nie0all_crs(narea) 2007 jpi_crs = jpiall_crs (narea) 2008 Nis0_crs = nis0all_crs(narea) 2009 nimpp_crs = nimppt_crs (narea) 2010 2010 2011 2011 DO ji = 1, jpi_crs … … 2068 2068 WRITE(numout,*) '~~~~~~~ coarse domain local j-dimension jpj = ', jpj 2069 2069 WRITE(numout,*) 2070 WRITE(numout,*) ' n proc = ' , nproc2070 WRITE(numout,*) ' narea = ' , narea 2071 2071 WRITE(numout,*) ' jpi = ' , jpi 2072 2072 WRITE(numout,*) ' jpj = ' , jpj
Note: See TracChangeset
for help on using the changeset viewer.