Changeset 4645
- Timestamp:
- 2014-05-20T17:17:03+02:00 (10 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r4624 r4645 2131 2131 ! this domain will be identical. 2132 2132 ! 2133 CALL lbc_nfd( ztab, cd_type, psgn ) ! North fold boundary condition2134 !2135 DO jk = 1, jpk2136 DO jj = nlcj-ijpj+1, nlcj ! Scatter back to pt3d2137 ij = jj - nlcj + ijpj2138 DO ji= 1, nlci2139 pt3d(ji,jj,jk) = ztab(ji+nimpp-1,ij,jk)2140 END DO2141 END DO2142 END DO2143 !2144 2133 DEALLOCATE( ztab, znorthloc, zfoldwk, znorthgloio ) 2145 2134 DEALLOCATE( ztabl, ztabr ) -
trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r4624 r4645 814 814 nsndto = nsndto + 1 815 815 isendto(nsndto) = jn 816 ELSEIF ((sxM .le. sxT) .AND. (dxM .g t. dxT)) THEN816 ELSEIF ((sxM .le. sxT) .AND. (dxM .ge. dxT)) THEN 817 817 nsndto = nsndto + 1 818 818 isendto(nsndto) = jn
Note: See TracChangeset
for help on using the changeset viewer.