Changeset 4921 for branches/2014/dev_r4650_UKMO13_CICE_changes_take2/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
- Timestamp:
- 2014-11-28T14:59:01+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO13_CICE_changes_take2/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r4645 r4921 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 !574 570 IF( 1_wp /= SIGN(1._wp,-0._wp) ) CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows ', & 575 571 & 'f2003 standard. ' , & … … 803 799 !loop over the other north-fold processes to find the processes 804 800 !managing the points belonging to the sxT-dxT range 805 DO jn = jpnij - jpni +1, jpnij806 IF ( njmppt(jn) == njmppmax ) THEN801 802 DO jn = 1, jpni 807 803 !sxT is the first point (in the global domain) of the jn 808 804 !process 809 sxT = n imppt(jn)805 sxT = nfiimpp(jn, jpnj) 810 806 !dxT is the last point (in the global domain) of the jn 811 807 !process 812 dxT = n imppt(jn) + nlcit(jn) - 1808 dxT = nfiimpp(jn, jpnj) + nfilcit(jn, jpnj) - 1 813 809 IF ((sxM .gt. sxT) .AND. (sxM .lt. dxT)) THEN 814 810 nsndto = nsndto + 1 815 isendto(nsndto) = jn811 isendto(nsndto) = jn 816 812 ELSEIF ((sxM .le. sxT) .AND. (dxM .ge. dxT)) THEN 817 813 nsndto = nsndto + 1 818 isendto(nsndto) = jn814 isendto(nsndto) = jn 819 815 ELSEIF ((dxM .lt. dxT) .AND. (sxT .lt. dxM)) THEN 820 816 nsndto = nsndto + 1 821 isendto(nsndto) = jn817 isendto(nsndto) = jn 822 818 END IF 823 END IF824 819 END DO 820 nfsloop = 1 821 nfeloop = nlci 822 DO jn = 2,jpni-1 823 IF(nfipproc(jn,jpnj) .eq. (narea - 1)) THEN 824 IF (nfipproc(jn - 1 ,jpnj) .eq. -1) THEN 825 nfsloop = nldi 826 ENDIF 827 IF (nfipproc(jn + 1,jpnj) .eq. -1) THEN 828 nfeloop = nlei 829 ENDIF 830 ENDIF 831 END DO 832 825 833 ENDIF 826 834 l_north_nogather = .TRUE.
Note: See TracChangeset
for help on using the changeset viewer.