Changeset 2731 for trunk/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2011-04-08T14:05:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r2715 r2731 248 248 WRITE(ldtxt(ii),*) ' size in bytes of exported buffer nn_buffer = ', nn_buffer ; ii = ii + 1 249 249 250 #if defined key_agrif 251 IF( .NOT. Agrif_Root() ) THEN 252 jpni = Agrif_Parent(jpni ) 253 jpnj = Agrif_Parent(jpnj ) 254 jpnij = Agrif_Parent(jpnij) 255 ENDIF 256 #endif 257 250 258 IF(jpnij < 1)THEN 251 259 ! If jpnij is not specified in namelist then we calculate it - this
Note: See TracChangeset
for help on using the changeset viewer.