Changeset 4671 for trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
- Timestamp:
- 2014-06-17T17:00:51+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r4667 r4671 86 86 USE sbctide, ONLY: lk_tide 87 87 USE crsini ! initialise grid coarsening utility 88 USE lbcnfd, ONLY: isendto, nsndto ! Setup of north fold exchanges88 USE lbcnfd, ONLY: isendto, nsndto, nfsloop, nfeloop ! Setup of north fold exchanges 89 89 90 90 IMPLICIT NONE … … 568 568 ENDIF 569 569 ! 570 IF( lk_c1d .AND. .NOT.lk_iomput ) CALL ctl_stop( 'nemo_ctl: The 1D configuration must be used ', & 571 & 'with the IOM Input/Output manager. ' , & 572 & 'Compile with key_iomput enabled' ) 573 ! 570 574 IF( 1_wp /= SIGN(1._wp,-0._wp) ) CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows ', & 571 575 & 'f2003 standard. ' , & … … 799 803 !loop over the other north-fold processes to find the processes 800 804 !managing the points belonging to the sxT-dxT range 801 DO jn = jpnij - jpni +1, jpnij802 IF ( njmppt(jn) == njmppmax ) THEN805 806 DO jn = 1, jpni 803 807 !sxT is the first point (in the global domain) of the jn 804 808 !process 805 sxT = n imppt(jn)809 sxT = nfiimpp(jn, jpnj) 806 810 !dxT is the last point (in the global domain) of the jn 807 811 !process 808 dxT = n imppt(jn) + nlcit(jn) - 1812 dxT = nfiimpp(jn, jpnj) + nfilcit(jn, jpnj) - 1 809 813 IF ((sxM .gt. sxT) .AND. (sxM .lt. dxT)) THEN 810 814 nsndto = nsndto + 1 811 isendto(nsndto) = jn815 isendto(nsndto) = jn 812 816 ELSEIF ((sxM .le. sxT) .AND. (dxM .ge. dxT)) THEN 813 817 nsndto = nsndto + 1 814 isendto(nsndto) = jn818 isendto(nsndto) = jn 815 819 ELSEIF ((dxM .lt. dxT) .AND. (sxT .lt. dxM)) THEN 816 820 nsndto = nsndto + 1 817 isendto(nsndto) = jn821 isendto(nsndto) = jn 818 822 END IF 819 END IF820 823 END DO 824 nfsloop = 1 825 nfeloop = nlci 826 DO jn = 2,jpni-1 827 IF(nfipproc(jn,jpnj) .eq. (narea - 1)) THEN 828 IF (nfipproc(jn - 1 ,jpnj) .eq. -1) THEN 829 nfsloop = nldi 830 ENDIF 831 IF (nfipproc(jn + 1,jpnj) .eq. -1) THEN 832 nfeloop = nlei 833 ENDIF 834 ENDIF 835 END DO 836 821 837 ENDIF 822 838 l_north_nogather = .TRUE.
Note: See TracChangeset
for help on using the changeset viewer.