Changeset 8196 for branches/2017/dev_r8126_ROBUST08_no_ghost/NEMOGCM/NEMO/OPA_SRC/LBC/mpp_nfd_generic.h90
- Timestamp:
- 2017-06-20T17:01:49+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8126_ROBUST08_no_ghost/NEMOGCM/NEMO/OPA_SRC/LBC/mpp_nfd_generic.h90
r8186 r8196 73 73 ipj = 4 ! 2nd dimension of message transfers (last j-lines) 74 74 ! 75 ALLOCATE( ztab (jpiglo,4,ipk,ipl,ipf) , znorthloc (jpi ,4,ipk,ipl,ipf) ) 76 ALLOCATE( zfoldwk(jpi ,4,ipk,ipl,ipf) , znorthgloio(jpi ,4,ipk,ipl,ipf,jpni) ) 77 ALLOCATE( ztabl (jpi ,4,ipk,ipl,ipf) , ztabr (jpi*jpmaxngh,4,ipk,ipl,ipf) ) 75 ALLOCATE( znorthloc(jpi,4,ipk,ipl,ipf) ) 78 76 ! 79 77 znorthloc(:,:,:,:,:) = 0._wp 80 78 ! 81 DO jf = 1, ipf ! put in xnorthloc the last ipj j-lines of ptab79 DO jf = 1, ipf ! put in znorthloc the last ipj j-lines of ptab 82 80 DO jl = 1, ipl 83 81 DO jk = 1, ipk … … 90 88 END DO 91 89 ! 92 ! ! Build in procs of ncomm_north the znorthgloio93 90 ! 94 91 itaille = jpi * ipj * ipk * ipl * ipf 95 92 ! 96 93 IF( l_north_nogather ) THEN !== ???? ==! 94 ALLOCATE( zfoldwk(jpi,4,ipk,ipl,ipf) ) 95 ALLOCATE( ztabl(jpi ,4,ipk,ipl,ipf) , ztabr(jpi*jpmaxngh,4,ipk,ipl,ipf) ) 97 96 ! 98 97 ztabr(:,:,:,:,:) = 0._wp … … 158 157 END DO 159 158 ENDIF 160 !!gm ERROR CALL mpp_lbc_nfd( ztabl, ztabr, cd_nat, psgn ) ! North fold boundary condition 159 DO jf = 1, ipf 160 CALL lbc_nfd_nogather( ztabl(:,:,:,:,jf), ztabr(:,:,:,:,jf), cd_nat LBC_ARG, psgn LBC_ARG ) ! North fold boundary condition 161 END DO 161 162 DO jf = 1, ipf 162 163 DO jl = 1, ipl … … 172 173 END DO 173 174 ! 175 DEALLOCATE( zfoldwk ) 176 DEALLOCATE( ztabl, ztabr ) 174 177 ELSE !== ???? ==! 178 ALLOCATE( ztab (jpiglo,4,ipk,ipl,ipf ) ) 179 ALLOCATE( znorthgloio(jpi ,4,ipk,ipl,ipf,jpni) ) 175 180 ! 176 181 CALL MPI_ALLGATHER( znorthloc , itaille, MPI_DOUBLE_PRECISION, & … … 212 217 END DO 213 218 ! 219 ! 220 DEALLOCATE( ztab ) 221 DEALLOCATE( znorthgloio ) 214 222 ENDIF 215 223 ! … … 221 229 ! this domain will be identical. 222 230 ! 223 DEALLOCATE( ztab, znorthloc, zfoldwk, znorthgloio ) 224 DEALLOCATE( ztabl, ztabr ) 231 DEALLOCATE( znorthloc ) 225 232 ! 226 233 END SUBROUTINE ROUTINE_NFD
Note: See TracChangeset
for help on using the changeset viewer.