Changeset 4645 for trunk/NEMOGCM/NEMO/OPA_SRC/LBC
- Timestamp:
- 2014-05-20T17:17:03+02:00 (10 years ago)
- File:
-
- 1 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 )
Note: See TracChangeset
for help on using the changeset viewer.